Hi,
ich würde gerne Form1_KeyDown innerhalb meines Timers aufrufen (es soll in der Private Sub Timer1_Tick überprüft werden, ob eine Taste gedrückt wurde. Wenn das der Fall ist, das sollen ein paar Aktionen ausgeführt werden.
Nun muss ich das sicher wie folgt aufrufen: Form1_KeyDown () -> nur was kommt in die Klammern damit es läuft??? Habe schon seit Stunden herumgesucht, aber noch keine Antwort gefunden. Bin für alles dankbar. Die Private Sub für Form1_KeyDown ist unten angegeben und funktioniert soweit, ich kann sie nur nicht im Timer aufrufen, da ich noch nicht verstanden habe, was ich für System.Object alles eingeben kann/muss.
PrivateSub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) HandlesMyBase.KeyDown, MyBase.KeyUp
Label1.Text = "neu"
If e.KeyCode = Keys.Left Then ball.Left -= 15If ball.Left <= 0 Then ball.Left += 15
EndSub
Danke im voraus. :)
P.S. Habe VB 2010
ich würde gerne Form1_KeyDown innerhalb meines Timers aufrufen (es soll in der Private Sub Timer1_Tick überprüft werden, ob eine Taste gedrückt wurde. Wenn das der Fall ist, das sollen ein paar Aktionen ausgeführt werden.
Nun muss ich das sicher wie folgt aufrufen: Form1_KeyDown () -> nur was kommt in die Klammern damit es läuft??? Habe schon seit Stunden herumgesucht, aber noch keine Antwort gefunden. Bin für alles dankbar. Die Private Sub für Form1_KeyDown ist unten angegeben und funktioniert soweit, ich kann sie nur nicht im Timer aufrufen, da ich noch nicht verstanden habe, was ich für System.Object alles eingeben kann/muss.
PrivateSub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) HandlesMyBase.KeyDown, MyBase.KeyUp
Label1.Text = "neu"
If e.KeyCode = Keys.Left Then ball.Left -= 15If ball.Left <= 0 Then ball.Left += 15
EndSub
Danke im voraus. :)
P.S. Habe VB 2010