Office中国论坛/Access中国论坛

标题: 如何获得TOOLBAR下拉列表的值 [打印本页]

作者: zxp 时间: 2009-7-28 16:45
标题: 如何获得TOOLBAR下拉列表的值
如图

作者: asklove 时间: 2009-7-29 10:00
MSDN的TOOLBAR帮助信息

ButtonMenu对象和ButtonMenuClick 事件示例
本例在一个Toolbar 控件中添加五个 Button 对象，并且向每个 Button 对象添加二个 ButtonMenu 对象。单击ButtonMenu对象时，其行为由ButtonMenuClick事件来决定。为了试验本例，在窗体中放置一个 Toolbar 控件，将代码粘贴到代码模块的声明部分。

Option Explicit

Private 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 Sub
'你的问题是下面的例子
Private 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

作者: zxp 时间: 2009-7-29 14:49
谢了

作者: cdwlove 时间: 2015-10-31 11:23
！！！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)