Proprietà caption

Question

Ho creato un pulsante pulsante di comando e gli ho assegnato il nome con la proprieta caption.

Vorrei che il pulsante canbiasse nome con il verificarsi di una data condizione

Qual è l'istruzione che devo inserire nel form???

Grazie

bruno979

Answer 1

Adattando il tuo codice raggiungo il risultato, ma c'è ancora un problemino!

Private Sub btnBloccaRiga_Click()

    'frmStrumenti.Hide

    BloccaRiga

    If ActiveWindow.FreezePanes = False Then

        Me.btnBloccaRiga.Caption = "Blocca riga sup"

    ElseIf ActiveWindow.FreezePanes = True Then

        Me.btnBloccaRiga.Caption = "Sblocca riquadri"

    End If

    'Unload Me

End Sub

Con questo codice ottengo il risultato voluto se inibisco la funzione "Unload me". In altre parole la sostituzione di "Blocca riga sup." con "Sblocca riquadri" e viceversa è volatile. Riaprendo il form multipage (page 1) le cose rimangono come erano prima. La scritta "Blocca riga sup." non è stata materialmente sostituita con "Sblocca riquadri".

La scritta non è stata copiata in Caption. Come procedo?????

Modifica così l'evento:

Private Sub UserForm_Initialize()

    If ActiveWindow.FreezePanes = False Then

        Me.btnBloccaRiga.Caption = "Blocca riga sup"

    ElseIf ActiveWindow.FreezePanes = True Then

        Me.btnBloccaRiga.Caption = "Sblocca riquadri"

    End If

End Sub

che valuta lo stato di FreezePanes e fa il settaggio della Caption quando crei la UserForm. Quando fai lo Unload della UserForm, non rimane traccia di cosa hai modificato nella Caption del CommandButton.

Answer 2

Se la funzione blocca riquadri è attivata, allora sbocca riquadri.

Se la funzione blocca riquadri è disattivata, allora blocca riga superiore (blocca intestazione).

Questo è quanto fa il pulsante (che funziona da interruttore)

Ora vorrei che che anche il pulsante indicchi quale funzione viene attivata o disattivata quando si fa click su di esso.

Il codice:

With Me.CommandButton1

        If .Caption = "abc" Then

            .Caption = "xyz"

        Else

            .Caption = "abc"

        End If

    End With

non mi consente di cambiare la scritta da "blocca riquadri" a "sbocca riga sup." e viceversa quando si verifica la condizione

 If ActiveWindow.FreezePanes = True then

Spero di essermi chiarito.

Grazie per l'aiuto

Answer 3

In che cosa sbaglio???  Ecco la routine:

Private Sub btnBloccaRiga_Click()

    frmStrumenti.Hide

    BloccaRiga

    With Me.btnBloccaRiga

        If ActiveWindow.FreezePanes = True Then

            .Caption = "Sbocca riquadri"

        Else

            .Caption = "Blocca riga sup."

        End If

    End With

    Unload Me

End Sub

Cosa devi/vorresti fare? Dal codice non capisco. Grazie.

Answer 4

In che cosa sbaglio???  Ecco la routine:

Private Sub btnBloccaRiga_Click()

    frmStrumenti.Hide

    BloccaRiga

    With Me.btnBloccaRiga

        If ActiveWindow.FreezePanes = True Then

            .Caption = "Sbocca riquadri"

        Else

            .Caption = "Blocca riga sup."

        End If

    End With

    Unload Me

End Sub

Answer 5

Ho creato un pulsante pulsante di comando e gli ho assegnato il nome con la proprieta caption.

Vorrei che il pulsante canbiasse nome con il verificarsi di una data condizione

Qual è l'istruzione che devo inserire nel form???

Grazie

bruno979

Non hai specificato la condizione che deve cambiare la Caption del pulsante...

Questo codice modifica ad ogni click dello stesso la Caption(che di partenza è abc):

Private Sub CommandButton1_Click()

    With Me.CommandButton1

        If .Caption = "abc" Then

            .Caption = "xyz"

        Else

            .Caption = "abc"

        End If

    End With

End Sub

Se puoi essere più preciso su quello che vorresti, grazie.