RSS

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

17 Nis

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…

    https://i1.wp.com/resim.sanalkurs.net/uploads/webbrowser.jpg

    Ö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…..

     
    Yorum yapın

    Yazan: 17 Nisan 2011 in Genel

     

    Etiketler: , , , ,

    Bir Cevap Yazın

    Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

    WordPress.com Logosu

    WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

    Twitter resmi

    Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

    Facebook fotoğrafı

    Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

    Google+ fotoğrafı

    Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

    Connecting to %s

     
    %d blogcu bunu beğendi: