I am having some trouble with this bit of code and i am not sure what is going wrong
It will do the first message box with
then it will do the next message box
but the third one never shows and I am lost below is the code for the WaitForPageLoad
pageready_letushide is set at the top of my program
any advise would be appreciated.
Code:
Dim pageviewer As Integer = My.Settings.max_views
Dim pageloop As Integer = 0
MsgBox(pageloop & "<" & pageviewer)
While pageloop < pageviewer
MsgBox("true")
'//////////////////
letushide_WaitForPageLoad()
Dim totallinks As Integer = 0
MsgBox("HERE")
pageloop += 1
End WhileIt will do the first message box with
Code:
0<2
Code:
true
Code:
Private Sub letushide_WaitForPageLoad()
AddHandler wb_letushide.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf letushide_PageWaiter)
While Not pageready_letushide
Application.DoEvents()
End While
pageready_letushide = False
End Sub
Private Sub letushide_PageWaiter(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
If wb_letushide.ReadyState = WebBrowserReadyState.Complete Then
pageready_letushide = True
RemoveHandler wb_letushide.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf letushide_PageWaiter)
End If
End Subpageready_letushide is set at the top of my program
Code:
Private Property pageready_letushide As Boolean = False