24 Mei 2009

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 :





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.

Artikel Terkait Lainnya Seputar:



1 komentar:

  1. Kalo buat membaca data dari database bgmn ya ?

    Misalnya kita men-select 500 data ke dalam listview. sebelum data benar2 ditampilkan smua, saya mau adanya Loading data menggunakan progress bar. Thanks jawaban-nya :)

    BalasHapus