Foxtable(狐表)用户栏目专家坐堂 → 新版的导航不能用动态函数了,有没有新的办法


  共有6038人关注过本帖树形打印复制链接

主题:新版的导航不能用动态函数了,有没有新的办法

帅哥哟,离线,有人找我吗?
chongziwang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:180 积分:3466 威望:0 精华:0 注册:2018/3/5 14:39:00
新版的导航不能用动态函数了,有没有新的办法  发帖心情 Post By: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()

这是以前的导航使用的代码和函数,现在有没有新的办法,把导航菜单和代码放在表里面,方便修改的。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:180 积分:3466 威望:0 精华:0 注册:2018/3/5 14:39:00
  发帖心情 Post By:2022/12/9 16:40:00 [只看该作者]

不是这个菜单,我说的是左侧的导航,还有就是把代码保存在表里面,然后通过函数执行,这个现在有没有办法实现了。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/9 17:01:00 [只看该作者]

用法都一样的,只不过例子用的是菜单

 回到顶部