Label Kullanarak Progressbar Yapalım

Formun genişliğini Kullanarak Basit Bir ProgressBar Yapalım.

Dersimiz Oldukça Basit Ve label Formun GEnişliğine Ulaştığı Zaman İşleminiz Gerçekleşsin Basit Bir Progressbar Oluşsun.

Forma 1 Tane Timer(enabled Özelliği False Olsun) 1 Tane Label Ekleyelim .

Formun Labelim Backcolor rengini siyah Yapalım Forecolor Rengini Beyaz Yapalım....

Formumuzun Genişliğide Aşağıdaki Gibi Olsun veya Kodlarla Sabit tutabilirsiniz Ama Elle Şekil Vermek Daha Kolay şekli verdikten sonra Formun Borderstyle özelliğini Fixed Single Yapalım Aşağıdaki Boyut BEnim için Yeterli Siz Ne Kadar İsterseniz O kadar Formu Büyültün



Şimdi Forma Labelin Boyutunun 0 dan başlaması için Form_Load kısmına


Label1.Width = 0



yazıyoruz Timerimizi Başlatmak ve intervalini Ayarlamak için ise yine Form Load Kısmına:


Timer1.Enabled = True

Timer1.Interval = 10

yazıyoruz Kodumuz Şu Şekilde Oluyor

Private Sub Form_Load()

Label1.Width = 0

Timer1.Enabled = True

Timer1.Interval = 10

End Sub



Şimdi Gelelim Timer Nesnesine...

Label timerin interval özelliğine göre 10 artsın istiyoruz bunu için timere:


Label1.Width = Label1.Width + 10



kodunu ekliyoruz...
Şimdi ise Labelimizin Genişliği Formun Genişliğine geldiğinde If komutuyla Yapacağımız İşlemi Yazıyoruz Ben tekrardan bu olayın yenilenmesini istiyorum mesala bunu için timere


If Label1.Width >= Form1.Width Then

     Label1.Width = 0

         Label1.Width = Label1.Width + 10

         

         End If



ekliyorum. Böylece Label Formun Genişliğine Ulaştı mı Aynı Olay Bir Daha Başlayacak.

Kolay Gelsin...
  • Etiketler;
İnan Yılmaz
Hakkında bilgiler en kısa sürede eklenecektir.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Lütfen derste yazım kurallarına dikkat edelim. Bütün kelimelerin ilk harflerini büyük yapmayınız. Normal cümle kurallarına göre yazınız. Aksi halde bundan sonraki dersleriniz onaylanmayabilir.

Yukarı Git