STATUSBAR EM VB6

LUIZCOMINO 18/08/2011 14:25:04
#381980

Option Explicit


[ô] Constantes para SendMessage
Private Const PBM_SETBKCOLOR As Long = (&H2000& + 1)
Private Const PBM_SETBARCOLOR As Long = (&H400 + 9)

[ô] Delaración de SendMessage
Private Declare Function SendMessage Lib [Ô]user32[Ô] Alias [Ô]SendMessageA[Ô] _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

[ô]Cambia el color del Value de la barra, si no se especifica _
el color por defecto utiliza el color Vederde

Public Sub Color_Progreso(ByVal HWND_Prog As Long, _
Optional ByVal color As Long = vbGreen)

Call SendMessage(HWND_Prog, PBM_SETBARCOLOR, 0&, ByVal color)

End Sub

[ô] Cambia el color del fondo del Progress, si no se especifica _
el color por defecto utiliza el color Rojo

Public Sub Color_Fondo(ByVal HWND_Prog As Long, _
Optional ByVal color As Long = vbRed)

Call SendMessage(HWND_Prog, PBM_SETBKCOLOR, 0&, ByVal color)

End Sub

[ô]---------Colocar a cor na bara------------------
[ô][ô] Establece el Backcolor
[ô] Color_Fondo ProgressBar1.hwnd, &H8000000D
[ô] [ô] Establece el color del progress
[ô] Color_Progreso ProgressBar1.hwnd, 16711680

LUIZCOMINO 18/08/2011 14:27:37
#381981 Resposta escolhida

Depois de criado o modulo,basta adicionar no evento load

Private Sub Form_Load()
[ô] Backcolor
Color_Fondo ProgressBar1.hwnd, &HE0E0E0
[ô] Cor da progress
Color_Progreso ProgressBar1.hwnd, &H9D6002
End sub

JONCARLOS 18/08/2011 14:50:28
#381983

Oi luiz...

Já tentei esse exemplo...mas é pra progressbar...eu queria alguma coisa do tipo:

StatusBar.panel(1).text =[Ô]Data[Ô]
StatusBar.panel(1).text.forecolor = vbBlue -> não existe essa propriedade no VB¨6...


Mudar o forecolor do panel ou da statusbar inteira,.,.

OBrigado