|
155
|
How can I add a sensitive context menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
.Context().Add "class"
End With
End Function
</SCRIPT>
</BODY>
|
|
154
|
Can I use wild characters to define keys in your control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddWild "<fgcolor=808080>(*)</fgcolor>"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
153
|
Can I use wild characters to define keys in your control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddWild "_HANDLER<fgcolor=FF0000>(*)</fgcolor>"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
152
|
How can I remove or delete all expressions
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddExpression "(","<b><fgcolor=FF0000> </fgcolor></b>",")",False
.ClearExpressions
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
151
|
How can I remove or delete an expression
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddExpression "(","<b><fgcolor=FF0000> </fgcolor></b>",")",False
.DeleteExpression "("
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
150
|
How can I add an expression
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddExpression "(","<b><fgcolor=FF0000> </fgcolor></b>",")",False
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
149
|
How can I add an expression on multiple lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddExpression "<fgcolor=800000><b>BEGIN_MSG_MAP</b></fgcolor>","<b><fgcolor=FF0000> </fgcolor></b>","<fgcolor=800000><b>END_MSG_MAP</b></fgcolor>",True
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
148
|
How can I remove or delete all keywords
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<b><fgcolor=FF0000>class</fgcolor></b>"
.ClearKeywords
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
147
|
How can I remove or delete keyword
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<b><fgcolor=FF0000>class</fgcolor></b>"
.DeleteKeyword "class"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
146
|
How do I add a keyword that's not case sensitive
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<b><fgcolor=FF0000>class</fgcolor></b>","","",2
.Refresh
.InsertText "ClasS\r\n",1
.InsertText "CLASS\r\n",1
End With
End Function
</SCRIPT>
</BODY>
|
|
145
|
How do I add a keyword that's not case sensitive
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<fgcolor=FF0000>class</fgcolor>","","",1
.Refresh
.InsertText "ClasS\r\n",1
.InsertText "CLASS\r\n",1
End With
End Function
</SCRIPT>
</BODY>
|
|
144
|
How can I assign a tooltip to a keyword
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<fgcolor=FF0000>class</fgcolor>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
143
|
How do I add a keyword
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<fgcolor=FF0000>class</fgcolor>"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
142
|
How do I add a keyword
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
141
|
How can I display a tooltip as soon as the user types a keyword
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.ToolTipDelay = 1
.ToolTipOnTyping = True
.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
140
|
How do I change the color for a locked or a read only line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.ForeColorLockedLine = RGB(0,0,0)
.BackColorLockedLine = RGB(255,0,0)
.LockedLine(1) = True
End With
End Function
</SCRIPT>
</BODY>
|
|
139
|
How do I lock or make read only a line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LockedLine(1) = True
End With
End Function
</SCRIPT>
</BODY>
|
|
138
|
How do I start overtyping
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Overtype = True
End With
End Function
</SCRIPT>
</BODY>
|
|
137
|
How do I get the selection
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.GetSelection sy,sx,ey,ex
alert( sy )
alert( sx )
alert( ey )
alert( ex )
End With
End Function
</SCRIPT>
</BODY>
|
|
136
|
How do I select multiple lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.SetSelection 0,0,10,0
.HideSelection = False
End With
End Function
</SCRIPT>
</BODY>
|
|
135
|
How can I change the shape of the cursor when it hovers the selected text
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Cursor(4) = "exHelp"
.SelLength = 10
.HideSelection = False
End With
End Function
</SCRIPT>
</BODY>
|
|
134
|
How can I change the shape of the cursor when it hovers the incremental search area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Cursor(3) = "exHelp"
End With
End Function
</SCRIPT>
</BODY>
|
|
133
|
How can I change the shape of the cursor when it hovers the line numbers area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Cursor(2) = "exHelp"
.LineNumberWidth = 16
End With
End Function
</SCRIPT>
</BODY>
|
|
132
|
How can I change the shape of the cursor when it hovers the bookmark area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Cursor(1) = "exHelp"
.BookmarkWidth = 16
End With
End Function
</SCRIPT>
</BODY>
|
|
131
|
How can I change the shape of the cursor when it hovers the edit
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Cursor(0) = "exHelp"
End With
End Function
</SCRIPT>
</BODY>
|
|
130
|
How can I enable or disable OLE drag and drop operations
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.OLEDropMode = -1
End With
End Function
</SCRIPT>
</BODY>
|
|
129
|
How can I change the descriptions for items in the control's context menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Caption(2,16384) = "U N D O"
.Caption(2,16385) = "R E D O"
.Caption(2,16387) = "C U T"
.Caption(2,16388) = "C O P Y"
.Caption(2,16389) = "P A S T E"
.Caption(2,16390) = "D E L"
.Caption(2,16392) = "A L L "
End With
End Function
</SCRIPT>
</BODY>
|
|
128
|
How can I change the descriptions for fields in the Replace dialog
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Caption(1,202) = "What"
.Caption(1,204) = "Replace"
.Caption(1,104) = "Word"
.Caption(1,105) = "Case"
.Caption(1,103) = "Dir"
.Caption(1,113) = "Sel"
.Caption(1,114) = "File"
.Caption(1,21199) = "Rep"
.Caption(1,21200) = "All"
.Caption(1,2) = "Abandon"
.Caption(1,32000) = "Title"
.Caption(1,32001) = "Failed!"
.Caption(1,32001) = "Done"
End With
End Function
</SCRIPT>
</BODY>
|
|
127
|
How can I change the descriptions for fields in the Find dialog
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Caption(0,202) = "What"
.Caption(0,104) = "Word"
.Caption(0,105) = "Case"
.Caption(0,103) = "Dir"
.Caption(0,113) = "U"
.Caption(0,114) = "D"
.Caption(0,103) = "Next"
.Caption(0,21199) = "All"
.Caption(0,2) = "Abandon"
.Caption(0,32001) = "Failed!"
End With
End Function
</SCRIPT>
</BODY>
|
|
126
|
How can I change the caption for the Replace dialog
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Caption(1,0) = "Search and Replace"
End With
End Function
</SCRIPT>
</BODY>
|
|
125
|
How can I change the caption for the Find dialog
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Caption(0,0) = "Search"
End With
End Function
</SCRIPT>
</BODY>
|
|
124
|
How can I move the cursor when user invokes the control's context menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.RClick = True
End With
End Function
</SCRIPT>
</BODY>
|
|
123
|
How can I disable indenting the selected text when the user presses the TAB key
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.IndentOnTab = False
End With
End Function
</SCRIPT>
</BODY>
|
|
122
|
How can I indent a line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = 18
.HideSelection = False
.SelectLine 3
.IndentSel True
End With
End Function
</SCRIPT>
</BODY>
|
|
121
|
How can I show or hide the control's splitter
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AllowSplitter = 3
.SplitPaneHeight = 128
.SplitPaneWidth = 128
End With
End Function
</SCRIPT>
</BODY>
|
|
120
|
How can I select a line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = 18
.HideSelection = False
.SelectLine 3
End With
End Function
</SCRIPT>
</BODY>
|
|
119
|
How do I change the font to display the line numbers
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberFont.Name = "Tahoma"
.LineNumberWidth = 18
End With
End Function
</SCRIPT>
</BODY>
|
|
118
|
How can I change the height of the line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Font.Size = 32
.DrawGridLines = True
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
117
|
How can I show or hide the grid lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.DrawGridLines = True
End With
End Function
</SCRIPT>
</BODY>
|
|
116
|
How do I highlight the position of multiple lines expression on the vertical scroll bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AllowMark = True
.MarkContinueBlocks = True
.AddKeyword "<b>CAxWnd"
.AddExpression "<fgcolor=800000><b>BEGIN_MSG_MAP</b></fgcolor>","<b><fgcolor=FF0000> </fgcolor></b>","<fgcolor=800000><b>END_MSG_MAP</b></fgcolor>",True
.MarkColor("BEGIN_MSG_MAP") = RGB(255,0,0)
.MarkColor("END_MSG_MAP") = RGB(128,0,0)
.MarkColor("CAxWnd") = RGB(0,0,0)
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
115
|
How do I ignore \" in a string
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.InsertText """just a string \""expression""\r\n",1
.AddExpression "<fgcolor=800000><b>""</b></fgcolor>","<b><fgcolor=FF0000> </fgcolor></b>","<fgcolor=800000><b>""</b></fgcolor>",True
.IgnorePrefixInExpression("""") = "\"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
114
|
How can I change the color for the line number's border
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberBorderColor = RGB(255,0,0)
.LineNumberWidth = 18
End With
End Function
</SCRIPT>
</BODY>
|
|
113
|
How can I change the color for the bookmark's border
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.BookmarkBorderColor = RGB(255,0,0)
.BookmarkWidth = 18
End With
End Function
</SCRIPT>
</BODY>
|
|
112
|
Can I display a custom icon or picture for bookmarks
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.BookmarkImage = 1
.Bookmark(2) = True
.Bookmark(4) = True
.BookmarkWidth = 18
End With
End Function
</SCRIPT>
</BODY>
|
|
111
|
Can I display a custom icon or picture in the bookmark area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.BookmarkImageLine(2) = 1
.Bookmark(4) = True
.BookmarkWidth = 18
End With
End Function
</SCRIPT>
</BODY>
|
|
110
|
How do I remove the line's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.BackColorLine(1) = RGB(255,0,0)
.ClearBackColorLine 1
End With
End Function
</SCRIPT>
</BODY>
|
|
109
|
How do I change the foreground color for a line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.ForeColorLine(1) = RGB(255,0,0)
End With
End Function
</SCRIPT>
</BODY>
|
|
108
|
How do I change the background color for a line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.BackColorLine(1) = RGB(255,0,0)
End With
End Function
</SCRIPT>
</BODY>
|
|
107
|
How can I add my own items in the control's context menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.ContextMenuItems = "New Item"
End With
End Function
</SCRIPT>
</BODY>
|
|
106
|
How do I ensure that a specified line is visible
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.EnsureVisibleLine .Count
End With
End Function
</SCRIPT>
</BODY>
|
|
105
|
How can I programmatically perform a REDO operation
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Redo
End With
End Function
</SCRIPT>
</BODY>
|
|
104
|
How can I programmatically perform an UNDO operation
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Undo
End With
End Function
</SCRIPT>
</BODY>
|
|
103
|
How do I get the bookmarks as a list
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Bookmark(2) = True
.Bookmark(4) = True
.BookmarkWidth = 16
var_BookmarksList = .BookmarksList
End With
End Function
</SCRIPT>
</BODY>
|
|
102
|
How can I move to the previous bookmark
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Bookmark(2) = True
.Bookmark(4) = True
.BookmarkWidth = 16
.PrevBookmark
End With
End Function
</SCRIPT>
</BODY>
|
|
101
|
How can I move to the next bookmark
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Bookmark(2) = True
.Bookmark(4) = True
.BookmarkWidth = 16
.NextBookmark
End With
End Function
</SCRIPT>
</BODY>
|