以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]系统的功能区功能组标准按钮菜单可以用程序形成么？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140906)
--  作者：新福星
--  发布时间：2019/9/17 13:31:00
--  [求助]系统的功能区功能组标准按钮菜单可以用程序形成么？
系统的菜单设计。功能区、功能组、项目、标准按钮如何用程序自动形成么？举例介绍一下！谢谢
--  作者：有点蓝
--  发布时间：2019/9/17 13:55:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=661079&ID=95909&skin=1
--  作者：新福星
--  发布时间：2019/9/17 17:22:00
--  
谢谢！菜单中的图标怎么加进去呢？
--  作者：有点蓝
--  发布时间：2019/9/17 17:50:00
--  
http://www.foxtable.com/webhelp/topics/1100.htm
--  作者：新福星
--  发布时间：2019/9/17 19:07:00
--  
感谢！这个例子运行的速度太慢了
--  作者：有点蓝
--  发布时间：2019/9/17 20:28:00
--  
动态编译的，肯定慢。不用每增加一个函数就编译一次，全部增加完毕后再统一编译，会快很多。

或者不要动态函数的方式，使用这种流程语句区分不同的菜单

Select Case dr("菜单组件类型")
    Case "按钮"
        Dim b As New RibbonMenu.Button(dr("菜单组件名称"))
        b.Text= dr("菜单组件名称")
        g.Items.Add(b)
    Case "文本框"
        Dim b As New RibbonMenu.TextBox(dr("菜单组件名称"))
        b.Text= dr("菜单组件名称")
        g.Items.Add(b)
    Case "xxx类型"
End Select