Geschrieben von m14 am 23.06.2004, 09:39

Zum Bewegen verändert man einfach die Left und Top-Werte des Elemenetes.
Hier ist ein Beispiel
Erstelle ein Label und nenne es lblFigur
Ändere Hintergrundfarbe auf schwarz.

dann gib folgenden text ein:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then
'beim Dürcken der linken taste
lblFigur.Left = lblFigur.Left - 120
' bewegt sich das element nach links
ElseIf KeyCode = vbKeyRight Then
'bei Drücken der der rechten taste
lblFigur.Left = lblFigur.Left + 120
' bewegt sich das element nach rechts
ElseIf KeyCode = vbKeyUp Then
'beim Drücken der oberen taste
lblFigur.Top = lblFigur.Top - 120
' bewegt sich das element nach oben
ElseIf KeyCode = vbKeyDown Then
'beim Drücken der unteren taste
lblFigur.Top = lblFigur.Top + 120
' bewegt sich das element nach unten
End If
End Sub

Somit bewegt man steuerelemente.
Diese können natürlich auch größere bewegungen machen
oder durch einen timer ausgeführt werden

Bewertung Anzahl
5
100,0 %
1 Bewertungen