照着大红袍老师的帖子对代码编辑器做了改造，帖子链接如下：
昨日升级到最新版本，里面有些代码执行不了，应该是代码编辑器里的控件名改变了，比如：
'调用Notepad++
Dim CodeRichTextBox As Windows.Forms.RichTextBox
Dim frm = args(0)
If frm.name = "Class197" Then
CodeRichTextBox = frm.Controls("SplitContainer1").Panel1.Controls("MyCodeEditor21").Controls("SplitContainer1").Panel1.Controls("SplitContainer2").panel1.controls("Editor")
Else
CodeRichTextBox = frm.Controls("MyCodeEditor1").Controls("SplitContainer1").Panel1.Controls("SplitContainer2").panel1.controls("Editor")
End If
执行错误。
--------------------------------
再比如：
Dim frmCodeEditor As Windows.Forms.Form = Windows.Forms.Form.ActiveForm
If frmCodeEditor Is Nothing Then
Return
End If
If frmCodeEditor.Name <> "Class197" And frmCodeEditor.Name <> "Class260" Then
Return
End If
Dim tbtn
If frmCodeEditor.name = "Class197" Then
tbtn = frmCodeEditor.controls("Button5")
Else
tbtn = frmCodeEditor.controls("btnSQL")
End If
也定义不到tbtn。
请帮忙指点，谢谢！
[此贴子已经被作者于2018/7/12 10:24:54编辑过]
加好友 
发短信
Post By：2018/7/12 10:21:00 [只看该作者]
此主题相关图片如下：6c1.tmp.jpg