Loading ProgressBar di StatusBar

Pada artikel sebelum untuk ProgressBar telah admin uraikan dengan judul Loading Progressbar Berdasarkan Record, akan tetapi untuk kali ini sedikit berbeda dan tetap menggunakan komponen PorgressBar dengan tambahan StatusBar. Komponen StatusBar dan ProgressBar masih termasuk satu kesatuan dari Microsoft Windows Common Controls 6.0 (SP6). 

Buka Microsoft Visual Basic 6.0 dan tambahkan komponen : 

1. ProgressBar

2. StatusBar

3. Timer

Tambahkan komponen ProgressBar, StatusBar dan Timer pada form, untuk StatusBar klik kanan kemudian pilih menu Properties kemudian pilih tab Panels klik tombol InsertPanels. Untuk panels yang pertama pada kolom Text kita beri caption Proses : kemudian klik kembali tombol InsertPanels, akan tetapi pada kolom Text dibiarkan kosong saja.

Double klik pada form kemudian pilih prosedur (General) dan copykan syntak variabel-variabel function dibawah ini

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXBORDER = 5
Const SM_CYBORDER = 6

Masih didalam prosedur (General) dilanjutkan pilih Form dengan prosedur Form_Load dan copykan syntak setting posisi tata letak ProgressBar berada dibawah ini

Dim lngBorderX As Long
Dim lngBorderY As Long
lngBorderX = GetSystemMetrics(SM_CXBORDER) * Screen.TwipsPerPixelX
lngBorderY = GetSystemMetrics(SM_CYBORDER) * Screen.TwipsPerPixelY
SetParent ProgressBar1.hWnd, StatusBar1.hWnd
With StatusBar1
  ProgressBar1.Move .Panels(2).Left + lngBorderX, 3 * lngBorderY, .Panels(2).Width - (2 * lngBorderX), .Height - (4 * lngBorderY)
End With

Untuk komponen Timer gunakan interval sesuai dengan selera agan sendiri, disini admin menggunakan Interval = 1 dan copykan juga syntak dibawah ini

Static intProg As Integer

intProg = intProg + 10

ProgressBar1.Value = intProg

If intProg = 1000 Then Timer1.Enabled = False: MsgBox "Loading database complate !", 64, "Informasi"

Simpan dan kemudian RUN/F5, progressbar pun akan mulai proses dan berada tepat pada panels ke dua pada statusbar pada form. Sourcode dapat didownload di LINK INI