VB 2010 Progress Bar çalıştırma örnekleri

[NBATMAN]

Merhaba,


Örnek 1:


forma bir progressbar,buton,timer ve 2 adet label ekleyip aşağıdaki kodları forma ekleyiniz.


aşağıdaki kodları istediğin gibi düzenledim. Kolay gelsin...

PublicClassForm1

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "Processing..."
Timer1.Enabled = True
EndSub
PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value + 1
Dim Sayı AsInteger
Sayı = ProgressBar1.Value
Label2.Text = "%" & Sayı
If ProgressBar1.Value = 100 Then
ProgressBar1.Value = 0

EndIf
EndSub
EndClass


Örnek 2:


Bu örnekte rastgele sayı üretmede var...

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "Processing..."
Timer1.Enabled = True
　
EndSub

PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then
ProgressBar1.Value = 0
Dim Sayı AsInteger
Randomize()
Sayı = Math.Ceiling(Rnd() * 10000000)
Label2.Text = Sayı
Timer1.Enabled = False
EndIf
EndSub