我想请教一下toolbar中插入的button,如果是tbrDropdown的怎么办？

Question

可以在toolbar的属性里添加...
也可以在toolbar的buttonDropDown事件中写代码...下面是我以前用VBsmart.com上面的xp风格菜单时的代码...Private Sub ToolbarMain_ButtonDropDown(ByVal Button As MSComctlLib.Button)    Dim X As Integer
    Dim Y As Integer
    X = Button.Left
    Y = Button.Height
    
    Select Case Button.Key
    Case "Base"
    
        With SMXPBase
            X = .ClientToScreenX(ToolbarMain.hWnd, X)
            Y = .ClientToScreenY(ToolbarMain.hWnd, Y)
            .PopupMenu .MenuItems.Key2ID("Popup"), X, Y
        End With
        
    Case "MoneyProcess"
        With SMXPMoneyProcess
            X = .ClientToScreenX(ToolbarMain.hWnd, X)
            Y = .ClientToScreenY(ToolbarMain.hWnd, Y)
            .PopupMenu .MenuItems.Key2ID("Popup"), X, Y
        End With
    End SelectEnd Sub

Answer 1

设置按钮的属性（名称，图片，Style）界面下方就是，选了tbrDropdown就可以插入菜单

Answer 2

    Dim TempButton As Button
    
    Set TempButton = Toolbar1.Buttons.Add(, , "Add", tbrDropdown, 3)
    TempButton.ButtonMenus.Add , , "MenuItem1"
    TempButton.ButtonMenus.Add , , "MenuItem2"
    TempButton.ButtonMenus.Add , , "MenuItem3"
    Set TempButton = Nothing