WebBrowserがロード完了したことを受け取る方法 (ID:141914)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > Do i = 5 Do While では無さそうなので、Do Until の意味でしょうか。 であれば、こうかな…。 Public Class Form1 Private htmlIndex As Integer Private Sub Navigate(ByVal index As Integer) Dim URL As String = String.Format("http://aaa.com/{0}.html", index) WebBrowser1.Navigate(URL) End Sub Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Me.Text = e.Url.ToString() htmlIndex += 1 If htmlIndex < 5 Then Navigate(htmlIndex) End If End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click htmlIndex = 1 Navigate(htmlIndex) End Sub End Class