[VB.NET] Uso di "If...Is Nothing" nella creazione di controlli

[S0nic]

Ciao a tutti,

con il codice che posto, in VB6 verificavo se era già stata creata una "Finestra" di Internet Explorer e se fosse già esistente la utilizzavo per aprire delle pagine web all'interno della stessa.

Se invece essa non era già stata creata, il codice procedeva a crearne una nuova.

in VB.net (ovviamente) non mi funziona

in quanto vb.net vuole che dichiaro prima la variabile o l'oggetto....

sapreste consigliarmi ?

Grazie ancora!

 If IE Is Nothing Then
        Set IE = CreateObject("InternetExplorer.application")
 End If
    

    
    On Error Resume Next

      IE.Visible = True
      IE.ToolBar = 0
      
      
      IE.Navigate "http://www.miosito.it"
      


    If Err.Number <> 0 Then
        Set IE = CreateObject("InternetExplorer.application")

      IE.Visible = True
      IE.ToolBar = 0
      
      IE.Navigate "http://www.miosito.it"
     

    End If

    Err.Clear
    On Error GoTo 0

[alka]

Non è chiaro qual è l'errore che ti viene restituito, né l'istruzione in cui si verifica.

[pietro09]

se ho capito

Private IE As InternetExplorer
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If IE Is Nothing Then IE = New InternetExplorer()
        IE.Navigate("http://forum.html.it/forum/showthread.php?s=&threadid=1472576")
        IE.Visible = True
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If IE Is Nothing Then IE = New InternetExplorer()
        IE.Navigate("http://www.repubblica.it/")
        IE.Visible = True
    End Sub

[S0nic]

grazie mille
lo provo appena torno a casa!

[S0nic]

Originariamente inviato da pietro09
se ho capito

Private IE As InternetExplorer
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If IE Is Nothing Then IE = New InternetExplorer()
        IE.Navigate("http://forum.html.it/forum/showthread.php?s=&threadid=1472576")
        IE.Visible = True
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If IE Is Nothing Then IE = New InternetExplorer()
        IE.Navigate("http://www.repubblica.it/")
        IE.Visible = True
    End Sub

ho però un dubbio...

de dichiaro prima l'oggetto InternetExplorer
metti caso che ho necessità di dichiararne tipo 10 o anche 15

non mi trovo con tante instanze aperte ?

[S0nic]

niente non va....

in pratica premendo Button1
si deve aprire una pagina web che contiene alcuni dati....

ripremendo Button1 se la pagina precedente è ancora aperta
di deve solo aggiornare il contenuto web...

se invece la pagina è stata chiusa...bisogna che se ne apra una nuova
ma in quel modo non va

avete altri consigli ?

tnks


EDIT:

sorry sbagliavo io

invece di scrivere:

If IE Is Nothing Then IE = New InternetExplorer()

scrivevo:

If IE Is Nothing Then Dim IE As New InternetExplorer()

Grazie ancora!