ToolButton的简单问题？可我不会！

Question

在ButtonMenuClick事件里面我们可以发现：ButtonMenu.Text返回的是当前点击的下拉菜单（按钮）的文字，为了么达到你所说的效果，恐怕有点问题，但是我们可以在ButtonDropDown事件中（就是按下那个箭头的时候）控制这两个菜单的状态，虽然复杂了一点，但是可以勉强符合你的要求。

Answer 1

Option ExplicitPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
    Select Case ButtonMenu.Index
        Case 1
            ButtonMenu.Parent.ButtonMenus(1).Enabled = False
            ButtonMenu.Parent.ButtonMenus(2).Enabled = True
        Case 2
            ButtonMenu.Parent.ButtonMenus(1).Enabled = True
            ButtonMenu.Parent.ButtonMenus(2).Enabled = False
    End Select
End Sub

Answer 2

这个不难吧，给你示例：'响应buttonmenu单击事件中：
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
  select case buttonmenu.text
    case "连接"
   toolbar1.buttons(按钮名或索引号).buttonmenus("连接").enabled=false
   toolbar1.buttons(按钮名或索引号).buttonmenus("断开").enabled=true
   case "断开“
   '这里的代码我就不写了，和上面的一样
  end select 
end sub