Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

allleeee
Autor: Mr nichtswisser
Datum: 13.01.02 17:44
hi, naja diesmal hab ich ein scheiß problem kolisionserkennung oder so ich will das das bild nicht durch das label läuft doch irgend wie krieg ich das nicht hin vielleicht wollt ihr mir ja etwas behilflich dabei sein *HELP I NEED SOMEBODY* Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case Is = vbKeyRight Image1.Move Image1.Left + 20 Case Is = vbKeyLeft Image1.Move Image1.Left - 20 Case Is = vbKeyDown Image1.Move Image1.Left, Image1.Top + 20 Case Is = vbKeyUp Image1.Move Image1.Left, Image1.Top - 20 End Select '1 versuch If Image1 > wand And KeyCode = vbKeyRight Then Image1.Move Image1.Left - 20 End If '2 versuch If Image1.Left = wand.Left And KeyCode = vbKeyLeft Then Image1.Move Image1.Left + 20 End If End Sub

allleeee

48

Mr nichtswisser

13.01.02 17:44

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen