Visual Basic 2010 Express - Progressbar'ı % Olarak Yürütme




  • 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 Dolar

Timer İ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.