Not : Bu anlatılanlar Visual Basic 2008, Visual Basic 2010 & Visual Studio 2013 programlarında çalışmaktadır. Tüm adımlar basittir. Hepsini dikkatle uyguladığınızda güzel bir İnterntet Tarayıcınız olacaktır.
İpucu : Yazı yerine görsel eklerseniz programınız daha güzel gözükebilir. Ama bu karar size kalmış tabi.
Form1'e Eklenecekler :
1.1 Adet ToolStrip
2.1. Adet WebBrowser
ToolStrip'in İçine Eklenecekler :
1.6 Adet Button
2.1 Adet TextBox
3.1 Adet ProgressBar
4.1 Adet Label
5.2 Adet Separator
Form2'ye Eklenecekler :
1.1 Adet RichTextBox
--------------------------------------------------
Form1
--------------------------------------------------
TollBox'u açıp 1 adet ToolStrip ekliyoruz.
Yine ToolBox'tan 1 Adet WebBrowser ekliyoruz.
ToolStrip'e tıklıyoruz ve en solda bir buton ve yanında bir ok görüyoruz.
Bu oka basıp sırasıyla :
1 Label
1 TextBox
1 Button
1 Separator
3 Button
1 Separator
2 Button
ekliyoruz.
1. Label'in yazısı : Adres Girin
1. Button'un yazısı : Git
2. Button'un yazısı : Yeniden Yükle
3. Button'un yazısı : Durdur
4. Button'un yazısı : Ana Sayfa
5. Button'un yazısı : Yazdır
6. Button'un yazısı : Kaynağı Görüntüle
1. Button'un kodları :
Alıntı:
WebBrowser1.Navigate(ToolStripTextBox1.Text)
Select Case WebBrowser1.ReadyState
ToolStripProgressBar1.Maximum = 4
Case WebBrowserReadyState.Loading
ToolStripProgressBar1.Value = 1
Case WebBrowserReadyState.Loaded
ToolStripProgressBar1.Value = 2
Case WebBrowserReadyState.Interactive
ToolStripProgressBar1.Value = 3
Case WebBrowserReadyState.Loaded
ToolStripProgressBar1.Value = 4
End select
2. Button'un Kodları :
Alıntı:
WebBrowser1.Refresh()
3. Button'un Kodları :
Alıntı:
WebBrowser1.Stop()
4. Button'un Kodları :
Alıntı:
WebBrowser1.GoHome()
5. Button'un Kodları :
Alıntı:
WebBrowser1.ShowPrintPreviewDialog()
6. Button'un Kodları :
Alıntı:
Form2.Show()
Form2.RichTextBox1.Text = WebBrowser1.DocumentText
--------------------------------------------------
Form2
--------------------------------------------------
Buraya Kod Eklemenize Gerek Yok.
