2020年6月10日 星期三

vb.net 等待webbrowser讀取完成 [Wait WebBrowser Load] 


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
    Private Property pageready As Boolean = False

#Region "Page Loading Functions"
    Private Sub WaitForPageLoad()
        AddHandler wbwPrincipal.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
        While Not pageready
            Application.DoEvents()
        End While
        pageready = False
    End Sub







1
2
3
4
5
6
7
8
    Private Sub PageWaiter(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
        If wbwPrincipal.ReadyState = WebBrowserReadyState.Complete Then
            pageready = True
            RemoveHandler wbwPrincipal.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
        End If
    End Sub

#End Region
於
標籤： , , , ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)