Ejemplos usando el Api de windows para Visual basic

119 - SendMeesage - Personalizar color a un Progressbar

Volver al Listado Api - Anterior - Siguiente

Ejemplo que utiliza el api SendMessage con el mensaje PBM_SETBKCOLOR y PBM_SETBARCOLOR, para cambiar de color el fondo y el color de progreso en un control ProgressBar

Este ejemplo lo descubrí gracias a Anibal del canalVisualbasic , la verdad está muy bueno y bien simple, El mismo tiene dos líneas de código para poder cambiar el fondo de los controles Progressbar y el color del Value o progreso.

vista previa del ejemplo para personalizar el control progressbar de visual basic mediante el Api

Para cambiar dichos colores se debe pasar el Hwnd de la barra de progreso y el valor de color que se quiera en el segundo parámetro.

Esto se debe pasar a las funciones : Color_Progreso y Color_Fondo

Código fuente en el Formulario

Option Explicit Private Sub Form_Load() ' Establece el Backcolor Color_Fondo ProgressBar1.hwnd, &H4000& ' Establece el color del progress Color_Progreso ProgressBar1.hwnd, &HFF00& End Sub

código fuente en un módulo bas:

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

Nota: en el siguiente enlace, también se utiliza el Api SendMessage de forma similar al de este ejemplo, para cambiar el color de fondo en un control TreeView: Cambiar el color de fondo o BackColor de un TreeView

Recursos Visual basic - Enlaces relacionados

Ejemplos sobre barras de progreso

Buscar en Recursos vb