ProgressBar Taşınabilir İlerleme Çubuğu

Bu dosya, UserForm üzerinde çalışan ve fareyle sürüklenerek taşınabilen bir ilerleme çubuğu (ProgressBar) örneğidir. Çubuk, hazır bir ActiveX nesnesi yerine ProsesBar adlı sınıf modülüyle çalışma anında üç Label nesnesinden oluşturulur. İlerleme hem dolan çubukla hem de yüzde değeriyle gösterilir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com: B1:E9 aralığında yer alan karşılama sayfasıdır. Formül içermez.
• UserForm1: Çubuğun gösterildiği form ve üzerindeki başlatma düğmesi (CommandButton1).
• ProsesBar: Çubuğu oluşturan, değer ve konum özelliklerini yöneten sınıf modülü.
• Module1: Formu açan Form_Ac makrosu.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodlarda dosya silme, dışarıya bağlantı gibi zararlı bir işlem yoktur.

• Form_Ac: UserForm1 formunu açar. Çalıştırmak için Alt+F8 ile makro listesinden seçmeniz yeterlidir.
• UserForm_Activate: Form açıldığında ProsesBar nesnesini oluşturur; çubuğun sol ve üst konumunu 10 olarak, en büyük değerini (Max) 10000 olarak belirler ve formu sınıfa bağlar. Bağlama sırasında LblAlt (zemin), LblOrta (dolan kısım) ve LblUst (yüzde yazısı) etiketleri forma eklenir.
• CommandButton1_Click: 1'den Max değerine kadar döngü kurar, her adımda DoEvents çağırıp çubuğun Value değerini günceller.
• UserForm_QueryClose: Form kapanırken nesneyi serbest bırakır.
• Value özelliği: Dolan kısmın genişliğini değer/Max oranına göre ayarlar ve "% " ile başlayan yüzde yazısını yazar; yüzde RoundA işleviyle yuvarlanır.
• LBL_MouseDown ve LBL_MouseMove: Sol fare tuşu basılıyken çubuğu sürükler; üç etiket birlikte hareket eder.
• Min özelliği: Yalnızca 0 değerini kabul eder; başka bir değer atanırsa hata üretilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile Form_Ac makrosunu çalıştırın.
3. Formdaki düğmeye tıklayın; çubuk dolarken yüzde değeri güncellenir.
4. Çubuğu formun başka bir yerine taşımak için üzerine sol tuşla basıp sürükleyin.
5. Kendi çalışmanızda kullanmak için ProsesBar sınıfını projenize alın, formunuzda Max ve User_Form özelliklerini atayın, uzun işlem döngünüzde Value değerini güncelleyin.