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

Cottonmouth · 6 Eyl 2010

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

Ö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ı

Ö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:

[COLOR=blue]Public Class[/COLOR] Form1
    Dim a As Integer = 1
   [COLOR=blue] Private Sub[/COLOR] 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)
    [COLOR=blue]End Sub[/COLOR]
    [COLOR=blue]Private Sub[/COLOR] geri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles geri.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).GoBack()

    [COLOR=blue]End Sub[/COLOR]

  [COLOR=blue]  Private Sub[/COLOR] ileri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ileri.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
    [COLOR=blue]End Sub[/COLOR]
[COLOR=blue]
    Private Sub[/COLOR] yenile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yenile.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
   [COLOR=blue] End Sub
[/COLOR]
  [COLOR=blue]  Private Sub[/COLOR] dur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dur.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Stop()
 [COLOR=blue]   End Sub[/COLOR]
    [COLOR=blue]Private Sub[/COLOR] 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
   [COLOR=blue] End Sub[/COLOR]
   [COLOR=blue] Private Sub [/COLOR]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
 [COLOR=blue]   End Sub[/COLOR]
    [COLOR=blue]Private Sub[/COLOR] 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
   [COLOR=blue] End Sub[/COLOR]
[COLOR=blue]End Class[/COLOR]

Daha sonra F5'e basıp çalıştıralım.

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

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

Tekrar merhabalar arkadaşlar. Dördüncü dersimizde yine birlikteyiz

. Bu dersde öncelikle tarayıcımıza Toolstrip ekleyeceğiz ve yavaş yavaş menüleri oldurmaya başlıyacağız. Daha sonra tarayıcımıza çok kullanışlı bir özellik ekliyeceğiz. Bu sayede seçtiğimiz arama motorunda hızlı arama yapabileceğiz. Örneğin Google'da arama yapmak istiyoruz. Listeden Google'ı seçip Adres Çubuğuna aramak istediğimiz şeyi yazıp ara'ya basıcaz. Bu bize hem vakit kazandırıcak hemde kolaylık sağlıyacak.

Başlıyalım artık.

Kaydettiğimiz projemizi tekrar açıyoruz. Daha sonra Toolstrip ekliyoruz.( Toolstrip'i Toolbox'da Menus & Toolbars sekmesinde bulabilirsiniz.)

Butona basarak Dropdownbutton ekliyoruz.

Sonra Dropdownbutton'a sağ tıklayıp DisplayState'nin üzerine gelip Text seçeneğini seçiyoruz.

