Ejemplos usando el Api de windows para Visual basic

272 - Animar barra de progreso usando SendMessage

Código fuente de ejemplo enviado por Leandro Ascierto que muestra como modificar el estilo de un control Progressbar utilizando la función del Api SetWindowLong con el estilo PBS_MARQUEE, y luego enviando el mensaje PBM_SETMARQUEE mediante la función SendMessage para que la barra de progreso muestre una animación en forma de marquesina, útil para poder mostrar un progreso de carga guando no se sabe el valor inicial y final.

Nota. Este ejemplo funciona perfectamente con los temas clásicos de windows XP : Verde oliva, el plateado y el Azul. Pero con otros temas o aplicaciones que modifican los estilos del sistema , como por ejemplo el conocido Bricopack para usar el tema de Windows Vista, no funciona, y la animación no se visualiza, por lo menos usando esta forma.

No funciona

He buscado bastante para poder hacerlo funcionar, y no he encontrado la forma de poder arreglar el problema, y buscando en internet, hay varias páginas en inglés que también comentan este problema.

Realmente es una lástima que no se pueda utilizar el ejemplo por este motivo, aunque se me ocurre una posible solución, que no sería la mejor, pero por lo menos es funcional, y es desactivar el tema de XP. Pero no desactivar el tema a toda la aplicación ( ventana del formularios y el resto de controles), si no solo al Progressbar. Haciendo esto, la barra no tomaría el estilo, pero por lo menos se mostraría el efecto, y mantendría el tema a los demás controles.

Es decir se visualizaría de la siguiente forma :

El tema de vista que no funcionaba se vería

También funciona con el estilo clásico de windows

Otra posible solución que no he probado, es al iniciar el programa, que se compruebe si el tema actual del sistema son los default de XP. si es así, utilizarlo sin hacer la llamada a SetWindowTheme ya que funcionaria correctamente, si no, desactivar el tema al control Progressbar. ( Nota, Creo que para averiguar los temas se usa la función OpenThemeData y algunas otras, pero no lo aseguro, pero hay muchas información en internet sobre las funciones de la librería uxtheme.dll)

Ejemplo :

Colocar una barra de progreso ( la versión 5 )
Compilar el programa
Colocar el archivo Manifest junto al exe

Código fuente

Option Explicit ' ---------------------------------------------------------------------------------- ' -- Autor : Leandro Ascierto ' -- Descripción : Usar una barra de progreso animada mediante el Api de windows ' Nota : Deberás compilar el proyecto para poder probar el efecto, y tener el archivo Manifest junto al ejecutable ' ---------------------------------------------------------------------------------- Private Const GWL_EXSTYLE = (-20) ' -- mensaje que requiere GetWindowLong Private Const WM_USER As Long = &H400 Private Const PBS_MARQUEE As Long = 8 ' -- Estilo del progressbar ( Marquesina ) Private Const PBM_SETMARQUEE = (WM_USER + 10) ' -- Mensaje - Para SendMessage Const GWL_STYLE = (-16) ' -- Apis para tomar la apariencia de windows Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long Private Declare Sub InitCommonControls Lib "Comctl32" () ' -- Modificar el estilo del progressbar Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long ' ' Para manipular el Progressbar Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long ' Para desactivar el tema de windows (Solo para el control Progress, no para todo la ventana y resto de controles) Private Declare Function SetWindowTheme Lib "uxtheme.dll" (ByVal hwnd As Long, ByVal pszSubAppName As Long, ByVal pszSubIdList As Long) As Long Private Sub Form_Initialize() Call SetErrorMode(2) Call InitCommonControls End Sub Private Sub Form_Load() Dim Ret As Long Ret = SetStyleMarquee(ProgressBar1, 50) If Ret = False Then MsgBox "No se pudo aplicar el estilo" End If End Sub ' -- Velocity : Velocidad de animación del progreso Public Function SetStyleMarquee(ProgressBar As ProgressBar, Velocity As Long) As Boolean With ProgressBar Call SetWindowTheme(.hwnd, StrPtr(" "), StrPtr(" ")) SetWindowLong .hwnd, GWL_STYLE, GetWindowLong(.hwnd, GWL_STYLE) Or PBS_MARQUEE SetStyleMarquee = SendMessageLong(.hwnd, WM_USER + 10, 1, Velocity) End With End Function

Relacionados

Barras de progreso

Buscar en Recursos vb