|
> その発生を待って処理する、即ち DocumentCompleted イベントにハンドラをアタッチして、そ
> のハンドラの中で処置するべきです。
>
ありがとうございます。
こういう感じでよろしいのででしょうか?
Form1にWebBroser1,Timer1を張り付けて
以下のコードをペーストします。
Public Class Form1
Public WebDocumentCompleted As Boolean = False
Public NavigateNum As Integer = 0 'NavigateComplete内で処理の仕分けをするため
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = 500 'NavigateCompleteできない場合 5秒待つ
WebBrowser1.Navigate("https://hoge.com/")
NavigateNum = 1
End Sub
Private Sub WebBrowser1_Navigating(sender As Object, e As WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
Timer1.Enabled = True 'タイマー開始
WebDocumentCompleted = False '初期値セット
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
WebDocumentCompleted = True
AfterNavigate()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
If WebDocumentCompleted = False Then
WebDocumentCompleted = True
AfterNavigate()
End If
End Sub
Private Sub AfterNavigate()
Select Case NavigateNum
Case 1
'WebBrowser1.Navigate("https://hoge.com/")を処理後の処理
Case 2
'他の処理
Case 3
'他の処理
' ┋
End Select
End Sub
End Class
お教えいただいて 自分で思いついたのは これくらいなんですが、
もしも、DocumentCompleted イベントにハンドラをアタッチして、そのハンドラの中で処置する コードをご存知でしたら お教えいただけましたら幸いでございます。どうぞよろしくお願いいたします。
|