Foxtable(狐表)用户栏目专家坐堂 → 如何动态增加下拉按钮?


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

主题:如何动态增加下拉按钮?

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


加好友 发短信
等级:五尾狐 帖子:1030 积分:8973 威望:0 精华:0 注册:2015/8/12 16:28:00
如何动态增加下拉按钮?  发帖心情 Post By:2018/5/25 16:04:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:capture.png
图片点击可在新窗口打开查看
我在菜单设计里面的想要动态增加按钮,如图是固定的3个下拉按钮。我想根据表里面的内容,自动增加。
请问如何操作?

我在帮助里面看到,在自己建立的窗口里面可以通过add的方式加,但我想在主界面里面加,怎么做?

ItemMouseEnter事件在鼠标进入菜单项目时执行,这样鼠标每次进入“选择列”项目时,就会自动针对当前表的所有列,分别生成一个菜单项目。

Items的Add方法语法是:

Add(Name, Text, ImageFile, Type, Delimiter)

Name:      指定项目名称
Text:      指定项目标题
ImageFile: 指定项目的图标文件
Type:      指定项目的类型,
StripItemTypeEnum类型,包括MenuItemButton LabelSplitButton四个候选值。
Delimiter: 可选参数,逻辑型,是否在该项目前面插入一个分割条。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/25 16:07:00 [只看该作者]


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


加好友 发短信
等级:五尾狐 帖子:1030 积分:8973 威望:0 精华:0 注册:2015/8/12 16:28:00
  发帖心情 Post By: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

这段可行,改改表名称等路径即可

 回到顶部