AW: Schaltbutton mit Schleifenfunktionen
Werner
Button bei 1. Klick rot, bei 2. Klick grün
ich würde erne eine Button haben für folgende Funktion:
Beim Start des Formulars ist er grün und es steht "Freigabe" drauf. Dann beim Klicken soll er auf rot wechslen und es soll "sperren" draufstehen.
Wenn ich dann wieder Klicke wird er wieder grün und es steht wieder "Freigabe" drauf.
Freigabe bedeuted dass er das "Frame2" freigeben soll und bei sperren soll er das "Frame2" wieder sperren... eigentlich logisch...
du kannst ja ganz einfach 2 CB machen, einer rot, einer grün. und beim klick auf den einen wird der andere ein und auf den geklickt wurde ausgeblendet:
Private Sub CommandButton1_Click()
CommandButton1.Visible = False
CommandButton2.Visible = True
End Sub
Private Sub CommandButton2_Click()
CommandButton1.Visible = True
CommandButton2.Visible = False
End Sub
###################### oder
Private Sub cmdFreiSperren_Click()
With cmdFreiSperren
If .BackColor = &HFF00& Then
.BackColor = &HFF&
.Caption = "sperren"
Else
.BackColor = &HFF00&
.Caption = "freigeben"
End If
End With
End Sub
############################## oder
natürlich geht das. Nimm eine Umschaltfläche (Togglebutton).Folgendes Beispiel:
Private Sub ToggleButton1_Click()
With Me.ToggleButton1
If .Value = False Then
.Caption = "Freigabe"
.BackColor = &HC000&
Me.Frame2.Enabled = True
Else
.BackColor = &HFF&
.Caption = "Sperren"
Me.Frame2.Enabled = False
End If
End With
End Sub
Gruß aus'm Pott
Udo
http://www.excelerator.de
###########################