以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何动态增加下拉按钮? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119484) |
-- 作者:lur320 -- 发布时间:2018/5/25 16:04:00 -- 如何动态增加下拉按钮? 此主题相关图片如下:capture.png 我在菜单设计里面的想要动态增加按钮,如图是固定的3个下拉按钮。我想根据表里面的内容,自动增加。 请问如何操作? 我在帮助里面看到,在自己建立的窗口里面可以通过add的方式加,但我想在主界面里面加,怎么做? ItemMouseEnter事件在鼠标进入菜单项目时执行,这样鼠标每次进入“选择列”项目时,就会自动针对当前表的所有列,分别生成一个菜单项目。 Add(Name, Text, ImageFile, Type, Delimiter) Name:
指定项目名称 |
-- 作者:有点甜 -- 发布时间:2018/5/25 16:07:00 -- 参考
http://www.foxtable.com/webhelp/scr/1134.htm
|
-- 作者:lur320 -- 发布时间:2018/5/27 12:42:00 -- With RibbonTabs("实战演练")("任务二")("ColList") .Items.Clear \'清除原有项目 For Each......\'遍历当前表中的列 \'定义一个标准按钮,按钮的名称等于列名称。 Dim b As New RibbonMenu.Button(....) b.Text = ..... \'按钮的标题也等于列名称 .Items.Add(b) Next End With 这段可行,改改表名称等路径即可
|