Kenalan sama ProgressBar

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 :

Baca Juga

• Menampilkan Periode Mingguan dalam 1 bulan dengan visual basic 6.0
• Hitung Pecahan Uang dengan operator 'mod' dan '\' pada visual basic 6.0 (2)
• Hitung Pecahan Uang dengan operator 'mod' dan '\' pada visual basic 6.0
• Source code vb6 - Cetak Kuitansi Legalisasi Ijazah dan Transkrip Nilai
• Pencarian cepat data dengan ADODC dan SQL(2)
• Menampilkan data dengan ListView dan ADODC (++)
• Menyajikan Crystal Report di dalam MDI Form
• Agar Form Tidak Bisa Ditutup Sembarangan
• Menampilkan Form ' di dalam ' MDI Form

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.