'全局代码
Public Sub SaveCode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Functions.Execute("Design_SaveCode")
End Sub
Public hszd As new Dictionary(of String,String)
Public hsdms As new Dictionary(of String,String)
'Design_SaveCode在命令窗口编辑后,保存代码
Dim code As String
Dim frm As System.Windows.Forms.Form = System.Windows.Forms.Form.ActiveForm
Dim obj = frm.controls("SplitContainer1")
If obj.name = "SplitContainer1" Then
Dim editor = obj.panel1.controls("MyCodeEditor21").Controls("SplitContainer1").Panel1.Controls("SplitContainer2").panel1.controls("Editor")
'msgbox(editor.text)
CurrentTable.value = editor.text
'frm.close
End If
'addhs
Dim hsmc As String = args(0)
Dim dm As String = args(1)
Functions.Add(hsmc,dm)
Functions.Complie()
这是以前的导航使用的代码和函数，现在有没有新的办法，把导航菜单和代码放在表里面，方便修改的。
加好友 
发短信
Post By：2022/12/9 14:28:00 [只看该作者]
