In Visual Basic 2010 ein Panel per Tasten bewegen?

... komplette Frage anzeigen

1 Antwort

Es ist rechts einfach wenn man weiß wie es geht

Du brauchst 4 Timer(interval=1) und dein Panel

-----------
(Form1) Keydown Ereignis:

If e.keycode = keys.left than
Timer1.start
end if

If e.keycode = keys.down than
Timer2.start
end if

If e.keycode = keys.right than
Timer3.start
end if

If e.keycode = keys.up than
Timer4.start
end if

-------------------
(Form1) Keyup Ereignis:

If e.keycode = keys.left than
Timer1.stop
end if

If e.keycode = keys.down than
Timer2.stop
end if

If e.keycode = keys.right than
Timer3.stop
end if

If e.keycode = keys.up than
Timer4.stop
end if

------------------
Timer1 Ereignis:

Dim l als new Point
l.y = VAL(Panel1.location.y)
l.x = VAL(Panel1.location.x)-1
Panel1.location = l

--------------------
Timer2 Ereignis:

Dim d als new Point
d.y = VAL(Panel1.location.y)+1
d.x = VAL(Panel1.location.x)
Panel1.location = d

--------------------
Timer3 Ereignis:

Dim r als new Point
r.y = VAL(Panel1.location.y)
r.x = VAL(Panel1.location.x)+1
Panel1.location = r

--------------------
Timer1 Ereignis:

Dim u as new Point
u.y = VAL(Panel1.location.y)-1
u.x = VAL(Panel1.location.x)
Panel1.location = u

So sollte es klappen
PS: nicht 1 zu 1 übertragen aber so ist der Code

Auf Wunsch würde ich aber auch noch die Theorie schreiben

liebe Grüse ysz0507

Antwort bewerten Vielen Dank für Deine Bewertung

Was möchtest Du wissen?