Kenalan sama ProgressBar

Baca Juga

Sebelumnya pastikan telah menambahkan component :  Microsoft windows common control 5.0 (SP2) atau Microsoft windows common control 6.0 (SP3). dalam project anda.

Kemudian masukkan beberapa component berikut kedalam Form anda

Progressbar >> name : Pg1
2 buah Label >> Label1>> Caption = 0
                     >> Label2>> Caption = %
Commandbutton>> Caption = Lanjutkan
Timer >> interval = 10 (yang penting > 0)

Sehingga akan muncul tampilan seperti gambar ini :

kemudian COPAS (Copy-Paste) Code dibawah ini ke jendela code project VB anda.

Private Sub Command1_Click()
        Pg1.Max = 10000 ' ganti dengan nilai tertentu
        Pg1.Min = 0
        Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
        For  i = 1 To Pg1.Max
             Pg1.Value = i
             Label1.Caption = FormatNumber(i / Pg1.Max * 100, 2)
             Label1.Refresh
       Next i
       Timer1.Enabled = False
       MsgBox "selesai"
       Pg1.Value = 0
       Label1.Caption = 0

End Sub

Kalau gak mau pusing, mending langsung download saja contoh projectnya di sini.