- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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;
Kod:
Label1.Width = 0
Timer'a da şunu yazın ;
Kod:
Label1.Width = Label1.Width + 10 'geniliği artırıyoruz.If Label1.Width >= Form1.Width Then 'genişlik form ile aynı olursaLabel2.Caption = "Yüklendi...." 'yüklendi yazısı çıkaracak. Siz yaptıracağınız işlemi yazarsınız.Label2.ForeColor = vbBlue 'renk verdikkLabel2.FontBold = True 'yazıyı kalın yaptıkEnd If
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;
Kod:
Label1.Width = 0
Timer'a da şunu yazın ;
Kod:
Label1.Width = Label1.Width + 10 'geniliği artırıyoruz.If Label1.Width >= Form1.Width Then 'genişlik form ile aynı olursaLabel2.Caption = "Yüklendi...." 'yüklendi yazısı çıkaracak. Siz yaptıracağınız işlemi yazarsınız.Label2.ForeColor = vbBlue 'renk verdikkLabel2.FontBold = True 'yazıyı kalın yaptıkEnd If
BÖYLECE 1.DERSİMİZ BİTTİ ARKADAŞLAR
DİĞER DERSİMİZİDE GÖRÜŞMEK ÜZERE
DİĞER DERSİMİZİDE GÖRÜŞMEK ÜZERE
