- 24 Haz 2012
- 82
- 0
Visual Basic ProgressBar Kullanımı!
Bölüm 1: Butona Bastığınızda ProgressBar Çalışsın %100 Oluncada Form2 Açılsın
İlk Önce Ekleyeceklerimiz:
1 Adet Button
1 Adet Timer
1 Adet ProgressBar
1 Adet Label (%Yüzde Gösterimi İçin)
Kodumuz:
Bu Kodları ve Gerekli Şeyleri Eklediğiniz Zaman Programda Butona Basılınca ProgressBar Çalışacak %100 Oluncada Form2 Açılacak. İsterseniz Form2 Açılmadan Önce MsgBox'la Uyarması İçin Form2.Show() Adlı Kodumuzun Üstüne Alttaki Kodu Ekleyin.
Bölüm 2: Direk Form Açılınca ProgressBar Çalışsın %100 Oluncada Form2 Açılsın
İlk Önce Ekleyeceklerimiz:
1 Adet Timer
1 Adet ProgressBar
1 Adet Label (%Yüzde Gösterimi İçin)
1. Kodumuzu Forma Direk Ekleyin Yani FormLoada
1. Kodumuz:
2. Kodumuzuda Timer1'e Ekleyelim.
2. Kodumuz:
İstediğiniz Soruları Sorabilirsiniz Elimden Geldiği Kadar Yardımcı Olacağım ![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Bölüm 3'ü Sorunuzla Ekleyeceğim![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Bölüm 1: Butona Bastığınızda ProgressBar Çalışsın %100 Oluncada Form2 Açılsın
İlk Önce Ekleyeceklerimiz:
1 Adet Button
1 Adet Timer
1 Adet ProgressBar
1 Adet Label (%Yüzde Gösterimi İçin)
Kodumuz:
Kod:
Public Class Form1
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
Timer1.Stop()
Form2.Show()
Me.Hide()
End If
Label1.Text = ProgressBar1.Value & (" %")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
End Class
Kod:
MsgBox("Yükleme İşlemi Bitti! Yönlendiriliyorsunuz!", , "Yükleme İşlemi Bitti!")
İlk Önce Ekleyeceklerimiz:
1 Adet Timer
1 Adet ProgressBar
1 Adet Label (%Yüzde Gösterimi İçin)
1. Kodumuzu Forma Direk Ekleyin Yani FormLoada
1. Kodumuz:
Kod:
Timer1.Start()
2. Kodumuz:
Kod:
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
Timer1.Stop()
MsgBox("Yükleme İşlemi Bitti! Yönlendiriliyorsunuz!", , "Yükleme İşlemi Bitti!")
Timer1.Stop()
Form2.Show()
Me.Hide()
End If
Label1.Text = ProgressBar1.Value & (" %")
Bölüm 3'ü Sorunuzla Ekleyeceğim