[VB] uitvoering tijdelijk onderbreken

[Limhes]

Is het mogelijk om binnen VB een rustpause aan te brengen?
Ik zit nu namelijk met het probleem dat een bestand nog niet direct bestaat, en hij het wel de volgende handeling nodig heeft.
Ook heb ik geen zin een lus te maken met 10000 cycles ofzo, dat vind ik zo vies staan.

Dus: is er een functie als Sleep() ofzo?

En ja, ik UTFS en google.

[Verwijderd]

code:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
  Debug.Print "Started - " & Time()
Sleep 1000
  Debug.Print "Ended - " & Time()
End Sub

Met google, 10 seconden...


edit: Google=Sleep&VB

[johnwoo]

Bedenk wel dat in VB je app doorgaans in 1 thread draait, en dat als je Sleep() gebruikt, de rest ervan dus ook compleet hangt!
Misschien is het dan beter om een loopje te maken met een DoEvents erin, dan kunnen in ieder geval je venstertjes nog verplaatst worden enzo...

[Janoz]

Op zaterdag 19 januari 2002 11:47 schreef Limhes het volgende:
Is het mogelijk om binnen VB een rustpause aan te brengen?
Ik zit nu namelijk met het probleem dat een bestand nog niet direct bestaat, en hij het wel de volgende handeling nodig heeft.
Ook heb ik geen zin een lus te maken met 10000 cycles ofzo, dat vind ik zo vies staan.

hmm .. een bepaalde tijd wachten tot een bestand bestaat vind ik net zo vies als een aktieve wachtlus.

Is het mischien niet handig om gewoon te wachten tot het bestand ook bestaat oid? Op die manier is de werking van je programma niet afhankelijk van bijvoorbeeld of een gebruiker tijdens het draaien van je programma nu wel of niet zijn hd defragmenteerd.

[BOOTZ]

idd een lusje die kijkt of het bestand bestaat
zoiets:

on error goto NogNiet
NogNiet:
doevents
open "bestandsnaam.txt" for input as #1
close #1

hij probeert dus het bestand te openen, lukt dat niet (on error) dan bestaat het nog niet en probeert ie het weer opnieuw... als het bestand nooit aangemaakt wordt zit je btw wel in een oneindige loop

[Verwijderd]

code:

dim pad as string

On error resume next '<--- Vies

pad = "c:\blaat\blaat.txt"

do
  doevents
loop until filelen(pad)

zo moet et