以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  新版的导航不能用动态函数了，有没有新的办法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184476)
--  作者：chongziwang
--  发布时间：2022/12/9 14:28:00
--  新版的导航不能用动态函数了，有没有新的办法
\'全局代码
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()

这是以前的导航使用的代码和函数，现在有没有新的办法，把导航菜单和代码放在表里面，方便修改的。
--  作者：有点蓝
--  发布时间：2022/12/9 15:15:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=173791&authorid=0&page=0&star=2
看16楼项目
--  作者：chongziwang
--  发布时间：2022/12/9 16:40:00
--  
不是这个菜单，我说的是左侧的导航，还有就是把代码保存在表里面，然后通过函数执行，这个现在有没有办法实现了。
--  作者：有点蓝
--  发布时间：2022/12/9 17:01:00
--  
用法都一样的，只不过例子用的是菜单