| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何历遍控件种类 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121082) |
| -- 作者：lur320 -- 发布时间：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。 请问如何快速历遍控件的不同类型？ |
| -- 作者：有点甜 -- 发布时间：2018/6/28 19:41:00 -- msgbox(rc.gettype.name) \'弹出类型名
然后判断，如
Select case rcgetype.name case "类型1", "类型2", "类型3" dr("Ctitle")=rc.Text End Select |