Toolbar的tbrCheck样式下怎么让Value为按下时按钮无响应

Question

本帖最后由 mpy2003 于 2013-06-29 12:31:24 编辑

Answer 1

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 SelectEnd Sub

Answer 2

问题解决了，在我的基础上把中间的Exit Sub去除。