ProgressBar ve kullanımı

[celal_gozlek]

ArkadaÅŸlar,
Bir çok programda herhangi bir işlem yaparken işlemin devam ettiğini ve seviyesini gösteren işaretler vardır.Tıpkı mouse un meşgul işareti gibi.Programlarda dosya kopyalarken veya program kurarken çizgiler şeklinde grafik görürüz.Buna ProgressBar adı verilir.
Benim yazdığım programların çoğunda da vardır.İşte bunun acces te nasıl yapıldığını anlatacağım.
Her ne kadar şu anda çok işinize yaramasa da programcılığa meraklı olan arkadaşlara ip ucu olacaktır.
Åžimdi:
1)Acceste boş bir veritabanı açın.
2)Tasarım modunda bir form oluşturun.
3)Forma bir düğme yerleştirin.
4)Düğme ile ilgili hiç bir görev yazmayın veya seçmeyin.Boş bir düğme olsun.
5)Yine forma araç çubuklarındaki diğer denetimler kutucuğundan Mikrosoft ProgressBar Control,versiyon 6.0 seçeneğini tıklayın.
6)İmlecinizin + şekline dönüştüğünü görürsünüz.
7)Formda mouse 2un sol tuşuna basılı tutarak küçük ve ince bir dikdörtgen oluşturun.
8)Bu oluşturduğunuz ProgressBar üzerinde sağ tıklayıp özelliklerine bakın.
9)En üstte ProgressBar0 yazdığını göreceksiniz.
10)Bu sizin 0 adlı progressBar ınızdır.
11)Özellikler seçeneğinde Max yazan bölmeye 900 yazın.Bu ProgressBar ın alacağı maximum değerdir.
12)Bu işlemi yaptıktan sonra formda oluşturduğunuz düğmenin üzerinde sağ tıklayıp Olay Oluştur seçeneğine tıklayın.
13)Kod alanına aşağıdaki kodlrı aynen yazıp kaydedin.
14)Formdaki düğmeye bastığınızda progressBarın hareketini göreceksiniz.

Private Sub Komut1_Click()
For i = 1 To 900
ProgressBar0.Value = i
Next i
If ProgressBar0.Value = 900 Then
ProgressBar0.Value = 0
End If
End Sub

Kolay gelsin.

[Nurhak]

hocam ya diğer denetimler hakkında da biraz bilgilendirseniz örnekli olarak bizde bunları geliştirsek araç kutusundaki diğer eklentileri.