Loading Progressbar Di Statusbar

14 views
Pada artikel sebelum untuk ProgressBar telah admin uraikan dengan judul Loading Progressbar Berdasarkan Record, akan tetapi untuk kali ini sedikit berbeda dan tetap memakai komponen PorgressBar dengan perhiasan 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 lalu pilih sajian Properties lalu 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 lalu pilih mekanisme (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 mekanisme (General) dilanjutkan pilih Form dengan mekanisme 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 memakai 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 lalu RUN/F5, progressbar pun akan mulai proses dan berada sempurna pada panels ke dua pada statusbar pada form. Sourcode sanggup didownload di LINK INI

Author: 
    author
    No related post!