- 1 Adet Timer
- 1 Adet label
- 1 Adet Progressbar
Kodlara gelelim
-//-------------------------------------------------------------------------------------------------
Progressbar1.Value = Progressbar1.Value + 1
Dim maxval As Integer = processbar1.Maximum
Dim valuenow As Integer = processbar1.Value
Dim valuea As Integer = maxval / 100
Dim valueb As Integer = valuenow * valuea
Label1.Text = "%" + valueb.ToString
--------------------------------------------------------------------//----
Not : Timer 1 Enabled = True Olması lazım aksi takdirde mekanizma çalışmaz.processbarın hızını ayarlamak için timerin intervalını ayarlayınız.
Zaman Ayarı kavramı
Timer İntervalı processbarın hızını ayarlar
Timer İnterval = 100 = 100 Salise'de Processbarın Bir Kutusu DolarTimer İnterval = 1000 = 1 Saniyede'de Processbarın Bir Kutusu Dolar
Timer İnterval = 10000 = 10 Saniye'de Processbarın Bir Kutusu Dolar
İyi Kullanımlar #
Sorun Olursa yazıya mesaj Atınız Sorununuzu Çözeriz.
İfadeleri Gösterİfadeleri Gizle