Visual Basic - Beitrag #7 - Post 239803 - Computer Hardware Forum - TweakPC -

BomberD · 01.02.2005, 21:03

Code:

 Private Sub cmdOnOFF_Click() 
 If label1.ForeColor = vbRed Then
   label1.Caption = "aktiviert"
   label1.ForeColor = &HC000&
 Else 
   label1.Caption = "deaktiviert"
   label1.ForeColor = vbRed 
 End If
End Sub

das sollte reichen
das exit sub ist über dafür haste ja das if then else

01.02.2005, 21:03	#7 (permalink)
BomberD Hardware Freak Registriert seit: 10.04.2002 Beiträge: 7.476	AW: Visual Basic Code: Private Sub cmdOnOFF_Click() If label1.ForeColor = vbRed Then label1.Caption = "aktiviert" label1.ForeColor = &HC000& Else label1.Caption = "deaktiviert" label1.ForeColor = vbRed End If End Sub das sollte reichen das exit sub ist über dafür haste ja das if then else