對象引用未設置到對象

Question

這是我的代碼的實例：

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) 

我該如何解決呢？

Answer 1

在這裏，您創建空引用數組：

Dim web(num) As WebBrowser 

你需要使用它之前設置的web(num)的價值，或者它只是爲空。

只要改變你的代碼，包括

web(num) = New WebBrowser() 

使用web(num)之前。

Answer 2

您需要使用「新」關鍵字。

兩個位置：

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)