[VB.NET] Navigazione a schede

[Marcoluca56]

Salve ragazzi,
sto creando un programma che ogni tot secondi apre una nuova scheda (del tabcontrol) e naviga su un indirizzo che ho precedentemente impostato.

Ho creato un nuovo therd così da alleggerire il tutto:

dim inte as integer=0
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Control.CheckForIllegalCrossThreadCalls = False
            Dim MyThread As New Thread(AddressOf avvio)
            MyThread.Start()

Private Sub avvio()
        Do

intervallo = numerocasuale.Next(60000, 180000)
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ListBox1.SelectedItem)

 With ListBox1
                If .SelectedIndex < 0 Or .SelectedIndex = .Items.Count - 1 Then
                    TabControl1.TabPages.Clear()
                    inte = 0

                    ListBox1.SelectedIndex = 0


                Else
                   
                   

                    .SelectedIndex += 1
                  Threading.Thread.Sleep(intervallo)


                    Dim Browser As New WebBrowser
                    TabControl1.TabPages.Add("Nuova Scheda")
                    Browser.Name = "Web Browser"
                    Browser.Dock = DockStyle.Fill
                    TabControl1.SelectedTab.Controls.Add(Browser)
                    AddHandler Browser.DocumentCompleted, AddressOf Done
                    inte = inte + 1
                    CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("www.google.it")
                    CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ScriptErrorsSuppressed = True
                   
                End If
          
            End With

        Loop

In sostanza vorrei che ogni tot minuti, apre una nuova scheda-->attivi la scheda appena aperta (lasciando quella vecchia aperta, ma non attiva)---> navigare sul link.

Però appena lo provo, il primo link lo fa correttamente in quando ho impostato che all'avvio abbia questo codice:

 Dim Browser As New WebBrowser
        TabControl1.TabPages.Add("Nuova Scheda")
        Browser.Name = "Web Browser"
        Browser.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Browser)
        AddHandler Browser.DocumentCompleted, AddressOf Done
        inte = inte + 1
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("www.google.it")
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ScriptErrorsSuppressed = True

cioè apre una nuova scheda su "google", ma appena cerca di aprire la seconda si ferma e mi dà:

"Impossibile creare un'istanza del controllo ActiveX '8856f961-340a-11d0-a96b-00c04fd705a2' perché il thread corrente non è un apartment a thread singolo."


Come mai? come posso fare per risolvere? Grazie mille in anticipo!

[oregon]

Utilizzi degli ActiveX ? Quali ?

[Marcoluca56]

Non credo.... L'ho programmato in visual studio 2010

[oregon]

Prova ad impostare

MyThread.SetApartmentState(ApartmentState.STA)

prima dello start

[Marcoluca56]

l'ho inserito qui:

Control.CheckForIllegalCrossThreadCalls = False

            Dim MyThread As New Thread(AddressOf avvio)
           MyThread.SetApartmentState(ApartmentState.STA) 
            MyThread.Start()

adesso l'errore è il seguente:
"I controlli creati su un thread non possono avere come elemento padre un controllo su un thread diverso."

 .SelectedIndex += 1
                    Threading.Thread.Sleep(intervallo)


                    Dim Browser As New WebBrowser
                    TabControl1.TabPages.Add("Nuova Scheda") <------ QUI MI DA' L'ERRORE 
                    Browser.Name = "Web Browser"
                    TabControl1.SelectedTab.Controls.Add(Browser)
                    AddHandler Browser.DocumentCompleted, AddressOf Done
                    inte = inte + 1
                    CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("www.google.it")
                    CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ScriptErrorsSuppressed = True

[oregon]

Corretto il primo problema, il secondo è conseguenza dell'organizzazione del tuo codice.
Tutti i controlli sull'interfaccia dovrebbero essere creati dal thread principale.

In ogni caso leggi questo

http://blogs.ugidotnet.org/piyo/arch...2/24/7764.aspx

[Marcoluca56]

da quello che ho capito, gli fa creare l'operazione come se fosse il thread principale...
Ma non saprei come adattarlo al visual basic, essendo scritto in C

potresti aiutarmi in tal senso?

[oregon]

Originariamente inviato da Marcoluca56
essendo scritto in C

Veramente è in C#

Se ti sembra complesso è perché stai scegliendo una strada sbagliata.

Sposta la creazione del nuovo controllo nel programma principale.
Del resto un thread per la sola creazione del controllo non ha molto senso.

[Marcoluca56]

se lo metto sul principale, mi apre una scheda sola e poi naviga sempre su quella aperta all'inizio e non procede come vorrei (ogni tot apre una nuova scheda e naviga su questa che si è appena aperta, apre una nuova scheda e naviga e così via)

[oregon]

Puoi usare il thread per la Navigate non per creare il controllo.