Toolbar的tbrCheck样式下怎么让Value为按下时按钮无响应
我的意思是这样，Toolbar有几个按钮，我想要保证至少有一个按钮被按下了。样式里我都设置成了tbrCheck，当按钮被按下后，再点它时不会再弹起而是没有动作，这个要怎么弄？我在里面加了下面的代码也没用
Visual Basic code?Private Sub Toolbar_ButtonClick(ByVal Button As MSComCtlLib.Button) On Error Resume Next Select Case Button.Key Case "AA" If Toolbar.Buttons("AA").Value = tbrUnpressed Then Toolbar.Buttons("AA").Value = tbrPressed Exit Sub End If Toolbar.Buttons("BB").Value = tbrUnpressed Case "BB" If Toolbar.Buttons("BB").Value = tbrUnpressed Then Toolbar.Buttons("BB").Value = tbrPressed Exit Sub End If Toolbar.Buttons("AA").Value = tbrUnpressed End SelectExit Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button) Select Case Button.Caption Case "1" MsgBox "点击了【功能1】" If Toolbar1.Buttons(1).Value = tbrUnpressed Then Toolbar1.Buttons(1).Value = tbrUnpressed End If Case "2" MsgBox "点击了【功能2】" If Toolbar1.Buttons(2).Value = tbrUnpressed Then Toolbar1.Buttons(2).Value = tbrUnpressed End If Case "3" MsgBox "点击了【功能3】" If Toolbar1.Buttons(3).Value = tbrUnpressed Then Toolbar1.Buttons(3).Value = tbrUnpressed End If End Select End Sub