Visual Basic ile sekmeli WebBrowser

Visual Basic ile sekmeli WebBrowser

Öncelikle Normal Butonları Ekleyelim BACK,FORWARD vs.. (Bunları Fotolarla Yaparsanız Daha Güzel Olur.) 1 Adet Progressbar, 1 Adet TabSript Ekleyelim. WebBrowserda Sayfamızın Yüklenişine Göre ProgressBar Yüklensin Diyorsanız Formun Boş Kısmına ;
Kod:

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
    If Progress = -1 Then ProgressBar1.Value = 100
        Label1.Caption = "Bitti"
        ProgressBar1.Visible = False
        Image1.Visible = True
    If Progress > 0 And ProgressMax > 0 Then
        ProgressBar1.Visible = True
        Image1.Visible = False
        ProgressBar1.Value = Progress * 100 / ProgressMax
        Label1.Caption = "Yükleniyor..." & Int(Progress * 100 / ProgressMax) & "%"
    End If
    Exit Sub
End Sub

Yazıyoruz. Şimdi Gelelim Sekme Olayına Bunun İçin Formumuza Eklediğimiz TabStrip1'e Sağ Tıklayıp Propertiese Girelim Ordan Tabs 'a Tıklayalım. Caption : Yeni Sekme Key : yeni Yapalım. Sonra TabStrip1.Click() İçine ;
Kod:

TabStrip1.SelectedItem.Caption = WebBrowser1.L o c a t i o n Name (Boşlukları Silipde Yapın :)
Select Case TabStrip1.SelectedItem.Key

Case "Yeni"

WebBrowser1.GoHome



End Select

Kodunu Yapıştıralım. Daha Sonra Bir Command Daha Ekleyelim Ve Adını + Veya Yeni Sekme vs şey yazalım. Commandın Kodları İse ;
Kod:

TabStrip1.Tabs.Add.Caption = "Yeni Sekme "

Text1.Text = "about:blank"
WebBrowser1.Navigate Text1.Text
yenisekme.Left = yenisekme.Left + 1100[/QUOTE] Kendinize Göre Editleyebilirsiniz. Ve en çok karşılaşılan sorun Formu genişlettiğinde web browserin şeklinin bozulması bunun içinde formun boş bi yerine tıklayın ve [QUOTE]On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 1680
TabStrip1.Width = Me.ScaleWidth
ProgressBar1.Left = Me.ScaleWidth - 1600

Yazın. WebBrowseriniz Hazır.

Video İçin Tıkla