0 Membuat Progressbar atau Efek Loading Pada Visual Basic 6.0

Selamat siang sahabat Cyber-Hack semuanya, kini saya akan sedikit berbagi lagi tentang tutorial Pemrograman Visual Basic 6.0. Kali ini kita akan membahas tentang Progressbar, yaitu suatu effect Loading pada suatu program,  dan untuk membuatnya sangatlah mudah sekali,Berikut Pembahasnnya :

• Pertama buka program visual basic 6.0

• Tambahkan komponen Microsoft Windows Common Controls 6.0 (SP6) dengan cara menekan CTRL+T

Penambahan komponen

• Tambahkan komponen Progressbar dan Timer pada form, seperti gambar berikut:

 

• Tambahkan interval Timer1 menjadi 300

• Tambahkan Form baru

• Untuk meyakinkan semua komponen telah siap lihat gambar dibawah ini:

• Setelah menambahkan form baru ketikanlah sintak berikut:

Private Sub Timer1_Timer()
Dim A As Integer
Progressbar1.Min = 0
Progressbar1.Max = 10000
For a = 1 To Progressbar1.Max
A = A + 1
Progressbar1.Value =A
Next a
If Progressbar1.Value = 10000 Then
Unload Me
Form2.Show
End If
End Sub

• Dan sila coba jalankan program dengan menekan F5

Silakan Doanload Contohnya di bawah sini :
                                                                Download (74 kb).