Label Kullanarak Progressbar Yapımı /Vb.6 (1.Ders)

[RazerTR]

Türkiye'de ilk Mobil & PC Aynı Anda Metin2 Oyna. Triarchonline kalıcı ve uzun ömürlü yapısı ile 24 Temmuz'da açılıyor. | 1-99 Mobil Metin2 Triarch HEMEN TIKLA!

Gerekenler ;

1 Tane Timer(enabled :true ; Interval = 10)
2 Tane Label

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 arkadaşlar siz ne kadar isterseniz o kadar formu büyültün

Label1 = Progressbar olarak kullanıcak.
Label2 = Label1 Tamamlandığında Yüklendi Yazısı Çıkacak.

Form_load'a Şunu Yazalım;

Label1.Width = 0

Timer'a da şunu yazın ;

Label1.Width = Label1.Width + 10 'geniliği artırıyoruz.
If Label1.Width >= Form1.Width Then 'genişlik form ile aynı olursa
Label2.Caption = "Yüklendi...." 'yüklendi yazısı çıkaracak. Siz yaptıracağınız işlemi yazarsınız.
Label2.ForeColor = vbBlue 'renk verdikk
Label2.FontBold = True 'yazıyı kalın yaptık
End If

BÖYLECE 1.DERSİMİZ BİTTİ ARKADAŞLAR
DİĞER DERSİMİZİDE GÖRÜŞMEK ÜZERE​

 

[OptiMistics]

teşekkürler.

 

[RazerTR]

onemli değil

 

[JosephRainy]

Teşekkürler.

 

[cixcocuk97]

TeşekkürLer Deneyeceğim Vaktim Olduğunda.