0

それが私のコードです:

    Dim num as integer = 0
    For Each s As String In ListBox1.Items
        num = num + 1
        Dim web(num) As WebBrowser
        RefreshIESettings(s)
        Web(num).Navigate("http://www.google.com") 'There's the error
        wait("5000")
        MsgBox(Web(num).Document.Title)
    Next

そして、私がこれを行う場合にのみ、このエラーが発生します:

    Dim webb As WebBrowser
    RefreshIESettings(s)
    Webb.Navigate("http://www.google.com") 'Here too
    wait("5000")
    MsgBox(Webb.Document.Title)

どうすれば解決できますか?

4

2 に答える 2

2

ここでは、null参照の配列を作成します。

Dim web(num) As WebBrowser

を使用する前にの値を設定する必要がありweb(num)ます。そうしないと、nullになります。

コードを変更して含めるだけです

web(num) = New WebBrowser()

使用する前にweb(num)

于 2012-08-03T07:15:39.750 に答える
1

「new」キーワードを使用する必要があります。

ここの両方:

   

Dim num as integer = 0
    For Each s As String In ListBox1.Items
        num = num + 1
        Dim web(num) As WebBrowser = new WebBrowser()
        RefreshIESettings(s)
        Web(num).Navigate("http://www.google.com")
        wait("5000")
        MsgBox(Web(num).Document.Title)
    Next

そしてここ:    

    Dim webb As WebBrowser = new WebBrowser()
    RefreshIESettings(s)
    Webb.Navigate("http://www.google.com")
    wait("5000")
    MsgBox(Webb.Document.Title)
于 2012-08-03T07:28:44.340 に答える