Timer Kullanmadan Progressbar Yapımı

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Progress ve timer nesnesiyle uğraşmayın. Picture nesnesi neyimize yetmiyor? Gelin, çok güzel, renkli bir progressbar yapalım.

Evet arkadaşlar, Visual Basic 6.0'a nasıl progressbar yerleştirilir gibi sorular soracağımıza nasıl bir progressbar yaratabilirim diye sorular sormamız gerekir.

Gelelim konumuza... Önce formumuzu hazırlıyoruz. Progress barın ne kadar uzun geniş olmasını istiyorsanız ona göre bir Picture nesnesi ekleyin... Bir adet de Command ekleyin yeter.

Şimdi gelelim kodumuza. Önce updateprogress bar ile progressbar'ı forma atayalım:

Sub updateprogress(pb As Control, ByVal percent)

Dim num$

If Not pb.AutoRedraw Then

pb.AutoRedraw = -1
End If

pb.Cls
pb.ScaleWidth = 100
pb.DrawMode = 10
num$ = Format$(percent, "###") + "%"

pb.CurrentX = 50 - pb.TextWidth(num$) / 2

pb.CurrentY = (pb.ScaleHeight - pb.TextHeight(num$)) / 2

pb.Print num$; 100
pb.Line (0, 0)-(percent, pb.ScaleHeight), , BF

pb.Refresh
End Sub

Kodumuzda pb kısaltmadır. Artık alışırsanız bence işiniz daha kolay olur. Koddaki bazı küçük kodlar kafanızı karıştıracağı için anlatmayacağım. İlerde daha geniş bir şekilde bahsedeceğim.

Gelelim Command Nesnesinin kodlarına:

Sub Command1_Click()

Picture1.ForeColor = RGB(0, 0, 255)
For i = 0 To 100 Step 0.01

updateprogress Picture1, i

Next

Picture1.Cls
Unload Me
End Sub

Burda bilmeniz gereken RGB(0,0,255) Bunun anlamı picture nesnesinin rengini Mavi yapar siz rakamlarla oynayabilirsiniz.

Bir başka bilmeniz gereken nokta ise Step 0,001. Bu ise kaçar kaçar ilerleyeceğini gösterir. Next, yani bu picturenin işi bittiğinde picture nesnesini kapatıyoruz ve formu kaybediyoruz.

Siz projeleriniz için bir giriş yapabilir, Unload Me yerine örneğin Form2.Show katabilirsiniz..

Çok basit işlerden büyük projeler yaratabilirsiniz...

Kolay Gelsin...

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .