click and unclick on button

[sal21]

peraphs just post, but not found...

i remember only a static or boolean condition..

i need to click to go my sub and if i reclick goto mysub1...

[HansV]

Something like this:

Code: Select all

Private Sub MyButton_Click()
    Static f As Boolean
    f = Not f
    If f Then
        Call MySub
    Else
        Call MySub1
    End If
End Sub

Alternatively, use the caption of the button:

Code: Select all

Private Sub MyButton_Click()
    If MyButton.Caption = "This" Then
        Call MySub
        MyButton.Caption = "That"
    Else
        Call MySub1
        MyButton.Caption = "This"
    End If
End Sub

[sal21]

Something like this:

Code: Select all

Private Sub MyButton_Click()
    Static f As Boolean
    f = Not f
    If f Then
        Call MySub
    Else
        Call MySub1
    End If
End Sub

Alternatively, use the caption of the button:

Code: Select all

Private Sub MyButton_Click()
    If MyButton.Caption = "This" Then
        Call MySub
        MyButton.Caption = "That"
    Else
        Call MySub1
        MyButton.Caption = "This"
    End If
End Sub

NICE!

[SpeakEasy]

>click and unclick on button

Sounds to me like you are trying to implement t your own version of a togglebutton - which already exists for userforms, and they already have the equivalent of a static variable representing current status. So you can go with

Code: Select all

Private Sub ToggleButton1_Click()
    With ToggleButton1
        If .Value Then
            .Caption = "Clicked"
        Else
            .Caption = "Unclicked"
        End If
    End With
End Sub