[VB.NET] Progress Bar & Web Browser a schede

[nico95]

Ciao a tutti sto realizzando un browser a schede e non risco a creare la progress bar...
ho cercato in rete e ho trovato un codice ma se lo riadatto alle mie esigenze mi da questo errore...

La clausola Handles richiede una variabile WithEvents definita nel tipo che la contiene o in uno dei suoi tipi di base.

vi allego il codice...

Dim WB As String = ("CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser)")
Private Sub WB_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged       
Dim CurProg As Single       
Dim MaxProg As Single       
CurProg = e.CurrentProgress       
MaxProg = e.MaximumProgress       
ProgressBar1.Value = (CurProg / MaxProg) * 100 

come avete potuto capire questo è il codice che va a richiamare il web browser

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser) 

sperando in vostro aiuto vi ringrazio anticipatamente

[Jeremy75]

L'errore sta ad indicare che non esiste WebBrowser1 al quale hai fatto riferimento nel gestore dell'evento ProgressChanged.
quindi

...... Handles WebBrowser1.ProgressChanged

va sostituito con

 Handles TuoWebBrowser.ProgressChanged

dove TuoWebBrowser sta ad indicare il nome del WebBrowser che hai inserito nel Form(ci tengo a specificarlo perchè .... visto la domanda .... )

Facci sapere...
Ciao

[nico95]

mi sono accorto solo adesso che in realta avevo gia corretto webbrowser1 con wb ma con scarsi risultati.... e ho (ri)provato sia con

Dim WB As String = ("CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser)")
    Private Sub WB_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WB.ProgressChanged
        Dim CurProg As Single
        Dim MaxProg As Single
        CurProg = e.CurrentProgress
        MaxProg = e.MaximumProgress
        ToolStripProgressBar1.Value = (CurProg / MaxProg) * 100
    End Sub 

restituendomi l'errore

La clausola Handles richiede una variabile WithEvents definita nel tipo che la contiene o in uno dei suoi tipi di base.

.
che con

Private Sub CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser)_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ProgressChanged
        Dim CurProg As Single
        Dim MaxProg As Single
        CurProg = e.CurrentProgress
        MaxProg = e.MaximumProgress
        ToolStripProgressBar1.Value = (CurProg / MaxProg) * 100
    End Sub 

restituendomi l'errore

Parola chiave non valida come identificatore.

riferito al ctype iniziale e non quello dell Handles.
In ogni caso vorrei fare presente che per richiamare qualunque fuzione del web browser come .Navigate() , .GoBack() , ecc... utilizzo il seguenete codice

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser) 

[Jeremy75]

Hai un pò le idee confuse ....
che centra ....

Handles CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ProgressChanged

?

Come si chiama il WebBrowser inserito nel Form?
Se hai bisogno di aggiungere un gestore di evento a run-time .... la procedura corretta è questa.

AddHandler DirectCast(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ProgressChanged, AddressOf WB_ProgressChanged

Ma rimane comunque sbagliato l'approccio ..... per tanti motivi.

Facci sapere...
Ciao