Moinsen,
hab heute mal ein wenig mit dem Akionlistener herumprobiert. Hier folgender Code:
Hinzufgeüft muss noch ein Panel mit den Namen pnlQuader. Sobald man das Prog startet, kann man mit den Pfeiltasten das Ding steuern.
Leider funktioniert das ganze nicht mehr, sobald ein Objekt z.b. Button oder Textbox in dem Feld enthalten ist.
Ich bin so weit gekommen, dass es zu 90% an dem Fokus liegt.
Wie lege ich den Fokus wieder auf die Form?
Lg
denni
hab heute mal ein wenig mit dem Akionlistener herumprobiert. Hier folgender Code:
Visual Basic-Quellcode
- Public Class KeyDown
- Dim form1 As New Form
- Dim links As Boolean
- Dim rechts As Boolean
- Dim oben As Boolean
- Dim unten As Boolean
- Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
- 'RECHTS BEWEGEN
- If e.KeyValue = System.Windows.Forms.Keys.Right Then
- rechts = True
- 'LINKS BEWEGEN
- ElseIf e.KeyValue = System.Windows.Forms.Keys.Left Then
- links = True
- ElseIf e.KeyValue = System.Windows.Forms.Keys.Up Then
- oben = True
- ElseIf e.KeyValue = System.Windows.Forms.Keys.Down Then
- unten = True
- End If
- End Sub
- Private Sub Form1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
- 'SOBALD DIE TASTE LOSGELASSENW IRD RECHTS BEWEGEN STOP
- If e.KeyValue = System.Windows.Forms.Keys.Right Then
- rechts = False
- 'LINKS BEWEGEN STOP
- ElseIf e.KeyValue = System.Windows.Forms.Keys.Left Then
- links = False
- ElseIf e.KeyValue = System.Windows.Forms.Keys.Up Then
- oben = False
- ElseIf e.KeyValue = System.Windows.Forms.Keys.Down Then
- unten = False
- End If
- End Sub
- Private Sub KeyDown_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- form1.Show()
- form1.Focus()
- timer.Start()
- End Sub
- Private Sub timer_Tick(sender As Object, e As EventArgs) Handles timer.Tick
- If oben = True Then
- pnlQuader.Location = New Point(pnlQuader.Location.X, pnlQuader.Location.Y - 10)
- ElseIf links = True Then
- pnlQuader.Location = New Point(pnlQuader.Location.X - 10, pnlQuader.Location.Y)
- ElseIf rechts = True Then
- pnlQuader.Location = New Point(pnlQuader.Location.X + 10, pnlQuader.Location.Y)
- ElseIf unten = True Then
- pnlQuader.Location = New Point(pnlQuader.Location.X, pnlQuader.Location.Y + 10)
- End If
- End Sub
Hinzufgeüft muss noch ein Panel mit den Namen pnlQuader. Sobald man das Prog startet, kann man mit den Pfeiltasten das Ding steuern.
Leider funktioniert das ganze nicht mehr, sobald ein Objekt z.b. Button oder Textbox in dem Feld enthalten ist.
Ich bin so weit gekommen, dass es zu 90% an dem Fokus liegt.
Wie lege ich den Fokus wieder auf die Form?
Lg
denni