WebBrowser - Uygulama

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.kentmerkezi.8m.com"
Combo1.AddItem “http://www.kentmerkezi.8m.com/”
End Sub

Private Sub Geri_Click() ‘ Bir önceki sayfaya gider
On Error Resume Next
WebBrowser1.GoBack
End Sub

Private Sub ileri_Click() ‘ Geri gidilmiş ise bir sonraki sayfaya
On Error Resume Next
WebBrowser1.GoForward
End Sub


Private Sub Ana_Sayfa_Click() ‘ İlk gidilen adrese gider
On Error Resume Next
WebBrowser1.GoHome
End Sub

Private Sub Yenile_Click() ‘ Sayfayı tekrar çağır
On Error Resume Next
WebBrowser1.Refresh
End Sub

Private Sub dur_Click() ‘ Sayfa çağırma işlemini durdurur
On Error Resume Next
WebBrowser1.Stop
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ‘ Enter tuşu ile yazılan sayfa çağrılır
Git_Click ‘ Ortak kod nedeniyle Git_Click
End If
End Sub

Private Sub Git_Click()
Dim kontrol As Boolean
kontrol = False
WebBrowser1.Navigate Combo1.Text ‘ Combo’da yazılı adrese git
For I = 0 To Combo1.ListCount – 1 ‘ Combo’da yoksa listeye ekle
If Combo1.List(I) = Combo1.Text Then kontrol = True
Next I
If kontrol = False Then Combo1.AddItem Combo1.Text
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
sayfa_adı.Caption = "Bağlanılıyor " & Combo1.Text ‘ Durum bilgisi
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
sayfa_adı.Caption = WebBrowser1.LocationName
End Sub ‘ Bağlanılan adresin başlığı