Toolbar的tbrCheck样式下如何让Value为按下时按钮无响应

2013-07-08

Toolbar的tbrCheck样式下怎么让Value为按下时按钮无响应本帖最后由 mpy2003 于 2013-06-29 12:31:24 编辑

Toolbar的tbrCheck样式下怎么让Value为按下时按钮无响应
本帖最后由 mpy2003 于 2013-06-29 12:31:24 编辑我的意思是这样，Toolbar有几个按钮，我想要保证至少有一个按钮被按下了。样式里我都设置成了tbrCheck，当按钮被按下后，再点它时不会再弹起而是没有动作，这个要怎么弄？我在里面加了下面的代码也没用

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 Select
Exit Sub

Toolbar VB
[解决办法]

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

热点排行