Web Browser Yapımı (Bölüm 2) - Yeni Sekme Yüklenme Olayları

Bu dersimizde ise nasıl yeni bir sekme eklenir Form genişletildiğinde web browserin yapısı nasıl bozlmaz bunları öğrenelim...

Bu dersimizde ise nasıl yeni bir sekme eklenir Form genişletildiğinde web browserin yapısı nasıl bozlmaz bunları öğrenelim...

Evet, birinci dersimizde basit bir şekilde web browser yapmıştık.

Şimdi Formumuza:

[*]1 adet progressbar
[*]1 adet Label TabStrip(Yeni Sekme Olayı İçin)

ekleyelim...

Formumuz görsel açıdanda ii olsun diye aşağıdaki resim gibi butonlara resim ekleyin...



Öncelikle web sayfamımızın yüklenilişine göre progressbarımız hareket etsin istiyoruz bunu için formun boş kısmına


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


Şimdi Gelelim herkesin merak ettiği Yeni Sekme Olayına Bunun için formumuza önceden eklediğimiz TabStrip1 e sağ tıklayıp Propertiese girelim ordan Tabs a tıklayalım. Caption = Yeni Sekme Key = yeni yapalım...
ve TabStrip1_CLick() içine

TabStrip1.SelectedItem.Caption = WebBrowser1.LocationName

Select Case TabStrip1.SelectedItem.Key



Case "Yeni"



WebBrowser1.GoHome







End Select


Böylece her açılan sekme web sayfasının adını alır eğer ilk sekmeye tıklanırsa anasayfaya gider...

Şimdi gelelim Sekme Ekleme İşlemine Bir adet Command Buton Ekleyelim. Ve Caption Kısmını yani yazısına "+ " Yazalım(veya yeni sekme yazabilirsiniz)ve formumuzada bulunan tabstripteki Yeni Sekme Yazısının tam sağına koyalım....ve comannd butonun içine şu kodları yazalım...

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



Combo1.Text = "about:blank"

WebBrowser1.Navigate Combo1.Text

yenisekme.Left = yenisekme.Left + 1100


Böylelikle Yeni Sekmelerimiz olmuştur.....

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

On Error Resume Next

WebBrowser1.Width = Me.ScaleWidth

WebBrowser1.Height = Me.ScaleHeight - 1680

TabStrip1.Width = Me.ScaleWidth

ProgressBar1.Left = Me.ScaleWidth - 1600

(Formu benim verdiğim şekil gibi yaparsanız bu ayarlar mükemmel olur) yazın

3. Dersimizde nasıl menü yapariz çerezleri nasıl sileriz, sık kullanılan ve geçmiş nasıl olur bunları öğrenelim....

3. Derste görüşmek üzere.....
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

kardeş senden bir şey rica edicem bende kodun şurasında hata veriyor zahmet olmazsa neden olduğunu söyleyebilirmisin yenisekme.Left = yenisekme.Left + 1100
ben vb 6 da yapıyorumda bişey sorucam . mesela şimdi form da bir tane buton var diyelim ona basınca form a yeni bir tane text box ekliyecek . onu nasıl yapabilirz vb 6 da ?
ben vb 6 da yapıyorumda bişey sorucam . mesela şimdi form da bir tane buton var diyelim ona basınca form a yeni bir tane text box ekliyecek . onu nasıl yapabilirz vb 6 da ?
tamsuper542 kardesim bana kalirsa daha onceden de biri yazmisti ona dayanarak diyorum.. sen kodu yanlis yazmisisn dicem kopyala yapistir yapiyoruz ben sana sunu diyecem [code]TabStrip1.Tabs.Add.Caption = "Yeni Sekme " Combo1.Text = "about:blank" WebBrowser1.Navigate Combo1.Text yenisekme.Left = yenisekme.Left + 1100[/code] bu kodu kopyala yapistir yap orda 1100 yazan yeri sil yeniden 1100 yap belki olur..
Allah Sizden Razı Olsunn :)) Binlerce Site var Hçbirinde Bu Kadar Basit Şekilde Yapılışı Yok :)) ayrıca o hatayı almamak için: TabStrip1.Tabs.Add.Caption = "Yeni Sekme " Combo1.Text = "about:blank" WebBrowser1.Navigate Combo1.Text on error resume next yenisekme.Left = yenisekme.Left + 1100
Ulan bi Allahın kuluda bu sekmeler nasıl kapanır diye sormuyor :D
Hazır projesi yok mu ?
TapStrip Nedir? TabControl mu? lütfen yardım edin... :(((
tabstrip nedir
tabstrip nerde visual basic 2010 express kullanıcısıyım :((

Yukarı Git