tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^4: こちらの方もですね。
投稿日: 2005/12/12(Mon) 15:17
投稿者花ちゃん
前回のコードでも最初の1回ならエラーはでなかったはずです。
2度目以降のクリック時にDo While AxWebBrowser1.Document.ReadyState <> "complete"
の部分が素通りされる為にエラーが起きているようです。
System.Windows.Forms.Application.DoEvents() の1行を入れるか待ち時間等を
作ってやればOKです。
一応、下記コードでも問題は起きないようです。

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
    AxWebBrowser1.Navigate("hhttps://tools.dti.ne.jp/gate/index.html")
    Do While AxWebBrowser1.Busy
        System.Windows.Forms.Application.DoEvents()
    Loop
    System.Windows.Forms.Application.DoEvents()
    '上記がないと2度目以降のクリックで下記が素素通りしてしまう
    Do While AxWebBrowser1.Document.ReadyState <> "complete"
        System.Windows.Forms.Application.DoEvents()
        Debug.WriteLine(AxWebBrowser1.Document.ReadyState)
    Loop
    For Each Radio As Object In AxWebBrowser1.Document.frames("top").Document.getElementsByName("dti_point")
        If Radio.value = "1" Then
            Radio.Checked = True
            Exit For
        End If
    Next
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。