请教动态绑定的方式
Dim ct As New ICSharpCode.TextEditor.TextEditorControl
ct.Dock = System.Windows.Forms.DockStyle.Fill '填充整个
ct.Name = "TextEditor"
ct.Font = New Font("宋体",10)
ct.BorderStyle=BorderStyle.Fixed3D '边框效果
ct.LineViewerStyle = 1 '整行标色1 无 0
ct.Encoding = System.Text.Encoding.UTF8 '无BOM的UTF8 System.Text.Encoding.UTF8 new System.Text.UTF8Encoding(False)
ct.ShowEOLMarkers = True '显示换行光标,推荐false
ct.ShowHRuler = True '显示上标尺,推荐true
ct.ShowInvalidLines = True '显示无用空行的标志,推荐false
ct.ShowTabs = True '显示缩进符
ct.ShowSpaces = True '显示空格符
ct.ShowMatchingBracket = True '显示匹配括号
ct.ShowInvalidLines = True
ct.ShowVRuler = False '显示垂直虚拟尺子
ct.ShowHRuler = False '显示水平虚拟尺子
ct.AllowCaretBeyondEOL = False '是否允许直接在空白处开始编辑
ct.ConvertTabsToSpaces = True '用空格符替换tab效果
ct.Document.HighlightingStrategy = ICSharpCode.TextEditor.Document.HighlightingStrategyFactory.CreateHighlightingStrategy("TSQL")
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)
ct.BindingField = "订单.公式" '无此方式
Dim t As ICSharpCode.TextEditor.TextEditorControl = e.Form.Controls("Panel1").BaseControl.controls("TextEditor")
t.BindingContext= "订单.公式" '有此属性过不了
此主题相关图片如下:qq截图20210915154228.png
[此贴子已经被作者于2021/9/15 15:43:01编辑过]