Foxtable(狐表)用户栏目专家坐堂 → [求助] 代码生成配置栏子菜单


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

主题:[求助] 代码生成配置栏子菜单

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


加好友 发短信
等级:三尾狐 帖子:604 积分:6988 威望:0 精华:0 注册:2012/5/30 16:01:00
[求助] 代码生成配置栏子菜单  发帖心情 Post By: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

 回到顶部