1

VB 待機 Web ページの読み込みについて助けが必要です。1 つのボタン クリック => 1 つのページに移動して読み込みを待ち、1 つのラベル テキストを変更し、別のページに移動して読み込みを待ち、別のラベル テキストを変更し、別のページに移動して読み込みを待ち、ラベル テキストを変更します。私を助けてください、私はこのコードを試してみましたが、失敗しました...

Private Sub Button1_Click ...
WebBrowser1.Navigate("page1")
Label1.Text = "Loaded" 'but this show before the page loaded
WebBrowser1.Navigate("page2") 'this start loading before the page1 loaded
Label2.Text = "Loaded" 'but this show before the page loaded
WebBrowser1.Navigate("page3") 'this start loading before the page1 loaded
Label3.Text = "Loaded"
...
End Sub
4

1 に答える 1

0

どのページがロードされているかを追跡するだけです。Staticこれは、変数を使用して行うことができます。

最初の 1 つが完了すると (documentcompleted イベントが発生します)、次の 1 つをロードします。

Private Sub Button1_Click
    'Load the first page
    LoadNextPage
End Sub

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    'When the current page has finished loading - load the next page
    LoadNextPage
End Sub

Private Sub LoadNextPage
    Static page As Integer = 0 'set to page number we are loading
    'increment the page count
    page += 1
    'Load the appropriate page
    Select Case page
        Case 1
            WebBrowser1.Navigate("page1")
        Case 2
            Label1.Text = "Loaded 1 now loading 2" 
            WebBrowser1.Navigate("page2") 
        Case 3
            Label2.Text = "Loaded 2 now loading 3" 
            WebBrowser1.Navigate("page3") 
        Case Else
            Label3.Text = "Loaded All Documents"
    End Select
End Sub
于 2013-07-09T10:29:25.707 に答える