référence d'objet non définie à une instance d'un objet

Question

C'est mon code:

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 

Et je reçois cette erreur que si je fais ceci:

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

Comment puis-je résoudre?

Answer 1

Ici vous créez un tableau de références null:

Dim web(num) As WebBrowser 

Vous devez définir la valeur de web(num) avant de l'utiliser, ou il sera tout simplement nul.

il suffit de changer votre code pour inclure

web(num) = New WebBrowser() 

avant d'utiliser web(num).

Answer 2

Vous devez utiliser le "nouveau" mot-clé.

deux ici:

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 

Et ici:

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