[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^2: VB WebBrowserでページの切り替えが思うように出来ない 投稿日 ： 2015/08/15(Sat) 12:13 投稿者 ： まつ
| 魔界の仮面弁士様 いつも迅速で的確なアドバイスをありがとうございます。 ご指南頂きましたコードで目的の動作を確認しました。早速活用 させて頂きます。 DocumentCompleted側でNavigateさせる方法は以前に試して動作 しませんでした。何か記述ミスがあったようです。 タイマーイベントでのコードを載せます。手元に実際のコードが 無くて，こんな感じだったかなと記述したものです。 NavigateのたびにタイマーのEnabledをオンオフさせています。 助かりました。今後とも宜しくお願い致します。 Public Class Form1 Private count As Integer Private myUrl As String Private webGet As New Timers.Timer() Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load AddHandler webGet.Elapsed, AddressOf webGet_Event End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Button1.Enabled = False webGet.Interval = 100 webGet.Enabled = True End Sub Private Sub webGet_Event(ByVal source As Object, ByVal e As System.Timers.ElapsedEventArgs) webGet.Enabled = False If count = 0 Then myUrl = " http://www.google.co.jp/" If count = 1 Then myUrl = " http://www.microsoft.co.jp/" If count = 2 Then myUrl = " http://www.apple.co.jp/" WebBrowser1.Navigate(myUrl) End Sub Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) _ Handles WebBrowser1.DocumentCompleted If e.Url = DirectCast(sender, WebBrowser).Url Then Dim html As String = WebBrowser1.Document.Body.InnerHtml Console.WriteLine(html) If count < 3 Then count += 1 webGet.Enabled = True Else Button1.Enabled = True End If End If End Sub End Class |
をクリックするとツリー全体を一括表示します） - VB WebBrowserでページの切り替えが思うように出来ない - まつ 15/08/14-15:11No.11470