Toggle Button
29.12.2007 18:35:00
klaro
Ein Problem!
Dieser ToggleButton arbeitet gut
Jedoch ist ein eindeutiger zustand nicht
Erkennbar trotz Schrift und Farbe!!
Ich benutze ausfuehren=True als Trigger
Also
If ausfuehren =True Then ..
Eimal liegt es unter STOP aber andersmal
UnterSTART
Wer kann helfen?
Private Sub ToggleButton1_Click()
ausfuehren = Not ausfuehren
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "STOP"
ToggleButton1.ForeColor = 14
ToggleButton1.BackColor = RGB(255, 255, 0)
Else
ToggleButton1.Caption = "START"
ToggleButton1.ForeColor = 70
ToggleButton1.BackColor = RGB(0, 255, 255)
End If
End Sub
Grüße
klaro