Web Tarayıcı Yapın

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        s_durum.Text = "Sayfa Yüklendi" 'altta durum yazan yerde sayfanın yüklendiği yazıyor
        Timer1.Stop() 'zaman işleyişini durdurur
    End Sub

    Private Sub b_git_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_git.Click
        Timer1.Start() 'zamanı başlatır
        WebBrowser1.Navigate(t_yazi.Text) 'web sayfasına bağlanmayı sağlar
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        s_yuklemedurumu.Value = s_yuklemedurumu.Value + 10 'progressbarın her saniyede 10 birim artmasını sağlıyor
        s_durum.Text = t_yazi.Text + " yükleniyor"
        If s_yuklemedurumu.Value = 100 Then
            s_yuklemedurumu.Value = 0 'yükleme durumunun tamamen dolduktan sonra tekrar başlamasını sağlar if den başlayarak end if e kadar
        End If
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Timer1.Stop()
        s_durum.Text = t_yazi.Text + " Yüklendi"
    End Sub

    Private Sub s_durum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s_durum.Click

    End Sub

    Private Sub s_yuklemedurumu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s_yuklemedurumu.Click

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Dim cevap
        cevap = MsgBox("Programı Kapatmak İstiyormusunuz!", MsgBoxStyle.YesNo, "Programı Kapat")
        If cevap = vbYes Then
            End
        End If
    End Sub
End Class