read more......

 

 

 

 

 

 

 

 

 

 

 

Tips & Tricks: Mengganti warna ProgressBar                                                     

Visual Basic tidak menyediakan control property untuk mengganti Warna Latar belakang dan warna bar pada ProgressBar.
Namun Anda masih dapat mengganti warna tersebut yaitu melalui API call.

Source-code berikut berfungsi untuk menggati warna progressbar. Tempatkan source-code ini di dalam sebuah modul.


Public Declare Function SendMessage Lib _
"user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Public Const CCM_FIRST = &H2000
Public Const CCM_SETBKCOLOR = (CCM_FIRST + 1)
Public Const PBM_SETBKCOLOR = CCM_SETBKCOLOR
Public Const WM_USER = &H400
Public Const PBM_SETBARCOLOR = (WM_USER + 9)

Untuk menjalankan fungsi di atas, Buat sebuah Form yang sudah ada progressbar. kemudian paste code di bawah ini 

Private Sub Form_Load()

SendMessage ProgressBar1.hwnd, PBM_SETBARCOLOR, 0, ByVal RGB(0, 0, 0)

SendMessage ProgressBar1.hwnd, PBM_SETBKCOLOR, 0, ByVal RGB(0, 0, 127)

End Sub