Moin Leute, ich habe ein Problem... Und zwar ich habe Labels eingefügt und sobald z.B. Label1 die Farbe Blau hat, soll sich Label2 auf die Farbe Grün ändern und der Text dazu dann auch anders sein. Problem: Programm macht es nicht! Ich habe das gleiche bei vorherigen Labels ebenfalls gemacht und bei dem geht das dann nicht mehr. Das ganze wird von Hotkeys unterstützt heißt, wenn ich Pfeiltaste rechts drücke und Label1 Blau ist --> Label2 Grün und anderer Text. Ich zeig euch mal den Code!
Das sind die Farben, die die Labels per Taste runter und hoch bekommen
Und das ist der Code wenn ich nach links und rechts drücke! Und da hab ich euch markiert ab wo es nicht mehr geht!
Ich hoffe ihr könnt mir helfen!
Das sind die Farben, die die Labels per Taste runter und hoch bekommen
Quellcode
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- If GetAsyncKeyState(Keys.Down) = -32767 Then
- If Label1.ForeColor = Color.Blue Then
- Label1.ForeColor = Color.Silver
- Label2.ForeColor = Color.Blue
- Label10.ForeColor = Color.Silver
- Label14.ForeColor = Color.Silver
- Exit Sub
- End If
- If Label2.ForeColor = Color.Blue Then
- Label2.ForeColor = Color.Silver
- Label1.ForeColor = Color.Silver
- Label10.ForeColor = Color.Blue
- Label14.ForeColor = Color.Silver
- Exit Sub
- End If
- If Label10.ForeColor = Color.Blue Then
- Label10.ForeColor = Color.Silver
- Label2.ForeColor = Color.Silver
- Label1.ForeColor = Color.Silver
- Label14.ForeColor = Color.Blue
- Exit Sub
- End If
- If Label14.ForeColor = Color.Blue Then
- Label14.ForeColor = Color.Silver
- Label1.ForeColor = Color.Blue
- Label10.ForeColor = Color.Silver
- Label2.ForeColor = Color.Silver
- Exit Sub
- End If
- End If
- 'Pfeiltaste hoch
- If GetAsyncKeyState(Keys.Up) = -32767 Then
- If Label2.ForeColor = Color.Blue Then
- Label2.ForeColor = Color.Silver
- Label1.ForeColor = Color.Blue
- Label10.ForeColor = Color.Silver
- Exit Sub
- End If
- If Label1.ForeColor = Color.Blue Then
- Label1.ForeColor = Color.Silver
- Label2.ForeColor = Color.Silver
- Label10.ForeColor = Color.Silver
- Label14.ForeColor = Color.Blue
- Exit Sub
- End If
- If Label14.ForeColor = Color.Blue Then
- Label14.ForeColor = Color.Silver
- Label1.ForeColor = Color.Silver
- Label2.ForeColor = Color.Silver
- Label10.ForeColor = Color.Blue
- Exit Sub
- End If
- If Label10.ForeColor = Color.Blue
- Label10.ForeColor = Color.Silver
- Label2.ForeColor = Color.Blue
- Label14.ForeColor = Color.Silver
- Label1.ForeColor = Color.Silver
- Exit Sub
- End If
- End If
Und das ist der Code wenn ich nach links und rechts drücke! Und da hab ich euch markiert ab wo es nicht mehr geht!
Quellcode
- Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
- If GetAsyncKeyState(Keys.Right) = -32767 Then
- If Label1.ForeColor = Color.Blue Then
- Label3.ForeColor = Color.Lime
- Label3.Text = "[On]"
- 'Funktion
- Exit Sub
- End If
- If Label2.ForeColor = Color.Blue Then
- Label4.ForeColor = Color.Lime
- Label4.Text = "[On]"
- 'Funktion
- Exit Sub
- End If
- If Label10.ForeColor = Color.Blue Then
- Label9.ForeColor = Color.Lime
- Label9.Text = "[On]"
- 'Funktion
- End If
- Exit Sub
- If Label14.ForeColor = Color.Blue Then '//////////AB HIER TRITT DER FEHLER AUF!!
- Label15.ForeColor = Color.Lime
- Label15.Text = "[On]"
- 'Funktion
- Exit Sub
- End If
- End If
- '///////////////////////OFF///////////////////
- If GetAsyncKeyState(Keys.Left) = -32767 Then
- If Label1.ForeColor = Color.Blue Then
- Label3.ForeColor = Color.Red
- Label3.Text = "[Off]"
- 'Funktion
- Exit Sub
- End If
- If Label2.ForeColor = Color.Blue Then
- Label4.ForeColor = Color.Red
- Label4.Text = "[Off]"
- 'Funktion
- Exit Sub
- End If
- If Label10.ForeColor = Color.Blue Then
- Label9.ForeColor = Color.Red
- Label9.Text = "[Off]"
- ForceHostTMR.Stop()
- Exit Sub
- End If
- If Label14.ForeColor = Color.Blue Then
- Label15.ForeColor = Color.Red
- Label15.Text = "[Off]"
- 'Funktion
- End If
- Exit Sub
- End If
- End Sub
Ich hoffe ihr könnt mir helfen!