160. How do I specify the characters to close the sensitive context
| VB.NET |
|---|
With Exedit1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
.AddKeyword("<b>public</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
.Refresh()
With .get_Context()
.Add("<b>class</b>","",1)
.Add("<b>public</b>","",2)
.set_Options(exontrol.EXEDITLib.ContextOptionEnum.exContextAllowChars,"_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz")
End With
End With
|
159. How do I sort items in the sensitive context
| VB.NET |
|---|
With Exedit1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
.AddKeyword("<b>public</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
.Refresh()
.get_Context().Add("<b>public</b>","",2)
.get_Context().Add("<b>class</b>","",1)
.get_Context().Sort(True)
End With
|
158. Can I add icons to the sensitive context
| VB.NET |
|---|
With Exedit1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.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()
.get_Context().Add("<b>class</b>","",1)
End With
|
157. How can I change the keys combination that invokes the sensitive context
| VB.NET |
|---|
With Exedit1
.ContextKey = 544
.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()
.get_Context().Add("class")
End With
|
156. How do I enable or disable the sensitive context menu
| VB.NET |
|---|
With Exedit1
.CodeCompletion = False
.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()
.get_Context().Add("class")
End With
|
155. How can I add a sensitive context menu
| VB.NET |
|---|
With Exedit1
.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()
.get_Context().Add("class")
End With
|
154. Can I use wild characters to define keys in your control
| VB.NET |
|---|
With Exedit1
.AddWild("<b>a</b>")
.Refresh()
End With
|
153. Can I use wild characters to define keys in your control
| VB.NET |
|---|
With Exedit1
.AddWild("<s> </s>")
.Refresh()
End With
|
152. How can I remove or delete all expressions
| VB.NET |
|---|
With Exedit1
.AddExpression("(","<b><fgcolor=FF0000> </fgcolor></b>",")",False)
.ClearExpressions()
.Refresh()
End With
|
151. How can I remove or delete an expression
| VB.NET |
|---|
With Exedit1
.AddExpression("(","<b><fgcolor=FF0000> </fgcolor></b>",")",False)
.DeleteExpression("(")
.Refresh()
End With
|
150. How can I add an expression
| VB.NET |
|---|
With Exedit1
.AddExpression("(","<b><fgcolor=FF0000> </fgcolor></b>",")",False)
.Refresh()
End With
|
149. How can I add an expression on multiple lines
| VB.NET |
|---|
With Exedit1
.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
|
148. How can I remove or delete all keywords
| VB.NET |
|---|
With Exedit1
.AddKeyword("<b><fgcolor=FF0000>class</fgcolor></b>")
.ClearKeywords()
.Refresh()
End With
|
147. How can I remove or delete keyword
| VB.NET |
|---|
With Exedit1
.AddKeyword("<b><fgcolor=FF0000>class</fgcolor></b>")
.DeleteKeyword("class")
.Refresh()
End With
|
146. How do I add a keyword that's not case sensitive
| VB.NET |
|---|
With Exedit1
.AddKeyword("<b><fgcolor=FF0000>class</fgcolor></b>","","",2)
.Refresh()
.InsertText("ClasS\r\n",1)
.InsertText("CLASS\r\n",1)
End With
|
145. How do I add a keyword that's not case sensitive
| VB.NET |
|---|
With Exedit1
.AddKeyword("<fgcolor=FF0000>class</fgcolor>","","",1)
.Refresh()
.InsertText("ClasS\r\n",1)
.InsertText("CLASS\r\n",1)
End With
|
144. How can I assign a tooltip to a keyword
| VB.NET |
|---|
With Exedit1
.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
|
143. How do I add a keyword
| VB.NET |
|---|
With Exedit1
.AddKeyword("<fgcolor=FF0000>class</fgcolor>")
.Refresh()
End With
|
142. How do I add a keyword
| VB.NET |
|---|
With Exedit1
.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
|
141. How can I display a tooltip as soon as the user types a keyword
| VB.NET |
|---|
With Exedit1
.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
|
140. How do I change the color for a locked or a read only line
| VB.NET |
|---|
With Exedit1 .ForeColorLockedLine = Color.FromArgb(0,0,0) .BackColorLockedLine = Color.FromArgb(255,0,0) .set_LockedLine(1,True) End With |
139. How do I lock or make read only a line
| VB.NET |
|---|
With Exedit1 .set_LockedLine(1,True) End With |
138. How do I start overtyping
| VB.NET |
|---|
With Exedit1 .Overtype = True End With |
136. How do I select multiple lines
| VB.NET |
|---|
With Exedit1 .SetSelection(0,0,10,0) .HideSelection = False End With |
135. How can I change the shape of the cursor when it hovers the selected text
| VB.NET |
|---|
With Exedit1 .set_Cursor(exontrol.EXEDITLib.ClientAreaEnum.exSelectedText,"exHelp") .SelLength = 10 .HideSelection = False End With |
134. How can I change the shape of the cursor when it hovers the incremental search area
| VB.NET |
|---|
With Exedit1 .set_Cursor(exontrol.EXEDITLib.ClientAreaEnum.exIncrementalSearchArea,"exHelp") End With |
133. How can I change the shape of the cursor when it hovers the line numbers area
| VB.NET |
|---|
With Exedit1 .set_Cursor(exontrol.EXEDITLib.ClientAreaEnum.exLineNumberArea,"exHelp") .LineNumberWidth = 16 End With |
132. How can I change the shape of the cursor when it hovers the bookmark area
| VB.NET |
|---|
With Exedit1 .set_Cursor(exontrol.EXEDITLib.ClientAreaEnum.exBookmarkArea,"exHelp") .BookmarkWidth = 16 End With |
131. How can I change the shape of the cursor when it hovers the edit
| VB.NET |
|---|
With Exedit1 .set_Cursor(exontrol.EXEDITLib.ClientAreaEnum.exEditArea,0) End With |
130. How can I enable or disable OLE drag and drop operations
| VB.NET |
|---|
With Exedit1 .OLEDropMode = exontrol.EXEDITLib.exOLEDropModeEnum.exOLEDropAutomatic End With |
129. How can I change the descriptions for items in the control's context menu
| VB.NET |
|---|
With Exedit1 .set_Caption(exontrol.EXEDITLib.DialogEnum.exContextMenu,exontrol.EXEDITLib.FieldDialogEnum.exContextUndo,"U N D O") .set_Caption(exontrol.EXEDITLib.DialogEnum.exContextMenu,exontrol.EXEDITLib.FieldDialogEnum.exContextRedo,"R E D O") .set_Caption(exontrol.EXEDITLib.DialogEnum.exContextMenu,exontrol.EXEDITLib.FieldDialogEnum.exContextCut,"C U T") .set_Caption(exontrol.EXEDITLib.DialogEnum.exContextMenu,exontrol.EXEDITLib.FieldDialogEnum.exContextCopy,"C O P Y") .set_Caption(exontrol.EXEDITLib.DialogEnum.exContextMenu,exontrol.EXEDITLib.FieldDialogEnum.exContextPaste,"P A S T E") .set_Caption(exontrol.EXEDITLib.DialogEnum.exContextMenu,exontrol.EXEDITLib.FieldDialogEnum.exContextDelete,"D E L") .set_Caption(exontrol.EXEDITLib.DialogEnum.exContextMenu,exontrol.EXEDITLib.FieldDialogEnum.exContextSelectAll,"A L L ") End With |
128. How can I change the descriptions for fields in the Replace dialog
| VB.NET |
|---|
With Exedit1 .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldFindWhat,"What") .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldReplaceWith,"Replace") .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldWordOnly,"Word") .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldMatchCase,"Case") .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldFindNext,"Dir") .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldSelection,"Sel") .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldWholeFile,"File") .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldReplace,"Rep") .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldReplaceAll,"All") .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldCancel,"Abandon") .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exErrorTitle,"Title") .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exErrorFindNext,"Failed!") .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exErrorFindNext,"Done") End With |
127. How can I change the descriptions for fields in the Find dialog
| VB.NET |
|---|
With Exedit1 .set_Caption(exontrol.EXEDITLib.DialogEnum.exFindDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldFindWhat,"What") .set_Caption(exontrol.EXEDITLib.DialogEnum.exFindDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldWordOnly,"Word") .set_Caption(exontrol.EXEDITLib.DialogEnum.exFindDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldMatchCase,"Case") .set_Caption(exontrol.EXEDITLib.DialogEnum.exFindDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldFindNext,"Dir") .set_Caption(exontrol.EXEDITLib.DialogEnum.exFindDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldSelection,"U") .set_Caption(exontrol.EXEDITLib.DialogEnum.exFindDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldWholeFile,"D") .set_Caption(exontrol.EXEDITLib.DialogEnum.exFindDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldFindNext,"Next") .set_Caption(exontrol.EXEDITLib.DialogEnum.exFindDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldReplace,"All") .set_Caption(exontrol.EXEDITLib.DialogEnum.exFindDialog,exontrol.EXEDITLib.FieldDialogEnum.exFieldCancel,"Abandon") .set_Caption(exontrol.EXEDITLib.DialogEnum.exFindDialog,exontrol.EXEDITLib.FieldDialogEnum.exErrorFindNext,"Failed!") End With |
126. How can I change the caption for the Replace dialog
| VB.NET |
|---|
With Exedit1 .set_Caption(exontrol.EXEDITLib.DialogEnum.exReplaceDialog,exontrol.EXEDITLib.FieldDialogEnum.exCaption,"Search and Replace") End With |
125. How can I change the caption for the Find dialog
| VB.NET |
|---|
With Exedit1 .set_Caption(exontrol.EXEDITLib.DialogEnum.exFindDialog,exontrol.EXEDITLib.FieldDialogEnum.exCaption,"Search") End With |
124. How can I move the cursor when user invokes the control's context menu
| VB.NET |
|---|
With Exedit1 .RClick = True End With |
123. How can I disable indenting the selected text when the user presses the TAB key
| VB.NET |
|---|
With Exedit1 .IndentOnTab = False End With |
122. How can I indent a line
| VB.NET |
|---|
With Exedit1 .LineNumberWidth = 18 .HideSelection = False .SelectLine(3) .IndentSel(True) End With |
121. How can I show or hide the control's splitter
| VB.NET |
|---|
With Exedit1 .AllowSplitter = exontrol.EXEDITLib.SplitterEnum.exBothSplitter .SplitPaneHeight = 128 .SplitPaneWidth = 128 End With |
120. How can I select a line
| VB.NET |
|---|
With Exedit1 .LineNumberWidth = 18 .HideSelection = False .SelectLine(3) End With |
119. How do I change the font to display the line numbers
| VB.NET |
|---|
With Exedit1 .LineNumberFont.Name = "Tahoma" .LineNumberWidth = 18 End With |
118. How can I change the height of the line
| VB.NET |
|---|
With Exedit1 .Font.Size = 32 .DrawGridLines = True .Refresh() End With |
117. How can I show or hide the grid lines
| VB.NET |
|---|
With Exedit1 .DrawGridLines = True End With |
116. How do I highlight the position of multiple lines expression on the vertical scroll bar
| VB.NET |
|---|
With Exedit1
.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)
.set_MarkColor("BEGIN_MSG_MAP",Color.FromArgb(255,0,0))
.set_MarkColor("END_MSG_MAP",Color.FromArgb(128,0,0))
.set_MarkColor("CAxWnd",Color.FromArgb(0,0,0))
.Refresh()
End With
|
115. How do I ignore \" in a string
| VB.NET |
|---|
With Exedit1
.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)
.set_IgnorePrefixInExpression("""","\")
.Refresh()
End With
|
114. How can I change the color for the line number's border
| VB.NET |
|---|
With Exedit1 .LineNumberBorderColor = Color.FromArgb(255,0,0) .LineNumberWidth = 18 End With |
113. How can I change the color for the bookmark's border
| VB.NET |
|---|
With Exedit1 .BookmarkBorderColor = Color.FromArgb(255,0,0) .BookmarkWidth = 18 End With |
112. Can I display a custom icon or picture for bookmarks
| VB.NET |
|---|
With Exedit1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.BookmarkImage = 1
.set_Bookmark(2,True)
.set_Bookmark(4,True)
.BookmarkWidth = 18
End With
|
111. Can I display a custom icon or picture in the bookmark area
| VB.NET |
|---|
With Exedit1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.set_BookmarkImageLine(2,1)
.set_Bookmark(4,True)
.BookmarkWidth = 18
End With
|
110. How do I remove the line's background color
| VB.NET |
|---|
With Exedit1 .set_BackColorLine(1,Color.FromArgb(255,0,0)) .ClearBackColorLine(1) End With |
109. How do I change the foreground color for a line
| VB.NET |
|---|
With Exedit1 .set_ForeColorLine(1,Color.FromArgb(255,0,0)) End With |
108. How do I change the background color for a line
| VB.NET |
|---|
With Exedit1 .set_BackColorLine(1,Color.FromArgb(255,0,0)) End With |
107. How can I add my own items in the control's context menu
| VB.NET |
|---|
With Exedit1 .ContextMenuItems = "New Item" End With |
106. How do I ensure that a specified line is visible
| VB.NET |
|---|
With Exedit1 .EnsureVisibleLine(.Count) End With |
105. How can I programmatically perform a REDO operation
| VB.NET |
|---|
With Exedit1 .Redo() End With |
104. How can I programmatically perform an UNDO operation
| VB.NET |
|---|
With Exedit1 .Undo() End With |
103. How do I get the bookmarks as a list
| VB.NET |
|---|
Dim var_BookmarksList With Exedit1 .set_Bookmark(2,True) .set_Bookmark(4,True) .BookmarkWidth = 16 var_BookmarksList = .BookmarksList End With |
102. How can I move to the previous bookmark
| VB.NET |
|---|
With Exedit1 .set_Bookmark(2,True) .set_Bookmark(4,True) .BookmarkWidth = 16 .PrevBookmark() End With |
101. How can I move to the next bookmark
| VB.NET |
|---|
With Exedit1 .set_Bookmark(2,True) .set_Bookmark(4,True) .BookmarkWidth = 16 .NextBookmark() End With |
100. How can I remove a bookmark
| VB.NET |
|---|
With Exedit1 .set_Bookmark(2,True) .set_Bookmark(2,False) .BookmarkWidth = 16 End With |
99. How can I remove all bookmarks
| VB.NET |
|---|
With Exedit1 .set_Bookmark(2,True) .set_Bookmark(4,True) .BookmarkWidth = 16 .ClearBookmarks() End With |
98. How can I add a bookmark
| VB.NET |
|---|
With Exedit1 .set_Bookmark(2,True) .set_Bookmark(4,True) .BookmarkWidth = 16 End With |
97. How can I change the format to display the numbers
| VB.NET |
|---|
With Exedit1
.FormatNumbers = "<b><fgcolor=FF0000> </fgcolor></b>"
.InsertText("Just numbers: 12 22\r\n",1)
End With
|
96. Is there any option to change the color for the line that displays the cursor or the caret
| VB.NET |
|---|
With Exedit1 .BackColorCaretLine = Color.FromArgb(255,0,0) End With |
95. Can I display the lines using an alternate color
| VB.NET |
|---|
With Exedit1 .BackColorAlternate = Color.FromArgb(255,0,0) End With |
94. How can I disable or enable displaying the Replace dialog
| VB.NET |
|---|
With Exedit1 .AllowReplace = False End With |
93. Does your control support incrementasl search
| VB.NET |
|---|
With Exedit1 .AllowIncrementalSearch = True End With |
92. How can I programmatically find or search for a word only
| VB.NET |
|---|
With Exedit1
.HideSelection = False
.Find("IDD_DIALOG_INSTALL",exontrol.EXEDITLib.FindOptionEnum.exMatchWholeWordOnly)
End With
|
91. How can I programmatically find or search for a string
| VB.NET |
|---|
With Exedit1
.HideSelection = False
.Find("public",exontrol.EXEDITLib.FindOptionEnum.exSearchDown)
End With
|
90. How can I disable or enabled the Find dialog
| VB.NET |
|---|
With Exedit1 .AllowFind = False End With |
89. How can I enable my button as the control can perform an REDO operation
| VB.NET |
|---|
Dim var_CanRedo With Exedit1 var_CanRedo = .CanRedo End With |
88. How can I enable my button as the control can perform an UNDO operation
| VB.NET |
|---|
Dim var_CanUndo With Exedit1 var_CanUndo = .CanUndo End With |
87. How can I disable or enable the undo-redo feature
| VB.NET |
|---|
With Exedit1 .AllowUndoRedo = False End With |
86. How can I change the color for the border where the line numbers are displayed
| VB.NET |
|---|
With Exedit1 .LineNumberForeColor = Color.FromArgb(255,0,0) .LineNumberBackColor = Color.FromArgb(0,0,255) .LineNumberWidth = 32 End With |
85. How can I change the color of the bookmark border
| VB.NET |
|---|
With Exedit1 .BookMarkBackColor = Color.FromArgb(255,0,0) .BookMarkBackColor2 = Color.FromArgb(255,0,0) .BookmarkWidth = 16 End With |
84. How can I refresh the control
| VB.NET |
|---|
With Exedit1
.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
|
83. How can I change the size of the tabs characters
| VB.NET |
|---|
With Exedit1 .TabLength = 8 End With |
82. I've seen that if I press CTRL + ( I get the matching braket. How can I extend this
| VB.NET |
|---|
With Exedit1 .OpenBrackets = "<" .CloseBrackets = ">" End With |
81. How can I hide the selection
| VB.NET |
|---|
With Exedit1 .DisplaySelection = False End With |
80. How can I display both scroll bars
| VB.NET |
|---|
With Exedit1 .ScrollBars = exontrol.EXEDITLib.ScrollBarsEnum.exBoth End With |
79. How can I display only the vertical scroll bar
| VB.NET |
|---|
With Exedit1 .ScrollBars = exontrol.EXEDITLib.ScrollBarsEnum.exVertical End With |
78. How can I display only the horizontal scroll bar
| VB.NET |
|---|
With Exedit1 .ScrollBars = exontrol.EXEDITLib.ScrollBarsEnum.exHorizontal End With |
77. How can I hide the control's scroll bars
| VB.NET |
|---|
With Exedit1 .ScrollBars = exontrol.EXEDITLib.ScrollBarsEnum.exNoScroll End With |
76. How can I insert at specified position a new line
| VB.NET |
|---|
With Exedit1
.InsertText("newline\r\n",2)
.set_BackColorLine(2,Color.FromArgb(255,0,0))
End With
|
75. How can I remove or delete all lines
| VB.NET |
|---|
With Exedit1 .Text = "" End With |
74. How can I remove or delete a line
| VB.NET |
|---|
With Exedit1 .DeleteLine(1) End With |
73. How do I change the character where the caret or the cursor is displayed
| VB.NET |
|---|
With Exedit1 .CaretPos = 10 End With |
72. How do I change the line where the caret or the cursor is displayed
| VB.NET |
|---|
With Exedit1 .CaretLine = 10 End With |
71. How do I replace a line
| VB.NET |
|---|
With Exedit1 .set_TextLine(1,"new line") End With |
70. How do I get a line
| VB.NET |
|---|
With Exedit1 .set_TextLine(1,"new line") End With |
69. How do I get the number of lines in the control
| VB.NET |
|---|
Dim var_Count With Exedit1 var_Count = .Count End With |
68. How do I get the point where the selection starts
| VB.NET |
|---|
With Exedit1 .SelStart = 4 .SelLength = 10 .HideSelection = False End With |
67. How do I get the number of selected characters
| VB.NET |
|---|
With Exedit1 .SelLength = 10 .HideSelection = False End With |
66. How can I get the selected text
| VB.NET |
|---|
Dim var_SelText With Exedit1 .SelLength = 10 var_SelText = .SelText End With |
65. How can I replace the selected text
| VB.NET |
|---|
With Exedit1 .SelLength = 10 .SelText = "-new selection-" End With |
64. How can I avoid changing the colors for keywords or expressions
| VB.NET |
|---|
With Exedit1
.ApplyColors = False
.AddKeyword("<fgcolor=FF0000><b>class</b></fgcolor>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
.Refresh()
End With
|
63. How can I display HTML text
| VB.NET |
|---|
With Exedit1 .EditType = exontrol.EXEDITLib.EditTypeEnum.exHTML .Text = "<b>just a HTML text</b>\r\nnew <s>line</s>" End With |
62. How can I use it a a simple edit control, without highlighting
| VB.NET |
|---|
With Exedit1 .EditType = exontrol.EXEDITLib.EditTypeEnum.exStandard End With |
57. How can I display only a single line
| VB.NET |
|---|
With Exedit1 .MultiLine = False End With |
56. How can I disable displaying multiple lines
| VB.NET |
|---|
With Exedit1 .MultiLine = False End With |
55. How can change the color for selected text
| VB.NET |
|---|
With Exedit1 .HideSelection = False .SelLength = 10 .SelBackColor = Color.FromArgb(255,0,0) End With |
54. How can change the color for selected text
| VB.NET |
|---|
With Exedit1 .HideSelection = False .SelLength = 10 .SelForeColor = Color.FromArgb(255,0,0) End With |
53. How can I disable displaying the control's context menu
| VB.NET |
|---|
With Exedit1 .AllowContextMenu = False End With |
52. Is there any option to hide the caret or the cursor
| VB.NET |
|---|
With Exedit1 .ShowCaret = False End With |
51. How can still display the selected text when the control loses the focus
| VB.NET |
|---|
With Exedit1 .HideSelection = False .SelLength = 10 End With |
50. How can I disable adding new TAB characters when the user enters a new line
| VB.NET |
|---|
With Exedit1 .AutoIndent = False End With |
49. How can I disable using the Tab key
| VB.NET |
|---|
With Exedit1 .UseTabKey = False End With |
48. How can I hide the number of each line
| VB.NET |
|---|
With Exedit1 .LineNumberWidth = 0 End With |
47. How can I display or show the number of each line
| VB.NET |
|---|
With Exedit1 .LineNumberWidth = 32 End With |
46. How can I clear the text
| VB.NET |
|---|
With Exedit1 .Text = "" End With |
45. How can I specify the text being displayed in the control
| VB.NET |
|---|
With Exedit1 .Text = "new line\r\nnew line" End With |
44. How can I hide the bookmark border
| VB.NET |
|---|
With Exedit1 .BookmarkWidth = 0 End With |
43. How can I show the bookmark border
| VB.NET |
|---|
With Exedit1 .BookmarkWidth = 16 End With |
42. How do I lock the control
| VB.NET |
|---|
With Exedit1 .Locked = True End With |
41. How do I disable or enable the control
| VB.NET |
|---|
With Exedit1 .Enabled = False End With |
40. How can I change the visual appearance of the splitter
| VB.NET |
|---|
With Exedit1 .AllowSplitter = exontrol.EXEDITLib.SplitterEnum.exBothSplitter .SplitPaneWidth = 128 .SplitPaneHeight = 128 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exHSplitterApp,16777216) .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exVSplitterApp,16777216) .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exISplitterApp,33554432) End With |
39. How can I change the visual appearance of the vertical splitter
| VB.NET |
|---|
With Exedit1 .AllowSplitter = exontrol.EXEDITLib.SplitterEnum.exBothSplitter .SplitPaneWidth = 128 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exHSplitterApp,16777216) End With |
38. How can I change the visual appearance of the horizontal splitter
| VB.NET |
|---|
With Exedit1 .AllowSplitter = exontrol.EXEDITLib.SplitterEnum.exBothSplitter .SplitPaneHeight = 128 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exVSplitterApp,16777216) End With |
37. How do I change the visual aspect for thumb parts in the scroll bars, using EBN
| VB.NET |
|---|
With Exedit1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn") .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exHSThumb,16777216) .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exHSThumbP,33554432) .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exHSThumbH,50331648) .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exVSThumb,16777216) .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exVSThumbP,33554432) .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exVSThumbH,50331648) End With |
36. How do I change the visual aspect only for the thumb in the scroll bar, using EBN
| VB.NET |
|---|
With Exedit1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn") .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exHSThumb,16777216) .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exHSThumbP,33554432) .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exHSThumbH,50331648) .set_ScrollThumbSize(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,96) End With |
35. I've seen that you can change the visual appearance for the scroll bar. How can I do that
| VB.NET |
|---|
With Exedit1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn") .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exSBtn,16777216) .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exSBtnP,33554432) .set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exSBtnH,50331648) .set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exHSBack,Color.FromArgb(240,240,240)) .set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240)) .set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exSizeGrip,Color.FromArgb(240,240,240)) End With |
34. Can I change the forecolor for the tooltip
| VB.NET |
|---|
With Exedit1
.ToolTipDelay = 1
.ToolTipWidth = 364
.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exToolTipForeColor,Color.FromArgb(255,0,0))
.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
|
33. Can I change the background color for the tooltip
| VB.NET |
|---|
With Exedit1
.ToolTipDelay = 1
.ToolTipWidth = 364
.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exToolTipBackColor,Color.FromArgb(255,0,0))
.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
|
32. Can I change the default border of the tooltip, using your EBN files
| VB.NET |
|---|
With Exedit1
.ToolTipDelay = 1
.ToolTipWidth = 364
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exToolTipAppearance,16777216)
.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
|
31. How do I call your x-script language
| VB.NET |
|---|
With Exedit1
.ExecuteTemplate("BackColor = RGB(255,0,0)")
End With
|
30. How do I call your x-script language
| VB.NET |
|---|
With Exedit1 .Template = "BackColor = RGB(255,0,0)" End With |
29. Can I change the font for the tooltip
| VB.NET |
|---|
With Exedit1
.ToolTipDelay = 1
With .ToolTipFont
.Name = "Tahoma"
.Size = 14
End With
.ToolTipWidth = 364
.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
|
28. I've seen that the width of the tooltip is variable. Can I make it larger
| VB.NET |
|---|
With Exedit1
.ToolTipWidth = 328
.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
|
27. How do I let the tooltip being displayed longer
| VB.NET |
|---|
With Exedit1
.ToolTipPopDelay = 10000
.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
|
26. How do I disable showing the tooltip for all control
| VB.NET |
|---|
With Exedit1
.ToolTipDelay = 0
.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
|
25. How do I show the tooltip quicker
| VB.NET |
|---|
With Exedit1
.ToolTipDelay = 1
.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
|
24. Can I change the order of the buttons in the scroll bar
| VB.NET |
|---|
With Exedit1 .set_ScrollOrderParts(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,"t,l,r") .set_ScrollOrderParts(exontrol.EXEDITLib.ScrollBarEnum.exVScroll,"t,l,r") End With |
23. The thumb size seems to be very small. Can I make it bigger
| VB.NET |
|---|
With Exedit1 .set_ScrollThumbSize(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,164) End With |
22. How do I enlarge or change the size of the control's scrollbars
| VB.NET |
|---|
With Exedit1 .ScrollHeight = 18 .ScrollWidth = 18 .ScrollButtonWidth = 18 .ScrollButtonHeight = 18 End With |
21. How can I display my text on the scroll bar, using a different font
| VB.NET |
|---|
With Exedit1 .set_ScrollPartCaption(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,exontrol.EXEDITLib.ScrollPartEnum.exThumbPart,"This is just a text") .get_ScrollFont(exontrol.EXEDITLib.ScrollBarEnum.exHScroll).Size = 12 .set_ScrollThumbSize(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,128) .ScrollHeight = 0 .set_ScrollPartCaption(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,exontrol.EXEDITLib.ScrollPartEnum.exThumbPart,"This is <s><font Tahoma;12> just </font></s> text") .ScrollHeight = 20 End With |
20. How can I display my text on the scroll bar
| VB.NET |
|---|
With Exedit1 .set_ScrollPartCaption(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,exontrol.EXEDITLib.ScrollPartEnum.exThumbPart,"this is just a text") .set_ScrollThumbSize(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,96) End With |
19. How do I assign a tooltip to a scrollbar
| VB.NET |
|---|
With Exedit1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .set_ScrollToolTip(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,"This is a <img>0x1000000</img>tooltip being shown when you click and drag the thumb in the hori" & _ "zontal scroll bar") End With |
18. How do I assign an icon to the button in the scrollbar
| VB.NET |
|---|
With Exedit1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.set_ScrollPartVisible(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,exontrol.EXEDITLib.ScrollPartEnum.exLeftB1Part,True)
.set_ScrollPartCaption(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,exontrol.EXEDITLib.ScrollPartEnum.exLeftB1Part,"<img>1</img>")
.ScrollHeight = 18
.ScrollButtonWidth = 18
End With
|
17. I need to add a button in the scroll bar. Is this possible
| VB.NET |
|---|
With Exedit1 .set_ScrollPartVisible(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,exontrol.EXEDITLib.ScrollPartEnum.exLeftB1Part,True) .set_ScrollPartCaption(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,exontrol.EXEDITLib.ScrollPartEnum.exLeftB1Part,"1") End With |
16. Can I display an additional buttons in the scroll bar
| VB.NET |
|---|
With Exedit1 .set_ScrollPartVisible(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,exontrol.EXEDITLib.ScrollPartEnum.exLeftB1Part,True) .set_ScrollPartVisible(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,exontrol.EXEDITLib.ScrollPartEnum.exLeftB2Part,True) .set_ScrollPartVisible(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,exontrol.EXEDITLib.ScrollPartEnum.exRightB6Part,True) .set_ScrollPartVisible(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,exontrol.EXEDITLib.ScrollPartEnum.exRightB5Part,True) End With |
15. How do I change the control's foreground color
| VB.NET |
|---|
With Exedit1 .ForeColor = Color.FromArgb(255,0,0) End With |
14. How do I change the control's background color
| VB.NET |
|---|
With Exedit1 .BackColor = Color.FromArgb(200,200,200) End With |
13. How can I change the control's font
| VB.NET |
|---|
With Exedit1 .Font.Name = "Verdana" End With |
12. How do I put a picture on the center of the control
| VB.NET |
|---|
With Exedit1
.Picture = Exedit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = exontrol.EXEDITLib.PictureDisplayEnum.exMiddleCenter
End With
|
11. How do I resize/stretch a picture on the control's background
| VB.NET |
|---|
With Exedit1
.Picture = Exedit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = exontrol.EXEDITLib.PictureDisplayEnum.exStretch
End With
|
10. How do I put a picture on the control's center right bottom side
| VB.NET |
|---|
With Exedit1
.Picture = Exedit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = exontrol.EXEDITLib.PictureDisplayEnum.exLowerRight
End With
|
9. How do I put a picture on the control's center left bottom side
| VB.NET |
|---|
With Exedit1
.Picture = Exedit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = exontrol.EXEDITLib.PictureDisplayEnum.exLowerLeft
End With
|
8. How do I put a picture on the control's center top side
| VB.NET |
|---|
With Exedit1
.Picture = Exedit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = exontrol.EXEDITLib.PictureDisplayEnum.exUpperCenter
End With
|
7. How do I put a picture on the control's right top corner
| VB.NET |
|---|
With Exedit1
.Picture = Exedit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = exontrol.EXEDITLib.PictureDisplayEnum.exUpperRight
End With
|
6. How do I put a picture on the control's left top corner
| VB.NET |
|---|
With Exedit1
.Picture = Exedit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = exontrol.EXEDITLib.PictureDisplayEnum.exUpperLeft
End With
|
5. How do I put a picture on the control's background
| VB.NET |
|---|
With Exedit1
.Picture = Exedit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With
|
4. How do I change the control's border, using your EBN files
| VB.NET |
|---|
With Exedit1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Appearance = &H1000000 End With |
3. How do I remove the control's border
| VB.NET |
|---|
With Exedit1 .Appearance = exontrol.EXEDITLib.AppearanceEnum.exNone End With |
2. How can I add a line
| VB.NET |
|---|
With Exedit1
.InsertText(" - insert the line as the last - \r\n")
End With
|
1. How can I insert a line
| VB.NET |
|---|
With Exedit1
.InsertText(" - insert the line as the first - \r\n",1)
End With
|