For / if Schleife
Benny
Wenn ich nun einen Button drücke soll er mir Prüfen, welches denn nun diese backgroundfarbe hat und dieses Textfeld umbennen auf "Test" (ist nur zum sehen ob der Code geht, ich nutz das anders weiter)
Die Labels haben die Nummern WeapLabel15 - 21
Private Function weap_Labellock()
Dim y As Integer
For y = 15 To 21
If WeaponForm("WeapLabel" & y).BackColor = &HFFFFC0 Then
WeaponForm("WeapLabel" & y).Caption = "Test"
End If
Exit For
Next y
End Function
Anzeige