Daha sonra Text özelliğini Menü yapıp içine resimdeki gibi dolduruyoruz.
Daha sonra 1 Combobox ve 1 Buton ekleyip resimdeki gibi yerleştirelim.(Combobox Name = Combobox1 , Buton Name = Button1

Daha sonra Combobox'a tıklayıp sağ üstte çıkan ok işaretine tıklıyoruz.Edit Items'a basıyoruz.

Karşımıza çıkan kutuda Combobox'ın itemlerini dolduruyoruz.Aşağıdaki resimdeki gibi yapalım ..

Şimdi kodlarımızı yazalım.

Arama butonunun kodları...

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 Else
                MsgBox("Geçerli bir arama motoru seçmediniz")

        End Select
    End Sub

Menü-Yeni Pencere'nin Kodları

Kod:

 Dim x As New Form1
        x.Show()

Menü - Yeni Sekme'nin Kodları(Daha önceki yeni sekme kodları ile aynı)

Kod:

    Private Sub YeniSekmeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniSekmeToolStripMenuItem.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
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
        AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
        AddHandler browse.ProgressChanged, AddressOf yukleniyor
    End Sub

Menü - Sekmeyi Kapat'ın Kodları

Kod:

  sekme.TabPages.RemoveAt(sekme.SelectedIndex)
        sekme.SelectTab(sekme.TabPages.Count - 1)
        a = a - 1

Şimdi ise Anasayfa yap - Anasayfaya git işlemlerine bakalım..Önce Solution Explorer sekmesinden My Project'i açıyoruz.

Settings sekmesinden aşağıdaki gibi bir setting ekliyoruz.

Şimdi Kodlarımızı yazalım.

Anasayfam Yap Kodları

Kod:

      Private Sub AnasayfamYapToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnasayfamYapToolStripMenuItem.Click

        My.Settings.Anasayfa = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
        My.Settings.Save()
        MsgBox(CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString + " anasayfanız olarak ayarlandı")
    End Sub

Anasayfaya Git Kodları

Kod:

  Private Sub AnasayfayaGitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnasayfayaGitToolStripMenuItem.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
    End Sub

Ve bu kodu yeni sekme - yeni pencere ve form_load için kullandığımız tüm Sub'ların sonuna ekliyoruz..Böylece yeni sayfa açılınca veya sekme açılınca direk anasayfaya gidicek.

Kod:

        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
    End Sub

www.maxoloji.com'u anasayfamız yaptık..

Şimdi biraz görsellikle ilgilenelim. Toolstrip'e aşağıdaki resimdeki gibi bir menü ekliyoruz.

2 tane colordialog ekliyoruz.Name'leri değiştirmiyeceğiz olduğu gibi kalsın.(Colordialog'u Toolbox'da Dialogs sekmesinde bulabilirsiniz.)

Şimdi aşağıdaki gibi kodlarımızı yazalım.

Kod:

 Private Sub AraçÇubuğuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AraçÇubuğuToolStripMenuItem.Click
        ColorDialog1.ShowDialog()
        ToolStrip1.BackColor = ColorDialog1.Color
        StatusStrip1.BackColor = ColorDialog1.Color
    End Sub

Kod:

    Private Sub ArkaPlanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArkaPlanToolStripMenuItem.Click
        ColorDialog2.ShowDialog()
        Me.BackColor = ColorDialog2.Color
    End Sub

Kontrol edelim...

Tüm kod sayfamızın son hali şu sekilde olmalı :

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
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
        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
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
        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
    Private Sub YeniPencereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniPencereToolStripMenuItem.Click
        Dim x As New Form1
        x.Show()
    End Sub
    Private Sub YeniSekmeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniSekmeToolStripMenuItem.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
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
        AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
        AddHandler browse.ProgressChanged, AddressOf yukleniyor
    End Sub
    Private Sub SekmeyiKapatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SekmeyiKapatToolStripMenuItem.Click
        sekme.TabPages.RemoveAt(sekme.SelectedIndex)
        sekme.SelectTab(sekme.TabPages.Count - 1)
        a = a - 1
    End Sub
    Private Sub ÇıkışToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÇıkışToolStripMenuItem.Click
        Application.Exit()
    End Sub
    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 Else
                MsgBox("Geçerli bir arama motoru seçmediniz")
        End Select
    End Sub

    Private Sub AnasayfamYapToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnasayfamYapToolStripMenuItem.Click
        My.Settings.Anasayfa = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
        My.Settings.Save()
        MsgBox(CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString + " anasayfanız olarak ayarlandı")
    End Sub

    Private Sub AnasayfayaGitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnasayfayaGitToolStripMenuItem.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
    End Sub
    Private Sub AraçÇubuğuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AraçÇubuğuToolStripMenuItem.Click
        ColorDialog1.ShowDialog()
        ToolStrip1.BackColor = ColorDialog1.Color
        StatusStrip1.BackColor = ColorDialog1.Color
    End Sub

    Private Sub ArkaPlanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArkaPlanToolStripMenuItem.Click
        ColorDialog2.ShowDialog()
        Me.BackColor = ColorDialog2.Color
    End Sub
End Class

Bu dersde bu kadar arkadaşlar umarım yardımcı olmuştur. Sonraki dersde görüşmek üzere

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

Bu dersde tarayıcımıza sık kullanılanlar ve geçmiş eliyeceğiz.Biraz fazla kod oldu baştan söyliyim ama biraz sabrederseniz ortaya güzel birşey çıkıcak.

Hemen başlıyalım. İlk önce Solution Explorer penceresinden My Project'e çift tıklıyoruz.

Daha önce Anasayfa adında bir setting eklemiştik. Şimdide gecmisliste ve favoriliste ekliyoruz.Dikkat etmemiz gereken nokta Anasayfa'nın türü String. Ama gecmisliste ve favoriliste'nin türü System.Coll... şeklince başlayan olucak.

Daha sonra Toolbarımıza Favoriler ve Geçmiş olmak üzere 2 tane item ekliyoruz. Bunlarıda aşağıdaki resimlerdeki gibi dolduruyoruz..

BUnların özelliklerini aşağıdaki gibi değiştiriyoruz.

Şimdi kodlarımızı yazmaya başlıyalım..
Favoriler'e ekle kodları

Kod:

 Private Sub FavorilereEkleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FavorilereEkleToolStripMenuItem.Click
        My.Settings.favoriliste.Add(CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString())
        MsgBox(CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString() + " favori sayfalara eklendi")
        My.Settings.Save()
        menuyenile()
    End Sub

Favorileri temizle kodları

Kod:

 My.Settings.favoriliste.Clear()
        My.Settings.Save()
        menuyenile()

Form1_Load kodlarına şu kodları ekliyoruz.

Kod:

 GeçmişSayfalarToolStripMenuItem.DropDownItems.Clear()
        ToolStripMenuItem1.DropDownItems.Clear()
        For Each item As String In My.Settings.favoriliste
            Dim item1 As New ToolStripMenuItem
            item1.Text = item.ToString
            ToolStripMenuItem1.DropDownItems.Add(item1)
        Next
     

        For Each C As ToolStripMenuItem In ToolStripMenuItem1.DropDownItems
            AddHandler C.Click, AddressOf favoriclick
        Next
        For Each item As String In My.Settings.gecmisliste
            Dim item1 As New ToolStripMenuItem
            item1.Text = item.ToString
            GeçmişSayfalarToolStripMenuItem.DropDownItems.Add(item1)
        Next
        For Each C As ToolStripMenuItem In GeçmişSayfalarToolStripMenuItem.DropDownItems
            AddHandler C.Click, AddressOf gecmisclick
        Next

Yuklemetamamlandi() kodlarına şu kodları ekliyoruz

Kod:

  My.Settings.gecmisliste.Add((CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString))
        My.Settings.Save()
        gecmisyenile()

gecmisyenile() adında bir sub açıyoruz.

Kod:

 Private Sub gecmisyenile()
        GeçmişSayfalarToolStripMenuItem.DropDownItems.Clear()
        For Each item As String In My.Settings.gecmisliste
            Dim item1 As New ToolStripMenuItem
            item1.Text = item.ToString
            GeçmişSayfalarToolStripMenuItem.DropDownItems.Add(item1)
        Next
        For Each C As ToolStripMenuItem In GeçmişSayfalarToolStripMenuItem.DropDownItems
            AddHandler C.Click, AddressOf gecmisclick
        Next
    End Sub

gecmisclick() adında bir sub açıyoruz

Kod:

Private Sub gecmisclick(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(sender.ToString)
        Catch ex As Exception

        End Try
    End Sub

menuyenile() adında bir sub açıyoruz

Kod:

 Private Sub menuyenile()
        ToolStripMenuItem1.DropDownItems.Clear()
        For Each item As String In My.Settings.favoriliste
            Dim item1 As New ToolStripMenuItem
            item1.Text = item.ToString
            ToolStripMenuItem1.DropDownItems.Add(item1)
        Next
        For Each C As ToolStripMenuItem In ToolStripMenuItem1.DropDownItems
            AddHandler C.Click, AddressOf favoriclick
        Next
    End Sub

favoriclick adında bir sub açıyoruz

Kod:

 Private Sub favoriclick(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(sender.ToString)
        Catch ex As Exception

        End Try
    End Sub

Son olarakda Geçmişi temizleme kodları

Kod:

  Private Sub GeçmişiTemizleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeçmişiTemizleToolStripMenuItem.Click
        My.Settings.gecmisliste.Clear()
        My.Settings.Save()
        gecmisyenile()

    End Sub

Tüüüüm bu uzuuun işlemlerden sonra kod sayfamızın son hali ( doğru yapıp yapmadığınızdan emin değiseniz yada hata alıyorsanız bununla değiştirin..)

Kod:

Public Class Form1
    Dim a As Integer = 1
    Dim yenisekmedeac As Boolean = False
    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
        browse.IsWebBrowserContextMenuEnabled = False
        browse.ContextMenuStrip = ContextMenuStrip1
        sekme.SelectedTab.Controls.Add(browse)
        a = a + 1
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
        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
        browse.IsWebBrowserContextMenuEnabled = False
        browse.ContextMenuStrip = ContextMenuStrip1
        sekme.SelectedTab.Controls.Add(browse)
        a = a + 1
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
        AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
        AddHandler browse.ProgressChanged, AddressOf yukleniyor
        GeçmişSayfalarToolStripMenuItem.DropDownItems.Clear()
        ToolStripMenuItem1.DropDownItems.Clear()
        For Each item As String In My.Settings.favoriliste
            Dim item1 As New ToolStripMenuItem
            item1.Text = item.ToString
            ToolStripMenuItem1.DropDownItems.Add(item1)
        Next
     

        For Each C As ToolStripMenuItem In ToolStripMenuItem1.DropDownItems
            AddHandler C.Click, AddressOf favoriclick
        Next
        For Each item As String In My.Settings.gecmisliste
            Dim item1 As New ToolStripMenuItem
            item1.Text = item.ToString
            GeçmişSayfalarToolStripMenuItem.DropDownItems.Add(item1)
        Next
        For Each C As ToolStripMenuItem In GeçmişSayfalarToolStripMenuItem.DropDownItems
            AddHandler C.Click, AddressOf gecmisclick
        Next
    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
        My.Settings.gecmisliste.Add((CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString))
        My.Settings.Save()
        gecmisyenile()
    End Sub
    Private Sub gecmisyenile()
        GeçmişSayfalarToolStripMenuItem.DropDownItems.Clear()
        For Each item As String In My.Settings.gecmisliste
            Dim item1 As New ToolStripMenuItem
            item1.Text = item.ToString
            GeçmişSayfalarToolStripMenuItem.DropDownItems.Add(item1)
        Next
        For Each C As ToolStripMenuItem In GeçmişSayfalarToolStripMenuItem.DropDownItems
            AddHandler C.Click, AddressOf gecmisclick
        Next
    End Sub
    Private Sub gecmisclick(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(sender.ToString)
        Catch ex As Exception

        End Try
    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
    Private Sub YeniPencereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniPencereToolStripMenuItem.Click
        Dim x As New Form1
        x.Show()
    End Sub
    Private Sub YeniSekmeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniSekmeToolStripMenuItem.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)
        browse.IsWebBrowserContextMenuEnabled = False
        browse.ContextMenuStrip = ContextMenuStrip1
        a = a + 1
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
        AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
        AddHandler browse.ProgressChanged, AddressOf yukleniyor
    End Sub
    Private Sub SekmeyiKapatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SekmeyiKapatToolStripMenuItem.Click
        sekme.TabPages.RemoveAt(sekme.SelectedIndex)
        sekme.SelectTab(sekme.TabPages.Count - 1)
        a = a - 1
    End Sub
    Private Sub ÇıkışToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÇıkışToolStripMenuItem.Click
        Application.Exit()
    End Sub
    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 Else
                MsgBox("Geçerli bir arama motoru seçmediniz")
        End Select
    End Sub

    Private Sub AnasayfamYapToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnasayfamYapToolStripMenuItem.Click
        My.Settings.Anasayfa = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
        My.Settings.Save()
        MsgBox(CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString + " anasayfanız olarak ayarlandı")
    End Sub

    Private Sub AnasayfayaGitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnasayfayaGitToolStripMenuItem.Click
        CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
    End Sub
    Private Sub AraçÇubuğuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AraçÇubuğuToolStripMenuItem.Click
        ColorDialog1.ShowDialog()
        ToolStrip1.BackColor = ColorDialog1.Color
        StatusStrip1.BackColor = ColorDialog1.Color
    End Sub

    Private Sub ArkaPlanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArkaPlanToolStripMenuItem.Click
        ColorDialog2.ShowDialog()
        Me.BackColor = ColorDialog2.Color
    End Sub
    Private Sub menuyenile()
        ToolStripMenuItem1.DropDownItems.Clear()
        For Each item As String In My.Settings.favoriliste
            Dim item1 As New ToolStripMenuItem
            item1.Text = item.ToString
            ToolStripMenuItem1.DropDownItems.Add(item1)
        Next
        For Each C As ToolStripMenuItem In ToolStripMenuItem1.DropDownItems
            AddHandler C.Click, AddressOf favoriclick
        Next
    End Sub
    Private Sub favoriclick(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(sender.ToString)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        My.Settings.favoriliste.Clear()
        My.Settings.Save()
        menuyenile()
    End Sub
    Private Sub FavorilereEkleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FavorilereEkleToolStripMenuItem.Click
        My.Settings.favoriliste.Add(CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString())
        MsgBox(CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString() + " favori sayfalara eklendi")
        My.Settings.Save()
        menuyenile()
    End Sub

    Private Sub FavorileriTemizleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FavorileriTemizleToolStripMenuItem.Click
        My.Settings.favoriliste.Clear()
        My.Settings.Save()
        menuyenile()
    End Sub

    Private Sub GeçmişiTemizleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeçmişiTemizleToolStripMenuItem.Click
        My.Settings.gecmisliste.Clear()
        My.Settings.Save()
        gecmisyenile()

    End Sub
End Class

ve buda emeğimizin karşılığı...

Cottonmouth · 8 Eyl 2010

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.

Marlock12axd · 9 Eyl 2010

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

Cottonmouth · 9 Eyl 2010

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 · 9 Eyl 2010

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

Cottonmouth · 9 Eyl 2010

emresalum@windowslive.com

Cottonmouth · 10 Eyl 2010

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

也许我不爱你 · 11 Eyl 2010

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

Cottonmouth · 11 Eyl 2010

saol dikkate alırım.

birde トル neresi oluyo ?

也许我不爱你 · 11 Eyl 2010

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

Cottonmouth · 15 Eyl 2010

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

也许我不爱你 · 25 Eyl 2010

Cottonmouth' Alıntı:

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

Genişletmek için tıkla ...

Insallah basarili olursun.

Cottonmouth · 25 Eyl 2010

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

raptek · 13 Eki 2010

as

saolun çok teşekkürler

Saw_ · 30 Eki 2010

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

Cottonmouth · 1 Kas 2010

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

Ichy · 23 Kas 2010

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

Cottonmouth · 23 Kas 2010

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 · 8 Ara 2010

çok teşekkür ediorum

Cottonmouth · 8 Ara 2010

rica ederim. görevimiz

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

Cottonmouth

Cottonmouth

Marlock12axd

Cottonmouth

mach1

Cottonmouth

Cottonmouth

也许我不爱你

Cottonmouth

也许我不爱你

Cottonmouth

也许我不爱你

Cottonmouth

raptek

Saw_

Cottonmouth

Ichy

Cottonmouth

pckopos

Cottonmouth

Benzer Konular

Sosyal Ağlarla Paylaş