Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

HELP I NEED SOMEBODY
Autor: Mr nichtswisser
Datum: 14.01.02 15:26
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

HELP I NEED SOMEBODY	69	Mr nichtswisser	14.01.02 15:26
Re: HELP I NEED SOMEBODY	54	Tolwyn	14.01.02 16:23
DANK DANKE DANKE	46	Mr nichtswisser	14.01.02 17:31
DENK FEHLER (alle)	48	Mr nichtswisser	14.01.02 17:48
Re: DENK FEHLER (alle)	86	Tolwyn	15.01.02 11:56
THANKs	40	Mr nichtswisser	15.01.02 13:37

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