| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 代码生成配置栏子菜单 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76402) |
| -- 作者：coch2004 -- 发布时间：2015/10/28 13:57:00 -- [求助] 代码生成配置栏子菜单 如上题: For Each r As Row In Tables("menus").Rows Dim bt As New RibbonMenu.MenuButton(r("menuen")) With bt .AutoHideText = False .Text = r("menuen") End With configbar.Items.Add(bt) Dim tt As new RibbonMenu.Button("kkkkk") tt.Text="kkkkk" ConfigBar.Items(bt).add(tt) ***** 请教此处的正确写法,谢谢! Next |
| -- 作者：大红袍 -- 发布时间：2015/10/28 14:04:00 -- Dim bt As New RibbonMenu.MenuButton("aaa") bt.text = "aaa" configbar.Items.Add(bt) Dim tt As new RibbonMenu.Button("kkkkk") tt.Text="kkkkk" bt.items.add(tt) |
| -- 作者：mosquito1003 -- 发布时间：2016/1/8 23:03:00 -- 问下，按照下面的代码已经动态生成了配置栏菜单了 Dim bt As New RibbonMenu.MenuButton("aaa") bt.text = "aaa" configbar.Items.Add(bt) Dim tt As new RibbonMenu.Button("kkkkk") tt.Text="kkkkk" bt.items.add(tt) 我该如何为tt的标准按钮添加事件代码呢？ AddHandler tt.Click, AddressOf ModuleOpen_Click 我这样写好像是无法通过的？请高手们帮忙下。
|
| -- 作者：Hyphen -- 发布时间：2016/1/9 9:16:00 -- 在全局事件处理，参考 |