Progres Bar Kullanımı

Progress Bar Dolunca 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
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.


Kod:
MsgBox("Yükleme İşlemi Bitti! Yönlendiriliyorsunuz!", , "Yükleme İşlemi Bitti!")
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:


Kod:
Timer1.Start()
2. Kodumuzuda Timer1'e Ekleyelim.




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 & (" %")