以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  請問 菜單功能區 功能組 標準按鈕的標題代碼如何表示?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43830)
--  作者：tennis
--  发布时间：2013/12/16 17:24:00
--  請問 菜單功能區 功能組 標準按鈕的標題代碼如何表示?
如題.
--  作者：Bin
--  发布时间：2013/12/16 17:27:00
--  
代码设置标题?  设置其text="标题" 即可.
--  作者：tennis
--  发布时间：2013/12/16 17:49:00
--  
謝謝,我想知道某一標準按鈕其標題是甚麼?
--  作者：Bin
--  发布时间：2013/12/16 17:52:00
--  
Click事件 messageobx.show(e.sender.text) 即可获得其标题
--  作者：tennis
--  发布时间：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
--  作者：Bin
--  发布时间：2013/12/17 8:52:00
--  
For Each a1 As RibbonMenu.Tab In RibbonTabs
    For Each a2 As RibbonMenu.group In a1.Groups
        For i As Integer=0 To a2.Items.count-1
           output.show(a2.Items(i).text)
        Next
    Next
Next
--  作者：tennis
--  发布时间：2013/12/17 14:36:00
--  
謝謝,ok!
--  作者：tennis
--  发布时间：2013/12/25 7:08:00
--  

再則 該按鈕的事件代碼如何取得??
--  作者：狐狸爸爸
--  发布时间：2013/12/25 8:28:00
--  

无法获取。