Afterload事件:
Dim ct As New ICSharpCode.TextEditor.TextEditorControl
ct.Dock = System.Windows.Forms.DockStyle.Fill '填充整个
ct.Name = "TextEditor"
ct.Font=New Font("宋体",10)
ct.ShowEOLMarkers = False '显示换行光标,推荐false
ct.ShowHRuler = True '显示上标尺,推荐true
ct.ShowInvalidLines = False '显示无用空行的标志,推荐false
ct.ShowMatchingBracket = True '显示匹配括号
ct.ShowSpaces = False '显示空格符
ct.ShowTabs = True '显示缩进符
ct.ShowVRuler = False '显示垂直虚拟尺子
ct.ShowHRuler = False '显示水平虚拟尺子
ct.AllowCaretBeyondEOL = False '是否允许直接在空白处开始编辑
ct.ConvertTabsToSpaces =True '用空格符替换tab效果
ct.Document.HighlightingStrategy = ICSharpCode.TextEditor.Document.HighlightingStrategyFactory.CreateHighlightingStrategy("VBNET")
ct.Encoding = System.Text.Encoding.Default
Dim pan As WinForm.Panel = e.Form.Controls("panel1")
pan.basecontrol.controls.add(ct)
读取编辑器里的代码：
Dim ct As ICSharpCode.TextEditor.TextEditorControl= e.Form.Controls("Panel1").BaseControl.controls("TextEditor")
MessageBox.Show(ct.Text)
----------------------------------------------------------------------------
此主题相关图片如下：微信截图_20210911105132.png
---------------------------------------------------------------------------
版主有空的话，可以研究一下它自带的代码折叠和格式化缩进
https://blog.csdn.net/ABC13222880223/article/details/106584804
[此贴子已经被作者于2021/9/11 11:49:34编辑过]
加好友 
发短信
Post By：2021/9/11 10:52:00 [显示全部帖子]
