如何历遍控件种类 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有1694人关注过本帖树形打印复制链接主题：如何历遍控件种类

lur320

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：983 积分：8628 威望：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

主题：如何历遍控件种类