ButtonMenu对象和ButtonMenuClick 事件示例 本例在一个Toolbar 控件中添加五个 Button 对象,并且向每个 Button 对象添加二个 ButtonMenu 对象。单击ButtonMenu对象时,其行为由ButtonMenuClick事件来决定。为了试验本例,在窗体中放置一个 Toolbar 控件,将代码粘贴到代码模块的声明部分。Option ExplicitPrivate Sub Form_Load() Dim i As Integer Dim btn As Button
' 添加五个 Button 对象到 Toolbar 控件。 For i = 1 To 5 Set btn = Toolbar1.Buttons.Add(Caption:= i, Style:= tbrDropDown) ' 添加两个 ButtonMenu 对象到每一个Button。 btn.ButtonMenus.Add Text:="Help" btn.ButtonMenus.Add Text:="Options" Next i End SubPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ComctlLib.ButtonMenu) Select Case ButtonMenu.Index Case 1 MsgBox "Press the button." Case 2 MsgBox "Offer some option" End Select End Sub
Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key case "粘贴"
本例在一个Toolbar 控件中添加五个 Button 对象,并且向每个 Button 对象添加二个 ButtonMenu 对象。单击ButtonMenu对象时,其行为由ButtonMenuClick事件来决定。为了试验本例,在窗体中放置一个 Toolbar 控件,将代码粘贴到代码模块的声明部分。Option ExplicitPrivate Sub Form_Load()
Dim i As Integer
Dim btn As Button
' 添加五个 Button 对象到 Toolbar 控件。
For i = 1 To 5
Set btn = Toolbar1.Buttons.Add(Caption:= i, Style:= tbrDropDown)
' 添加两个 ButtonMenu 对象到每一个Button。
btn.ButtonMenus.Add Text:="Help"
btn.ButtonMenus.Add Text:="Options"
Next i
End SubPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ComctlLib.ButtonMenu)
Select Case ButtonMenu.Index
Case 1
MsgBox "Press the button."
Case 2
MsgBox "Offer some option"
End Select
End Sub
case "粘贴"
case "..." case eleseend select
end sub