Pages

Ads 468x60px

Cara Membuat Progresbar Sederhana di VB6

Barilmu - berjumpa lagi.. Kali ini saya akan menulis postingan tentang 'Cara Membuat Progresbar di VB6' (Visual Basic 6.0). Progresbar bagi sebagian orang menjadi hal yang menarik perhatian pada setiap aplikasi (itupun jika ada progresbarnya), progresbar ini biasanya kita jumpai pada proses Loading (Contohnya saat Booting) ataupun sebagainya.
Dan ini Langkah-Langkahnya :
1. Buka Visual Basic 6.0 > Standard EXE
2. Masukan Komponen dengan cara tekan tombol 'Ctrl+T' dan pilih 'Microsoft Windows Common Controls 6.0'
3. Klik Apply, lalu Oke
4. Selah itu, masukan 1 Progresbar, 1 Command Button dan 1 Timer
5. Nama-Nama Propertisnya semua default, kecuali timer ( Propertis timer = Interval : 100)
6. Setelah itu, buat satu Form lagi
7. Selanjutnya kita akan menuju proses Coding, silahkan Copy-Paste ataupun Ketik kode dibawah :
 Coding pada Form :

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Coding pada Timer :

Private Sub Timer1_Timer()
      ProgressBar1.Value = ProgressBar1.Value + 2
      If ProgressBar1.Value = ProgressBar1.Max Then
        Timer1.Enabled = False
        Unload Me
      End If

Coding pada Command Button :

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

SELAMAT MENCOBA