in een 'do .. loop' een pauze invoeren

[MartinJM]

Hallo allemaal,

Ik ben bezig met een programmaatje waarin ik wil dat hij binnen een "do...loop" eventjes wacht. Eerst dacht ik dat dit wel met een timer kon, maar aangezien die "do .. loop" eigenlijk oneindig door moet blijven gaan, kan dat niet.

Daarna was ik op internet gaan zoeken en daar vond ik dit:

Threading.Thread.Sleep(1000)

Maar ook dit werkt niet naar behoren.

Het "do..loop"je waar het om gaat:

Do While Not parser.EndOfData
            Dim velden() As String = parser.ReadFields
            'hetgeen wat hij moet doen
Loop

En de "Threading.Thread.Sleep(1000)" had ik zo neergezet:

Do While Not parser.EndOfData
            Dim velden() As String = parser.ReadFields
            'hetgeen wat hij moet doen
            Threading.Thread.Sleep(1000)
Loop

Weet iemand hoe ik kan zorgen dat hij dan even blijft wachten??

Alvast bedankt!:thumb:

 

[evertVB]

        Dim n As Integer
        MsgBox("Begin")
        n = 0
        While n < 3000000
            n = n + 1
            Application.DoEvents()
        End While
        MsgBox("Ready")

 

[MartinJM]

Hoe moet ik dit gebruiken???

Toen ik dit er van had gemaakt, pauzeerde hij niet, maar bleef hij steeds hetzelfde uitvoeren:

        Dim n As Integer
        MsgBox("Begin")
        n = 0
        While n < 3000000
            n = n + 1
            uitvoeren()
        End While
        MsgBox("Ready")

(in uitvoeren hetgeen wat hij moet doen)

Enig idee??

 

[MartinJM]

Dit werkte wel:

Do While Not parser.EndOfData
            Dim velden() As String = parser.ReadFields
            'hetgeen wat hij moet doen
            Threading.Thread.Sleep(1000)
Loop

Maar ik had in een ander deel van mijn code een fout gemaakt

Toch bedankt voor alle hulp!!:thumb:

 

[evertVB]

Hoe moet ik dit gebruiken???

Toen ik dit er van had gemaakt, pauzeerde hij niet, maar bleef hij steeds hetzelfde uitvoeren:

        Dim n As Integer
        MsgBox("Begin")
        n = 0
        While n < 3000000
            n = n + 1
            uitvoeren()
        End While
        MsgBox("Ready")

(in uitvoeren hetgeen wat hij moet doen)

Enig idee??

Wat ik in elk geval bedoelde was dit:

        Doe wat je moet doen voor het wachten

        Dim n As Integer
        MsgBox("Begin")
        n = 0
        While n < 3000000
            n = n + 1
        End While
        MsgBox("Ready")

        Doe wat je moet doen na het wachten