'örnek bir webbrowser yapımı

'örnek bir webbrowser yapımı

'--------------------------------------------------------------------------------





Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

On Error Resume Next

WebBrowser1.ScriptErrorsSuppressed = True

Kod.Visible = False

WebBrowser1.Navigate("http://www.google.com")

End Sub

Private Sub toolStripTextBox1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Adres.KeyDown

On Error Resume Next

WebBrowser1.ScriptErrorsSuppressed = True

If (e.KeyCode = Keys.Enter) Then

Navigate(Adres.Text)

End If

End Sub



Private Sub goButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles goButton.Click

On Error Resume Next

WebBrowser1.ScriptErrorsSuppressed = True

WebBrowser1.Navigate(Adres.Text)

End Sub

Private Sub Navigate(ByVal address As String)

WebBrowser1.ScriptErrorsSuppressed = True

If String.IsNullOrEmpty(address) Then Return

If address.Equals("about:blank") Then Return

If Not address.StartsWith("http://") And _

Not address.StartsWith("https://") Then

address = "http://" & address

End If

Try

WebBrowser1.Navigate(New Uri(address))

Catch ex As System.UriFormatException

Return

End Try

End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

On Error Resume Next

WebBrowser1.ScriptErrorsSuppressed = True

Adres.Text = WebBrowser1.Url.AbsoluteUri

Me.Text = WebBrowser1.Document.Title + "
Kerkur Hızlı Web"

End Sub



Private Sub webBrowser1_Navigated(ByVal sender As Object, ByVal e As WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated

On Error Resume Next

WebBrowser1.ScriptErrorsSuppressed = True

Adres.Text = WebBrowser1.Url.ToString()

End Sub



Private Sub Geri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Geri.Click

On Error Resume Next

WebBrowser1.ScriptErrorsSuppressed = True

If WebBrowser1.CanGoBack = True Then

WebBrowser1.GoBack()

Else

'MsgBox("Cannot go back any further", MsgBoxStyle.Information)

End If

End Sub

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

On Error Resume Next

WebBrowser1.ScriptErrorsSuppressed = True

If WebBrowser1.CanGoForward = True Then

WebBrowser1.GoForward()

Else

' MsgBox("Cannot go further forward", MsgBoxStyle.Information)

End If

End Sub

Private Sub Anasayfa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Anasayfa.Click

On Error Resume Next

WebBrowser1.ScriptErrorsSuppressed = True

WebBrowser1.GoHome()

End Sub

Private Sub Yenile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Yenile.Click

On Error Resume Next

WebBrowser1.ScriptErrorsSuppressed = True

WebBrowser1.Refresh()

End Sub

Private Sub SKodgoster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SKodgoster.Click

On Error Resume Next

WebBrowser1.ScriptErrorsSuppressed = True

'Sayfa Kodunu al

Kod.Text = WebBrowser1.DocumentText

Kod.Visible = True

End Sub

Private Sub Kod_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Kod.DoubleClick

On Error Resume Next

WebBrowser1.ScriptErrorsSuppressed = True

If MsgBox("Koddan çıkmakmı istedin", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

Kod.Visible = False

Kod.Visible = False

End If

End Sub

Private Sub Arama_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Arama.Click

On Error Resume Next

WebBrowser1.ScriptErrorsSuppressed = True

' arama kodu html de varmı diyor işaretlemiyor

Dim kodu As String

Dim aracan As String

kodu = Kod.Text

aracan = InputBox("Aranacak ifade")

Dim arasonuc As String

arasonuc = kodu.IndexOf(aracan)

If arasonuc = -1 Then

MsgBox("İçinde Yok")

Else

MsgBox("Aranan ifade =" & aracan)

End If

End Sub

End Class