Firefox ve IE benzeri ama basit bir internet tarayıcı
1 tane tooltip üzerinde 1 label, 1 textbox, 1 button, 1 status bar üzerinde 1 label ve progress bar ekliyoruz.
1 tane tooltip üzerinde 1 label, 1 textbox, 1 button, 1 status bar üzerinde 1 label ve progress bar ekliyoruz.
Kod:
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