Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

alllle die mir helfen wollen
Autor: Mr nichtswisser
Datum: 14.01.02 13:44
hi, also ich hab einen bewegenen punkt auf der form und will das wenn er sich bewegt und gegen ein Label stötz, dann stehen bleibt da dies sowas wie eine WAND darstellen soll also wenn ihr idee dazu hab : Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'DIE BEWGUNG DES BILDES 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 ' SOLL STEHEN BLEIBEN WENN ES GEGEN DAS LABEL KOMMT If Image1 > wand And KeyCode = vbKeyRight Then Image1.Move Image1.Left - 20 End If End Sub PS: DANKE DANKE DANKE

alllle die mir helfen wollen

51

Mr nichtswisser

14.01.02 13: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