cambiare stile a una progress bar

[Andrea Medici]

salve a tutti,

Volevo Sapere se c'era la possibilità di cambiare lo stile(bordi, colore
interno, colore della barra di avanzamento) di una progress bar.

se si, mi spiegate i passaggi che si devono usare????

[Gianluca Cannalire [MVP] [www.visual-basic.it]]

Post by Andrea Medici
Volevo Sapere se c'era la possibilità di cambiare lo stile(bordi,
colore interno, colore della barra di avanzamento) di una progress
bar.
se si, mi spiegate i passaggi che si devono usare????

Ciao,
cerca nell'Area Download di www.visual-basic.it
Troverai diverse progressbar (in codice sorgente) alternative a quella
standard di VB.

Ciao!

[unknown]

Post by Andrea Medici
salve a tutti,
Volevo Sapere se c'era la possibilità di cambiare lo stile(bordi, colore
interno, colore della barra di avanzamento) di una progress bar.
se si, mi spiegate i passaggi che si devono usare????

Per i bordi c'è la proprietà BorderStyle da utilizzare congiuntamente ad
Appearance.
Per i colori devi utilizzare l'API SendMessage.
Ecco un esempio:

Private Const CCM_FIRST = &H2000
Private Const WM_USER = &H400
Private Const CCM_SETBKCOLOR = (CCM_FIRST + 1)
Private Const PBM_SETBARCOLOR = (WM_USER + 9)
Private Const PBM_SETBKCOLOR = CCM_SETBKCOLOR
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As
Any) As Long

...

SendMessage ProgressBar1.hwnd, PBM_SETBARCOLOR, 0, ByVal vbRed
SendMessage ProgressBar1.hwnd, PBM_SETBKCOLOR, 0, ByVal vbBlue

Bye

Raf