Doorgaan tijdens een loop

[SuperABC]

Hey,

Ik heb een opdracht gemaakt tijdens die opdracht moet er een pagina in een webbrowser worden geladen. Als de pagina geladen is moet hij verder gaan met de opdracht. Maar het probleem is nu dat het even duurt voor de webpagina geladen is. Nu kijk ik met een while loop of de pagina geladen is maar nu doet die niets anders meer dan continu de loop uitvoeren. De code is iets als:

Dim Gereed As Boolean = False

    Public Sub Opdracht()
        WebBrowser1.Navigate("blablabla")

        Do While Gereed = False
        'hij blijft dus kijken of gereed nog steeds false is, als het true is gaat die dus verder...
        Loop
        'hij komt dus uit de loop als gereed = true

        'blablabla

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Gereed = True
    End Sub

Nu is het probleem dat ondanks dat de webbrowser eerst moet nivigeren dat die dat niet doet doordat de loop het programma op den duur laat vast lopen.

Hoe maak je tijdens mijn opdracht een soort van pauze dat die weer verder gaat als Gereed = True? Zonder loop dus of Threading...

 

[evertVB]

Je kunt misschien DoEvents proberen:

        Do While Gereed = False
            DoEvents
        Loop
        ...

 

[SuperABC]

Ok, is gelukt was trouwens: Application.DoEvents()...