admin ™ †™ADMINISTATOR™ †™
Jumlah posting : 48 Points : 537 Cendol : 289 Join date : 03.11.10 Age : 34 Lokasi : bandung
| 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 :
* 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 :
* 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:Sumber |
|