İlk Adımlar:
1 Adet Combobox (text'de eklenebilir ancak combo eklemek daha mantıklı)
4 Adet Command (İleri - Geri - Yenile - Anasayfa)
Ve kodlamamıza başlıyalım.
İlk olarak comboyu form'un üst köşesine ekleyin ve 4 adet command'ı ekleyin.
Şimdi bize 1 adet internet kontrolcüsü gerekiyor bunun için:
• Project --> Components (Kısa Yol "CTRL+T") Girerek "Microsoft Internet Controls"ü seçiyoruz.
Gerekli ayarlarımızı yaptıkdan sonra şu şekilde ilerliyelim:
Command1 = Ana Sayfa
Command2 = Geri
Command3 = İleri
Command4 = Yenile
Command5 = Git
Private Sub Command1_Click()
WebBrowser1.GoHome
End SubBu Kod explorerımızın ana sayfaya ulaşmasını sağlayacaktır. Ancak Internet Explorer temellerini kullandığımız için Bilgisayarınızda Internet Explorer'ın Ana Sayfası "yandex.com.tr" ise programımızda ana sayfa butonuna tıklayınca yandex.com.tr ye gidecektir.Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub
Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub"GoBack" Bir önce ki siteyi "GoForward" ise geri tuşuna basmadan önce ki siteyi ziyaret edecektir. Bu kodlara "On Error Resume Next" eklemezsek hata ile karşılaşırız çünkü programı ilk açışımızda kullanıcı hiçbir siteye girmeden ileri veya geri butonuna tıklarsa Runtime hatası verir.Private Sub Command3_Click()
WebBrowser1.Refresh
End SubSayfayı yenilemek için kullanılır.WebBrowser1.Navigate Combo1.TextKodunu git butonuna ekliyelim bu kod ise comboya girilen siteyi webbrowser'da görmemizi sağlar.Biraz daha gerçekçi olması için explorer'ımıza ufak bir eklenti daha eklemek istedim ve sol alt tarafa bir adet " Label ve Timer " ekliyelim.
Timer Interval 100 Olsun.
Private Sub Timer1_Timer()
Label1.Caption = Combo1.Text
End Sub
Kodunuda timer'a ekledikden sonra işlem bitmiş demektir.Örnek Resim:
Örnek Proje: E66HYXGVK7
Takıldığınız yerde sorabilirsiniz.
Yazar: Atakan ATEŞ
Kategori: VB6
Web Adresim: www.kodlabs.org