Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Schleifenproblem
Autor: erichohrisch
Datum: 03.04.05 00:02
Verstehe ich nicht Timer1.Interval = CLng(Text1.Text) * 1000 Dim lngLeft As Long Dim lngTop As Long Do If Timer1.Enabled = False Then dx = Screen.Width / Screen.TwipsPerPixelX - 10 dy = 5 Timer1.Enabled = True lngLeft = Shape1.Left + Shape1.Width / 2 lngTop = Shape1.Top + Shape1.Height / 2 lngLeft = Form1.ScaleX(lngLeft, Form1.ScaleMode, vbPixels) lngTop = Form1.ScaleY(lngTop, Form1.ScaleMode, vbPixels) Call MoveMouse(lngLeft, lngTop) End If DoEvents Loop Wenn der code so ist, dann wiederholt er den command1, nur halt ohne ende, aber erst nachdem alles durchgeführt ist,

Schleifenproblem	639	erichohrisch	02.04.05 20:43
Re: Schleifenproblem	443	Alexander	02.04.05 20:51
Re: Schleifenproblem	413	erichohrisch	02.04.05 22:49
Re: Schleifenproblem	412	mst547	02.04.05 23:04
Re: Schleifenproblem	415	erichohrisch	02.04.05 23:10
Re: Schleifenproblem	409	mst547	02.04.05 23:47
Re: Schleifenproblem	396	erichohrisch	03.04.05 00:02
Re: Schleifenproblem	397	mst547	03.04.05 00:08
Re: Schleifenproblem	392	erichohrisch	03.04.05 00:20
Re: Schleifenproblem	455	Alexander	03.04.05 11:28
Re: Schleifenproblem	398	erichohrisch	03.04.05 16:39
Re: Schleifenproblem	427	Alexander	05.04.05 12:30

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