bize gerekli olanlar
command buton ve Picturebox
Sub Command1_Click()
Picture1.ForeColor = RGB(0, 0, 255) 'mavi renk
For i = 0 To 100 Step 0.01'burada sayacin kac kac sayacagini belirliyoruz
updateprogress Picture1, i
Next 'burada devam diyaoruz
Picture1.Cls 'Bitince picture1 nesnesini temizle
Unload Me
End Sub
Sub updateprogress(pb As Control, ByVal percent)
Dim num$ 'ilerleme yüzdesi
If Not pb.AutoRedraw Then 'picture memoride
pb.AutoRedraw = -1
End If
pb.Cls 'picture memory den temizle
pb.ScaleWidth = 100 'yeni tarama modu
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 'Yüzdeyi yaz
pb.Line (0, 0)-(percent, pb.ScaleHeight), , BF
pb.*******
End Sub
command buton ve Picturebox
Sub Command1_Click()
Picture1.ForeColor = RGB(0, 0, 255) 'mavi renk
For i = 0 To 100 Step 0.01'burada sayacin kac kac sayacagini belirliyoruz
updateprogress Picture1, i
Next 'burada devam diyaoruz
Picture1.Cls 'Bitince picture1 nesnesini temizle
Unload Me
End Sub
Sub updateprogress(pb As Control, ByVal percent)
Dim num$ 'ilerleme yüzdesi
If Not pb.AutoRedraw Then 'picture memoride
pb.AutoRedraw = -1
End If
pb.Cls 'picture memory den temizle
pb.ScaleWidth = 100 'yeni tarama modu
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 'Yüzdeyi yaz
pb.Line (0, 0)-(percent, pb.ScaleHeight), , BF
pb.*******
End Sub