Membuat Progressbar Pada VB 6.0

Kalau dalam artikel sebelumnya kita membuat tampilan menggunakan shockwave flash, sekarang saya akan membagikan ilmu saya menggunakan progress bar, mungkin rekan2 pembaca udah pernah liat yang bagaimana progress bar. Nah sekarang mungkin sekarang langsung aja ya.

Buatlah project baru dengan pilihan standart exe, kemudian tambahkan component progress bar, dengan cara klik kanan pada area toolbox. Pilih component, pada tab control. Kemudian pilih dengan cara beri tanda centang Microsoft windows common control 6.0 (SP6).
Sudah semuanyaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa. LANJUT
Sekarang kembali kearea kerja kemudian klik icon progress bar. Buatlah sebuah progressbar pada form anda. Dan buatlah sebuah command button, Seperti pada gambar berikut:

Kemudian ketikkan coding (kalo malas copy paste aja) berikut pada coding editor anda dengan cara klik icon view code yang ada pada sudut kanan properties project:
Private Sub Command1_Click()
For manusia_biasa = 1 To 100000 //nilai dapat ditentukan sendiri
Manusia_biasa = manusia_biasa + 1
ProgressBar1.Value = i
Next i
End
End Sub

Private Sub Form_Load()
Dim manusia_biasa As Integer
ProgressBar1.Max = 100000 //nilai dapat ditentukan sendiri
ProgressBar1.Min = 1
End Sub
Setelah itu klik tombol start atau tekan F5 pada keyboard anda.
Sekian artikel dari saya semoga bermanfaat bagi anda sekalian. SELAMAT MENCOBA!!!!!