---

Hallo zusammen,

will eine Schleife in mein Tool einbauen, das das Tool so zu sagen für 10 sec. anhält. Habe das wie folgt versucht

For i = 0 To 999999
Next

Aber das interessiert den nicht. Was ist da falsch???

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

na Du must ihm schon was zu rechnen geben;-)
zB:
for i=0 to 999999
i=sqr(i*tan(i))
next

Das war jetzt zwar Blödsinn, aber es geht ja ums Prinzip.
Ansonsten suche mal nach sleep, hab auf die Schnelle
nur den gefunden: http://ww3.cad.de/foren/ubb/Forum259/HTML/000492.shtml#000001

sleep 1000 = 1 sec
sleep 10000 = 10 sec

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Nancy,

das hört sich gut an mit dem Sleep, leider kennt mein VB6 das nicht. Ist das vielleicht aus .net???

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Heiko, so in etwa muss das eingebunden werden:

Code:

---

Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test()
    Dim i As Byte
    For i = 1 To 3
        MsgBox i
        DoEvents
        Sleep 1000
    Next
End Sub

---

HTH, Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super, jetzt klappts. Danke schön!!!

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP