Foxtable(狐表)用户栏目专家坐堂 → 如何历遍控件种类


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

主题:如何历遍控件种类

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


加好友 发短信
等级:五尾狐 帖子:1032 积分:8989 威望:0 精华:0 注册:2015/8/12 16:28:00
如何历遍控件种类  发帖心情 Post By:2018/6/28 19:09:00 [只看该作者]

For Each r As RibbonMenu.Tab In RibbonTabs
    For Each g As RibbonMenu.Group In r.Groups
        For Each rc In g.Items
             If Typeof rc Is RibbonMenu.Button Then
                   Dim Buttont As RibbonMenu.Button
                     Buttont = rc
                   dr("Ctitle")=Buttont.Text
                  dr("tableaddress")=buttont.Name
            If Typeof rc Is RibbonMenu.label Then
。。。。。

类似上述代码,准备历遍控件然后改变控件的TEXT,类似于英文界面和中文界面。
但不是所有的都有Text。
请问如何快速历遍控件的不同类型?

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


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

msgbox(rc.gettype.name) '弹出类型名

 

然后判断,如

 

Select case rcgetype.name

    case "类型1", "类型2", "类型3"  

        dr("Ctitle")=rc.Text
        dr("tableaddress")=rc.Name

End Select


 回到顶部