[kan-nas]

Selamlar; ProgressBar'ın çalışması il ilgili basit bir örnek yazabilir misiniz.? Ekteki örnekler biraz karışık geldi.

[Erhan Yavuz]

Kod: Tümünü seç

Private Sub CommandButton1_Click()
    For X = 1 To 1000
    ProgressBar1.Value = (X / 1000) * 100
    Application.CalculateFull
    Label1.Caption = Format(ProgressBar1.Value, "% 00")
    DoEvents
    Next X
End Sub

[kan-nas]

[sonraull]

[egon77]

[apple-adige]

Erhan bey ben bu konu ile ilgili birtürlü cözemediğim bir sorun paylaşmak istiyorum. Projemin belirli yerlerinde Progressbar kullanmak istedim fakat tam olarak çalıştıramadım, örneğin;
Kaydet butonuna bastığımda progressbar çalışıyor ve %100 tamamlanıyor fakat kaydetme işlemi için birkaç saniye daha bekliyorum. Yani tam olarak entegre edemedim, anlayamadım daha doğrusu.
Progressbar kodlarından sonra butonun kaydetme kodunu veriyorum yinede her ikiside birbirinden bağimsız çalışıyor..
Dahada önemlisi Programın başlangıcında yaklaşık 10 saniye kadar veritabanına bağlanmasından sanırım bekleme yaşanıyor; bende auto_open sub için programdan önce açılacak bir loading form oluşturmak istedim, üzerinde progressbar ve otomatik açılınca %100 tamamlandıgında index.show ve ardından da unload me verdim ama tamamlanma bitti tekrar index açılışını 10 saniye kadar bekliyorum.
inşallah karıştırmamışımdır souyu
Saygılarımla

[Erhan Yavuz]

Erkan bey, ProgressBar da kullanılan döngü, progressbar ın nesnel uzunluğu ve bunu adımlattığınız döngü sayısı ile ilgili... Save ve Load olaylarında bunu uygulayabilmek için -aklıma gelen fikir olarak söylüyorum, deneme şansım yok ama- program boyutunun, bilgisayarın matematiksel işlem hızı ile progressbar uzunluğu arasında denge kurarak yapmak lazım.. Bizim Excelde kullanduğımız progressbar uygulaması ise basit bir döngü olayını renklendirmekten öte değil..
Belki bekleme için kullanılan Doevents yerine timer kullanırsanız, belki daha tatmin edici olur sadece göz yanılmasına yarar...

[Ersoy AYDIN]

Office 2007 de ProgresBar referansının adı nedir ? 2003 için verilen örneğe göre aradım , ilgili referans benim kütüphanelerim arasında yok...Ne yapmalıyım ?

[Murat OSMA]

Microsoft Windows Common Controls (6.0)
Gerekli Ocx : MSCOMCTL.OCX