請問菜單功能區功能組標準按鈕的標題代碼如何表示? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 請問菜單功能區功能組標準按鈕的標題代碼如何表示?

共有4795人关注过本帖树形打印复制链接主题：請問菜單功能區功能組標準按鈕的標題代碼如何表示?

tennis

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

加好友

发短信

等级：六尾狐帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00

請問菜單功能區功能組標準按鈕的標題代碼如何表示? 发帖心情

Post By：2013/12/16 17:24:00 [只看该作者]

如題.

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/16 17:27:00 [只看该作者]

代码设置标题? 设置其text="标题" 即可.

tennis

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

加好友

发短信

等级：六尾狐帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00

Post By：2013/12/16 17:49:00 [只看该作者]

謝謝,我想知道某一標準按鈕其標題是甚麼?

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/16 17:52:00 [只看该作者]

Click事件 messageobx.show(e.sender.text) 即可获得其标题

tennis

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

加好友

发短信

等级：六尾狐帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00

Post By：2013/12/17 8:04:00 [只看该作者]

謝謝回答, 如下代碼,我希望得到標題內容 :

For Each a1 As RibbonMenu.Tab In RibbonTabs
    For Each a2 As RibbonMenu.group In a1.Groups
        For Each a3 As RibbonMenu.RibbonItem In a2.Items
            Dim r As Row = CurrentTable.Rows.AddNew()
            R("第一列")= a1.name
            R("第二列")= a2.name
            R("第三列")= a3.name
            R("標題")= a3.text     '標題出錯誤!!

            MSGBOX(A1.NAME &" " & A2.NAME & " " & A3.NAME )
            If Typeof a3 Is RibbonMenu.Button
                Output.Show("aaaaaa" & a3.name)
            End If
        Next
    Next
Next