Hilfe!
Bin hier neu, in VB10 Anfänger und hoffe, im richtigen Forum zu sein.
Mein Problem:
Ich habe einen Kreis in meiner Form und möchte diesen mit den Pfeiltasten steuern. Solange ich also zB "Pfeil nach links" gedrückt halte, soll sich der Kreis nach links bewegen. Dazu hab ich folgenden Code geschrieben:
leider funzt das nicht. Warum? Und wie muss es richtig sein?
Code-Tags eingefügt. Thread-Tags angepasst (das ist kein VB6!). ~Thunderbolt
Bin hier neu, in VB10 Anfänger und hoffe, im richtigen Forum zu sein.
Mein Problem:
Ich habe einen Kreis in meiner Form und möchte diesen mit den Pfeiltasten steuern. Solange ich also zB "Pfeil nach links" gedrückt halte, soll sich der Kreis nach links bewegen. Dazu hab ich folgenden Code geschrieben:
VB.NET-Quellcode
- Private Sub Kreis_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
- If e.KeyCode = Keys.Down Then
- kreis.Location = New Point(kreis.Location.X, kreis.Location.Y - 1)
- End If
- If e.KeyCode = Keys.upThen
- kreis.Location = New Point(kreis.Location.X, kreis.Location.Y + 1)
- End If
- If e.KeyCode = Keys.leftThen
- kreis.Location = New Point(kreis.Location.X-1, kreis.Location.Y )
- End If
- If e.KeyCode = Keys.leftThen
- kreis.Location = New Point(kreis.Location.X+1, kreis.Location.Y )
- End If
- Application.DoEvents()
- End Sub
leider funzt das nicht. Warum? Und wie muss es richtig sein?
Code-Tags eingefügt. Thread-Tags angepasst (das ist kein VB6!). ~Thunderbolt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()