Cara Membuat ProgresBar di vb 6 - Pada kesempatan sebelumnya kita pernah pelajari bersama tutor
cara membuat downloader dengan progresbar di vb.net. Dan pada kesempatan kali ini kita akan bahas bersama tutor membuat progressbar di visual basic classic alias vb6.
Koq cuma ProgressBar aja, downloadernya mana? Nah, pada kesempatan ini untuk downloader akan kita bahas dikesempatan berikutnya. Nah yuu, kita pelajari bersama cara membuatnya.
Berikut
cara membuat progressbar dengan vb6 :
Bahan-bahan :
1 Command Button
1 Timer
1 Label
1 User Control (progressBar.ctl), unduh terlebih dahulu
disini
Langkahnya :
- Open Visual Basiv/vb6 sobat
- Setelah keluar 1 buah Form Project, add component seperti diatas dan atur dan design serta beri nama suka-suka kalian
- Untuk penampilannya mungkin bisa seperti saya pada gambar di atas.
- Sekarang kita lanjut, klik kanan pada Form1 dan pilih view code, lalu pastekan kode berikut :
Dim i As Long
Dim iSplash As Integer
Dim Go As Boolean
- Setelah itu, kembali pada Form1, dan klik 2x pada Timer1 dan pastekan kode berikut :
On Error Resume Next
iSplash = iSplash + 1
ProgressBar1.value = ProgressBar1.value + 1000 / 700
If iSplash > 100 Then
Timer1.Enabled = False
Screen.MousePointer = vbNormal
Me.WindowState = 0
Do
Me.Left = Me.Left + 2000
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
MsgBox "Selamat yaa....!!!", vbInformation, "Sukses"
Unload Me
End If
- Setting Propertiese Timer1 dengan Interval 20, dan Enable False
- Kembali ke Form1, dan klik 2x pada CommandButton1 dan pastekan kode berikut :
Timer1.Enabled = True
- Sekarang kita coba play debuger untuk mengetahui berhasil atau tidak, jika tidak coba ikutin-tutorial lagi dari atas.
Kalau tidak mau pusing, nih saya beri source codenya, tinggal edit-edit suka-suka sobat.
Download PrograssBar Vb6
Selamat mencoba dan berkreasi, semoga bermanfaat.
