Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

simulation
Autor: Nico
Datum: 07.01.02 15:17
Hi schaut mal,mit dem Code las ich ein Shape in einer Form bewegen.Funt aber nur in Uhrzeigersinn.Kann mir jemand sagen wo und wie ich abfragen muß damit das Shape sich auch mal in andere Richtung bewegt. Sub thengo() Dim x As Long Do While sh1.Top >= Me.ScaleTop And sh1.Left <= Me.ScaleWidth sh1.Move sh1.Left + 1, sh1.Top - 1 Loop Do While sh1.Left <= Me.ScaleWidth And sh1.Top <= Me.ScaleHeight sh1.Move sh1.Left + 1, sh1.Top + 1 Loop Do While sh1.Left >= Me.ScaleLeft And sh1.Top <= Me.ScaleHeight sh1.Move sh1.Left - 1, sh1.Top + 1 Loop Do While sh1.Left >= Me.ScaleLeft And sh1.Top >= Me.ScaleTop sh1.Move sh1.Left - 1, sh1.Top - 1 Loop thengo Ist bestimmt ein dummer Denkfehler, aber ich komme nicht drauf. Bis dahin Nico

simulation

91

Nico

07.01.02 15:17

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