Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

HELP HELP HELP
Autor: Mr nichtswisser
Datum: 15.01.02 13:36
hi, hab ein kleines aber feines problem. Ich will das sich ein bild in diesem fall (Image1) bewegt, dieses soll dann durch ein label aufgehalten werden, sodass das bild nur durch eine freie stelle bzw wenn keine freie stelle da ist ,garnicht dort vorbei kommt. Doch mein versuch klappt aus irgend einen Grund nicht, denn bei mir kann man nicht tiefer als das label und man kann nicht mehr zurück gehen QUELLCODE: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'DIE BEWGUNG DES BILDES Select Case KeyCode Case Is = vbKeyRight If Not (Image1.Left + Image1.Width > Label1.Left + Label1.Width) Then Image1.Move Image1.Left + 20 End If Case Is = vbKeyLeft If Not (Image1.Left <= Label1.Left) Then Image1.Move Image1.Left - 20 End If Case Is = vbKeyDown If Not (Image1.Top + Image1.Height >= Label1.Top + Label1.Height) Then Image1.Move Image1.Left, Image1.Top + 20 End If Case Is = vbKeyUp If Not (Image1.Top <= Label1.Top) Then Image1.Move Image1.Left, Image1.Top - 20 End If End Select End Sub Ps DANKE im vorraus

HELP HELP HELP	100	Mr nichtswisser	15.01.02 13:36
Re: HELP HELP HELP	50	Dirk	16.01.02 18:01
MEIN PROBLEM	48	MasterH	16.01.02 21:27

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