Membuat Progress Bar Dengan VB6

Subyek: Membuat Progress Bar Dengan VB6 Fri Oct 07, 2011 3:57 am

* Buka Visual Basic 6.0, setelah itu pilih form standar.exe
* Pada properties form, ganti captionnya menjadi, Progress Bar
* Kemudian, klik kanan pada bagian kosong di toolbar general dan
pilih components atau melalui menu Project -> Components, seperti ini
:
Membuat Progress Bar Dengan VB6 2vb

* Pada tab components, pilih Microsoft Windows Common Controls 6.0 (SP6), kemudian klik Apply lalu OK.
* Selanjutnya masukkan, 1 buah progress bar dan 1 buah timer, seperti ini :
Membuat Progress Bar Dengan VB6 3vb

* Setelah itu klik 2 kali pada Timer1
* Lalu, masukkan code ini :

Hidden Content

Quote
Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then
ProgressBar1.Value = 0
Else
ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1)
End If
End Sub

* Setelah itu, close Form1Code tersebut, dan klik lg pd timer1.
* Ganti intervalnya menjadi 100
* Kemudian coba compile dengan menekan tombol play.
* Jika berhasil tampilannya seperti ini:
Membuat Progress Bar Dengan VB6 4vb

Sumber