Membuat loading pada vb6

1. buka VB 6

2. drag componen “textbox” ke form anda

3. drag componen “command button” ke form anda

(beri nama “Simpan” contohnya)
4. drag componen “progressbar”
(jika tidak ada pada toolbox anda,,>> klik kanan toolbox – klik component – pada tab controls, pilih “Microsoft Windows Common Controls 6.0 (sp6)”, klik ok  <<.maka component progressbar akan tampil pada toolbox anda)
5. ketik coding dibawah pada form code anda…

Codingna :

Private Sub Command1_Click()
With Me.ProgressBar1
.Appearance = ccFlat
.Scrolling = ccScrollingSmooth
.Max = 10000
.Min = 0
.Value = 0
Dim i As Integer
For i = .Min To .Max
.Value = i
Next i
MsgBox "Complete", vbInformation, "Information"
.Value = 0
End With
End Sub

Link bisa diUnduh di:

http://www.stikom-db.ac.id/forum/viewtopic.php?f=20&t=283

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: