狐表窗口如何引用三方编辑器 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如何可用在按钮内引用这个控件呢其他都已经处理好了!

此主题相关图片如下：qq截图20210910190937.png

[此贴子已经被作者于2021/9/12 9:23:44编辑过]

Dim ct As ICSharpCode.TextEditor.TextEditorControl = e.Form.Controls("panel2").controls(0)

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编辑过]

这个控件哪位大神实现了插入呢,没有SelectionStart 属性,这个是如何处理的呢

Dim t As winform.textbox = e.form.controls("textbox1")

Dim s As String = t.Text

Dim s1 As String = " " & e.Sender.text & " '% %' "

Dim i As Integer = t.SelectionStart + s1.length

s = s.Insert(t.SelectionStart,s1)

t.Text = s

t.SelectionStart = i

Dim ct As ICSharpCode.TextEditor.TextEditorControl = e.Form.Controls("Panel2").BaseControl.controls("TextEditor")

Dim cts As String = ct.Text

Dim sct As String = " " & e.Sender.text & " '% %' "

Dim ict As Integer = ct.SelectionStart + sct.length

sct = sct.Insert(ct.SelectionStart,s1)

ct.Text = s

ct.SelectionStart = i

此主题相关图片如下：编辑器.png

有什么属性可以用，要自行去看这个组件的文档了，或者到vs里查看

chen37280600，杰哥给个案例好吗

不用研究啦，等狐表新版本更新，续费加密狗就完事了

主要是需要代码折叠和格式化缩进的代码。

新版本的狐表编辑器，有代码折叠和格式化缩进代码，续费升级就完事了

是自己要做一个读取字段里面字符的编辑功能。所以不是靠升级能解决的。

主题：狐表窗口如何引用三方编辑器