Vb.NET Adım Adım Web Browser Yapımı Dersleri

Cottonmouth · 06-Eylül-2010 04:06

Vb.NET Web Browser Yapımı Ders #1 Temel Webbrowser Komutları

Gizlenmiş Mesaj :

Öncelikle herkeze merhaba arkadaşlar. Biraz can sıkıntısından birazda sizlere yardımcı olmak istememden dolayı birkaç dersde sizlere basit bir webbrowser'ı VB.net ile nasıl yapabiliriz anlatmaya çalışacağım. Talebe görede derslere devam edicem. Öncelikle belirtiyi başlangıçta tabiki çok basit olacaktır ancak derslerin sonunda şuna benzer bir webbrowser yapmış olucaz. ;

-Sekmeli olucak(hepimizin kullandığı browserlarda bulunan yeni sekme ekleme,sekme kaldırma vs. işlemler).
-Browser'ımızın sol üst kısmında (program isminin yazdığı yer) girdiğimiz sitenin başlığı yazıcak.
-Herbir sekmenin yazısı o sekmede girdiğimiz sayfanın başlığı olucak.
-Enter,Backspace vs. kısayol tuşlarını kullanabilicez.
-Ctrl + Enter benzeri bir kısayol komutu koyucaz.(bilmeyenler için söyliyim örn: maxoloji yazar ctrl + enter basarsanız www.maxoloji.com'a yönlendirir webbrowser'ınız.hangi browserlarda var tam olarak bilemiyorum. Kullandığım Google Chrome'da var.
-Geçmiş - Sık Kullanılanlar gibi özellikler
-Adres çubuğunda girilen tam URL ' nin görüntülenmesi
-İşlem çubuğu ( Progress bar ) (şu herhangi bir sayfaya girerken dolan çubuk)

ve daha saymayı unuttuğum birkaç şey.

Bu ilk dersde ileri,geri,git,yenile,dur gibi temel şeyleri göstericem size. Belki bir çoğunuz biliyordur ama başlamak için en iyi yerin burası olduğunu düşündürm.

Projemize bir Webbrowser nesnesi ve 5 tane Button nesnesi ekliyoruz.Buttonu hepiniz biliyorsunuzdur ama Webbrowser'ı bilmeyenler için gösteriyim( All Windows Forms yada Common Controls sekmesinde herhangi bir değişiklik yapmadıysanız en altda bulabilirsiniz.)

.Bunları istediğiniz gibi yerleştirin.

Sonra Properties kısmından herbir nesnenin Name özelliğini aşağıdaki gibi değiştirin.

Bunlar Webbrowser nesnemiz için kullanıcağımız en temel kodlar.

Bunlarda event'lara yerleştirilmiş şekilleri.

Buda ben yazmakla uğraşmıyim diyenler için :

Public Class Form1

Private Sub git_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles git.Click
browser.Navigate(adrescubugu.Text)
End Sub

Private Sub yenile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yenile.Click
browser.Refresh()
End Sub

Private Sub dur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dur.Click
browser.Stop()
End Sub

Private Sub geri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles geri.Click
browser.GoBack()
End Sub

Private Sub ileri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ileri.Click
browser.GoForward()
End Sub
End Class

Buda Maxoloji'nin browser'ımızda görünüşü

Önümüzdeki dersde de Browser'ımızı nasıl sekmeli yapabiliriz bunu göstericem. Hazırlar hazırlamaz onuda paylaşıcam.İşinize yaradıysa Teşekkür Butonuna tıklayabilirsiniz

Vb.NET Web Browser Yapımı Ders #2 Sekmeli Webbrowser Yapımı

Gizlenmiş Mesaj :
Önceki dersimizde ileri,geri,git,dur,yenile gibi temel webbrowser komutlarını görmüştük. Bu dersde ise tabcontrol ile sekmeli bir Webbrowser nasıl yapılır onu göstericem.

İlk dersimizde yaptığımız projeyi açıp onun üzerinden devam edicez. Öncelikle formumuzdaki webbrowser nesnesini kaldırıyoruz.
Daha sonra 2 tane Button ve 1 tane Tabcontrol nesnesi ekliyoruz(Tabcontrol nesnesini Toolbox'ın Containers sekmesinde bulabilirsiniz)

Daha sonra bu eklediğimiz nesnelerin name özelliklerini aşağıdaki gibi değiştirelim .

Tabcontrol nesnesini ilk eklediğimizde 2 sayfası olur .

Bu sayfaları silelim . (Bunu yapmak için Properties kullanabilirsiniz veya beyaz boşluğa tıklayıp Delete'e basın. Her iki sekme içinde)

Formumuzun son şekli bu oldu

Daha sonra kod sayfasına geçip tüm kodları silelim ve aşağıdaki gibi değiştirelim.

Buda ben yazmakla uğraşmıyim diyenler için :
Kod:
Public Class Form1
    Dim a As Integer = 1
    Private Sub git_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles git.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(adrescubugu.Text)
    End Sub
    Private Sub geri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles geri.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).GoBack()

    End Sub

    Private Sub ileri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ileri.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
    End Sub

    Private Sub yenile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yenile.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
    End Sub

    Private Sub dur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dur.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Stop()
    End Sub
    Private Sub sekmesil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sekmesil.Click
        sekme.TabPages.RemoveAt(sekme.SelectedIndex)
        sekme.SelectTab(sekme.TabPages.Count - 1)
        a = a - 1
    End Sub
    Private Sub sekmeekle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sekmeekle.Click
        Dim browse As New WebBrowser
        sekme.TabPages.Add(1, "sayfa" & a)
        sekme.SelectTab(a - 1)
        browse.Name = "WbBrowser"
        browse.Dock = DockStyle.Fill
        sekme.SelectedTab.Controls.Add(browse)
        a = a + 1
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim browse As New WebBrowser
        sekme.TabPages.Add(1, "Sayfa" & a)
        sekme.SelectTab(a - 1)
        browse.Name = "WbBrowser"
        browse.Dock = DockStyle.Fill
        sekme.SelectedTab.Controls.Add(browse)
        a = a + 1
    End Sub
End Class
Daha sonra F5'e basıp çalıştıralım.

Vb.NET Web Browser Yapımı Ders #3 Statusstrip ve Birkaç Düzenleme

Gizlenmiş Mesaj :
Merhaba arkadaşlar önceki dersimizde tabcontrolu webbrowserımızda kullanıp nasıl sekmeli bir tarayıcı yapabileceğimize değinmiştik. Şimdide biraz ayrıntılarla ilgilenicez. Öncelikle bir işlem çubuğu yani progressbar eklicez. Peki ne işe yarar bu Progressbar yenir mi içilir mi ? Bilmeyenler için şöyle özetliyim örneğin www.maxoloji.com'a girerken Web tarayıcımızın - genellikle - sol alt taraflarında bir çubuk belirir. Sayfa yüklendikce bu çubuk dolar. İşte o çubuk Progressbar
Sonra Statuslabel eklicez. Buda Progressbar'ın yanında çıkan ve bağlanılan URL'nin yazdığı etiket. Bundan sonra sekmelerimizin yazılarının girdiğimiz sayfaların 'title'ları olmasını sağlıyacağız. Son olarakda programımızı tam ekran yaptığımızda nesnelerin kontrolümüz dışında sağa sola kayıp kötü görüntü oluşturmasını engelliyeceğiz.
Sanki anlatınca biraz uzun sürdü ama yapması daha kısa

İlk olarak tabcontrol'ün (tabcontrol'ün adını sekme olarak değiştirmiştik ama tabcontrol deyince daha anlaşılır olduğu için böyle diyorum) altına Statusstrip ekliyoruz.
Statusstrip'i Toolbox'da Menus & Toolbars sekmesinde bulabilirsiniz.

Statusstrip'i aşağıdaki resimdeki gibi yerleştirelim

Daha sonra yeni nesnelerimizi eklemek için Statusstrip'deki butona basalım.

StatusLabel ve ProgressBar ekliyoruz.

Daha sonra bu nesnelerimizin bazı özelliklerini aşağıdaki resimdeki gibi değiştiriyoruz.

Şimdi geçelim işin kod kısmına. Ben öğrenerek yavaş yavaş yapıcam diyorsanız

sekmeekle_Click ve Form1_Load eventlerinin altına şu kodu ekliyoruz
Kod:
AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
        AddHandler browse.ProgressChanged, AddressOf yukleniyor
Daha sonra yuklemetamamlandi ve yukleniyor adında 2 Sub açıyoruz.Ve içlerine şu kodları yazıyoruz :
Kod:
  Private Sub yuklemetamamlandi()

        Progressbar.Visible = False
        durum.Visible = False
        durum.Text = " "
        Progressbar.Value = 0
        sekme.SelectedTab.Text = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
    End Sub3
Kod:
  Private Sub yukleniyor(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)
        Progressbar.Visible = True
        durum.Visible =true
        durum.text = adrescubugu.text
        Progressbar.Maximum = e.MaximumProgress
        Progressbar.Value = e.CurrentProgress
       
    End Sub
Tüm bu işlemlerden sonra tüm kod sayfamız (isterseniz yukardaki kodlarla uğrşmayıp direk bunu kendi kod sayfanızla değiştirebilirsiniz. Daha garanti olur.) :
Kod:
Public Class Form1
    Dim a As Integer = 1

    Private Sub git_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles git.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(adrescubugu.Text)
     End Sub
    Private Sub geri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles geri.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
    End Sub

    Private Sub ileri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ileri.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
    End Sub

    Private Sub yenile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yenile.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
    End Sub

    Private Sub dur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dur.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Stop()
    End Sub
    Private Sub sekmesil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sekmesil.Click
        sekme.TabPages.RemoveAt(sekme.SelectedIndex)
        sekme.SelectTab(sekme.TabPages.Count - 1)
        a = a - 1
    End Sub
    Private Sub sekmeekle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sekmeekle.Click
        Dim browse As New WebBrowser
        sekme.TabPages.Add(1, "sayfa" & a)
        sekme.SelectTab(a - 1)
        browse.Name = "WbBrowser"
        browse.Dock = DockStyle.Fill
        sekme.SelectedTab.Controls.Add(browse)
        a = a + 1
        AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
        AddHandler browse.ProgressChanged, AddressOf yukleniyor
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim browse As New WebBrowser
        sekme.TabPages.Add(1, "Sayfa" & a)
        sekme.SelectTab(a - 1)
        browse.Name = "WbBrowser"
        browse.Dock = DockStyle.Fill
        sekme.SelectedTab.Controls.Add(browse)
        a = a + 1
        AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
        AddHandler browse.ProgressChanged, AddressOf yukleniyor
    End Sub
    Private Sub yuklemetamamlandi()

        Progressbar.Visible = False
        durum.Visible = False
        durum.Text = " "
        Progressbar.Value = 0
        sekme.SelectedTab.Text = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
    End Sub
    Private Sub yukleniyor(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)
        Progressbar.Visible = True
        durum.Visible = True
        durum.Text = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
        Progressbar.Maximum = e.MaximumProgress
        Progressbar.Value = e.CurrentProgress
        durum.Visible = False
        Progressbar.Visible = False
    End Sub
End Class
Evet kodlarla işimiz bitti şimdilik. Son olarakda programı tam ekran yaptığımızda oluşan kötü görüntüyü düzeltelim.

Bunun için aşağıdaki resimdeki nesnelerin özelliklerini resimdeki gibi ayarlayın .

Hepsi bu kadar . Geldik bir dersin daha sonuna Buda browser'ımızın son hali :

Mynet yüklenirken :

Mynet yüklendikten sonra :

Vb.NET Web Browser Yapımı Ders #4 Toolstrip - Arama motoru - Anasayfa ve Renk Düzenleri

Gizlenmiş Mesaj :

Vb.NET Web Browser Yapımı Ders #5 Geçmiş - Sık Kullanılanlar

Gizlenmiş Mesaj :

Cottonmouth · 08-Eylül-2010 18:36

Bunun için motorların arama yaparkenki url lerini bilmen lazım. ask.com eklemek için combobox'ın itemlerine ask.com u ekle sonra select case kodlarının içine case 3 yaz aynı google yada öbürleri gibi kodları yaz. sadece sondaki tırnak içindeki yeri "http://www.ask.com/web?q=" olarak değiştir . tamamdır

Kod:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Select Case ComboBox1.SelectedIndex

            Case 0
                CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.google.com/search?q=" + adrescubugu.Text)
            Case 1
                CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://tr.search.yahoo.com/search?p=" + adrescubugu.Text)
            Case 2
                CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.bing.com/search?q=" + adrescubugu.Text)
            Case 3
                CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.ask.com/web?q=" + adrescubugu.Text)

            Case Else
                MsgBox("Geçerli bir arama motoru seçmediniz")

        End Select
    End Sub

olucak yani kodların .tabi combobox'ın itemlerine ask.com u 4.sıraya ekledikten sonra.

**Marlock** · 09-Eylül-2010 00:14

Kodları bu konu ile anlamaya başladım teşekkürler

Cottonmouth · 09-Eylül-2010 01:54

yardımcı olabildiysem ne mutlu bana. Sadece bu konuda değil vb.net ile ilgili başka sorunlarında olursa elimden geldiği kadar yardımcı olmaya çalışırım.

----------

bu arada 5.ders'ide hazırladım ama mesaja ekleyemiyorum maximum grafik sayısına erişildi diyor düzenlemeye çalştığımda ne yapabilirim bilgisi olan varmı ?

**mach1** · 09-Eylül-2010 02:19

Ben yapamadım arkadaşım msn varsa verirmisin yardımcı olsan.Adres çubuğunu koyamadım ve kodları yapamadım

Cottonmouth · 09-Eylül-2010 02:22

emresalum@windowslive.com

Cottonmouth · 10-Eylül-2010 03:54

başka bi program üzerinde çalışıyorum şu aralar yeni dersler biraz gecikebilir.

**也许我不爱你** · 11-Eylül-2010 01:38

Eline saglik ama ingilizce kodlarla anlatirsan daha iyi olur. Yeni versiyonlar ciktikca ingilizce kodlar lazim olucak cunku.

Cottonmouth · 11-Eylül-2010 06:09

saol dikkate alırım.

birde トル neresi oluyo ?

**也许我不爱你** · 11-Eylül-2010 13:52

トルコ aslinda boyle olmasi lazim son karekter cikmamis. トルコ japoncada Turkiye demek

Cottonmouth · 15-Eylül-2010 03:44

yeni dersler gecikicek arkadaşlar malumunuz dershane öss falan :S

**也许我不爱你** · 25-Eylül-2010 15:31

Cottonmouth Nickli Üyeden Alıntı

yeni dersler gecikicek arkadaşlar malumunuz dershane öss falan :S

Insallah basarili olursun.

Cottonmouth · 25-Eylül-2010 21:09

inş. kardeşim. sonuç nolursa olsun inş. hayatımın kalanında mutlu olurum

**raptek** · 13-Ekim-2010 21:59

saolun çok teşekkürler

**Saw_** · 30-Ekim-2010 19:25

Browser de buraya kadar herşey tamam da sağ tıklama menüsü ekleyemiyorum bi yardım edermisin.

Cottonmouth · 01-Kasım-2010 20:46

contextmenustrip ekliyeceksin toolbardan.sonra webbrowser nesnene tıklayıp properties sekmesinden contextmenustrip'i eklediğin contextmenustrip olarak seçiceksin

**Ichy** · 23-Kasım-2010 20:40

vB 6 Yı Bıraktım Buna Başlıyacağım

Cottonmouth · 23-Kasım-2010 21:45

Doğrusunu yapmışsın

.NET gibi bir platform varken - üstüne üstlük Microsoft tarafından geliştirilen bir platform.- vb6 ya saplanıp kalmak saçmalık gibi geliyor bana.

**pckopos** · 07-Aralık-2010 23:03

çok teşekkür ediorum

Cottonmouth · 07-Aralık-2010 23:14

rica ederim. görevimiz

**ritbok6** · 09-Aralık-2010 00:45

Gerçekten çok güzel bir çalışma olmuş ellerinize sağlık. Yaklaşık 3-4 aydır böyle detaylı bir anlatım arıyordum. Okuldaki projeme çok yararlı oldu sayenizde. Teşekkür ederim.

**goleems** · 04-Ocak-2011 20:30

2010 kullanıyorum 6.0 dan yeni geçtim yani ne bileyim sanki bu daha kullanışlı gibi yeni yeni öğreniyorum bu dersin de çok faydası oldu çok teşekkürler yalnız dediğim gibi 2010 kullanıyorum ve ders 3 te yukleniyor sub da şu satırda hata verdi. "Progressbar.Value = e.CurrentProgress" yardımcı olabilecek biri var mı acaba?

Cottonmouth · 04-Ocak-2011 20:41

Bir yerde eksiğin olmuş olabilir. Çünkü direk çalışan kodları programımdan alıp buraya koydum kodlarda yanlışlık yoktur . (belkide vardır

sen yinede bidaha kontrol et olmazsa ben bakarım.Trial'i bitti visualin onu halletmem lazım)

**goleems** · 12-Ocak-2011 17:12

Hocam dediğim gibi 6.0 dan .net 2010 a yeni geçtim onun için bir şey danışacağım.

vb6 da örneğin geri butonu için düşünürsek

Private Sub geri_Click()
On Error GoTo hatayordami
WebBrowser1.GoBack
Exit Sub
hatayordami:
MsgBox "Geride ziyaret edilmiş başka bağlantı bulunamadı"
End Sub

Derdimi tam anlatamayacağım için kodlarla anlatmaya çalıştım 6 daki bunun .nette karşılığı nasıl oluyor acaba cahilliğime verin

Bu arada bir önceki mesaj da dediğim o 3.dersteki hatada aşağıdaki resimde verdim.

http://img638.imageshack.us/img638/6061/adszbud.png

Cottonmouth · 12-Ocak-2011 21:19

Private Sub geri_Click()
Try 'Aşağıdaki kodu çalıştırır. Hata bulunursa Catch bloğuna geçer.Program kırılmaz
Webbrowser1.GoBack()
Catch Ex As exception 'hata bulduğunda aşağıdakini yap(error tipği değiştirilebilir)
Msgbox("Hata")
End Try

End Sub

Konu: Vb.NET Adım Adım Web Browser Yapımı Dersleri

Seçenekler

Görünüm

Vb.NET Adım Adım Web Browser Yapımı Dersleri

Aşağıdaki 21 Kullanıcı Bu Güzel Mesajın İçin Sana Teşekkür Etti Cottonmouth :

Aşağıdaki Üye(ler) Bu Güzel Mesajınız İçin Size Teşekkür Etti

Aşağıdaki Üye(ler) Bu Güzel Mesajınız İçin Size Teşekkür Etti

as

Bu Konu İçin Etiketler

Yetkileriniz