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:
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()
codice:
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
codice:
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
codice:
 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