Başlangıç > Kodlar > VB.NET ile Web tarayıcı örneği

VB.NET ile Web tarayıcı örneği


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.


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


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: