[VB.NET] Aggiungere una ProgressBar al controllo WebBrowser a runtime

[aleeeeeee]

Salve... ho incominciato da poco a interessarmi del vb..utilizzo vb10express
ho fatto due applicazioni tra cui il webbrowser.
all'inizio era tab..poi utilizzando una giuda ho usato il runtime.(siccome sono alle prime armi alcune volte ho fattoo copia e incolla)
Io cm da titolo volevo aggiungere una progressbarr runtime in un browser runtime che si trova in un tabcontrol(spero che avete capito)
Ecco il codice:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

addTab()
        AddHandler TabControl1.DrawItem, AddressOf RidisegnaTC
AddHandler Browser.Navigating, AddressOf Browser_Navigating
CType(TabControl1.SelectedTab.Controls(0), WebBrowser).Navigate(My.Settings.Home) 
 Sub addTab()

Sub addTab()
Dim Browser As New WebBrowser
        Dim newTab As New TabPage("Nuova scheda")

        'Aggiungo degli spazi dopo
        newTab.Text = newTab.Text.PadRight(55, " ")
        TabControl1.TabPages.Insert(TabControl1.TabCount - 1, newTab)
        Browser.Name = "Browser"
        Browser.Dock = DockStyle.Fill
        'per non visualizzare i messaggi di errore
        Browser.ScriptErrorsSuppressed = True
        TabControl1.SelectTab(TabControl1.TabCount - 2)
        TabControl1.SelectedTab.Controls.Add(Browser)
        AddHandler Browser.Navigating, AddressOf Browser_Navigating


        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Home)

        AddHandler Browser.DocumentCompleted, AddressOf Done
    End Sub

Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
 AddHandler Browser.Navigating, AddressOf Browser_Navigating  
        Dim wb1 As WebBrowser
        Dim linkTags As HtmlElementCollection
        Dim linkType As String 'se è 'shortcut icon' o 'stylesheet', ecc.
        Dim iconURL As String = ""
        Dim fav As Image
        Dim imgKey As String = "terra.png"
        Dim pr As ToolStripProgressBar
        pr = New ToolStripProgressBar
        pr.Visible = False
        wb1 = CType(sender, WebBrowser)

        If CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle <> "" Then
            Me.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle & " - " & "Browser by aleeeeeee"
            If Len(wb1.DocumentTitle.ToString) > 35 Then
                wb1.Parent.Text = Strings.Left(wb1.DocumentTitle, 33) & "...     "
            Else
                wb1.Parent.Text = wb1.DocumentTitle
            End If
            wb1.Parent.Text = wb1.Parent.Text.PadRight(55, " ")
        Else
            Me.Text = "MyBrowser by aleeeeeee"
            wb1.Parent.Text = "Senza titolo".PadRight(55, " ")
        End If

 Private Sub Browser_Navigating(ByVal sender As Object, ByVal e As WebBrowserNavigatingEventArgs)         
'Creo container progressbar         
Dim a As ToolStripContainer         
a= New ToolStripContainer        
 With a  
.Visible = True  
Enabled = True    
End With        
 'Creo la progressbar         
Dim pr As New ToolStripProgressBar
         pr = New ToolStripProgressBar       
  With pr          
   .Visible = True      
       .Name = "pr"   
          .Enabled = True 
            .ForeColor = Color.Azure     
        .Minimum = 0          
   .Maximum = 100           
  .Step = 50   
      End With   
      For index As Integer = 0 To 100 Step 5   
          pr.Value = index          
   System.Threading.Thread.Sleep(35)      
   Next   
  End Sub

Le parti in rosso sn quelle che ho aggiunto per creare la progressbar ma nn funziona

[aleeeeeee]

up.

Nessun mi può aiutare pls ??? T_T

[aleeeeeee]

up

[vabatta]

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged 'Creiamo un handle sul cambiamento di progresso del webbrowser
Dim tc As ToolStripContainer = New ToolStripContainer
        With tc
            .Visible = True
            .Enabled = True
        End With
        Dim tp As ToolStripProgressBar = New ToolStripProgressBar
        With tp
            .Name = "tp"
            .Visible = True
            .Enabled = True
            .ForeColor = Color.Azure
        End With
        Dim p, d, t As Integer
        d = e.CurrentProgress 'Progresso corrente del webbrowser 
        t = e.MaximumProgress 'Progresso massimo del webbrowser
        If d <= 0 Then 'Se il progresso corrente è 0, allora il webbrowser ha finito di caricare la pagina
            tp.Value = 0
            tp.Visible = False
        Else
            tp.Value = Math.Min(tp.Maximum, Convert.ToInt32(Math.Floor(tp.Maximum * (d / t)))) 'Altrimenti, impostiamo il valore
        End If
End Sub

Ciao e buon lavoro

[aleeeeeee]

grz anke se avevo risolto

risolto potete chiudere