Ejemplos usando el Api de windows para Visual basic

268 - Menú con animación

Ejemplo para aplicar efectos animados a los menús

Este ejemplo muestra una forma de poder aplicar efectos animados a los menús en una aplicación de vb usando la función AnimateWindow

En este caso para poder establecer el efecto, se subclasifica el formulario para saber cuando se despliega el menú, y luego se llama a la función Animatewindow para crear el efecto.

Pasos para crear el proyecto

1 - Crear un nuevo proyecto en vb
2 - Añadir algunos menúes.
3 - Código fuente en un módulo bas.

Option Explicit ' Autor :Luciano Lodola :www.recursosvisualbasic.com.ar ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Apis 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 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long ' Constantes Private Const AW_HIDE = &H10000 Private Const AW_BLEND = &H80000 Private Const AW_HOR_POSITIVE = &O1 Private Const AW_HOR_NEGATIVE = &H2 Private Const AW_VER_POSITIVE = &H4 Private Const AW_VER_NEGATIVE = &H8 Private Const AW_CENTER = &H10 Private Const AW_ACTIVATE = &H20000 Private Const GWL_WNDPROC = (-4&) Dim lHook As Long Private Function SubWindowMenu( _ ByVal hwnd As Long, _ ByVal MSG As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long 'Debug.Print MSG If MSG = 4187 Then Call Animar_Menu End If SubWindowMenu = CallWindowProc(lHook, hwnd, MSG, wParam, lParam) End Function Public Sub setHook(hwnd As Long) lHook = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf SubWindowMenu) End Sub Public Sub unHook(hwnd As Long) Call SetWindowLong(hwnd, GWL_WNDPROC, lHook) End Sub 'Aplica la transparencia al menú, Parámetros: valor de transparencia Sub Animar_Menu() Dim Handle As Long ' Hwnd del menú Handle = FindWindow("#32768", vbNullString) ' ocultarlo ShowWindow Handle, 0 'crear el efecto animado al menú - con transparencia Blend Call AnimateWindow(Handle, 500, AW_BLEND) ' Otros efectos ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Call AnimateWindow(Handle, 400, AW_HOR_POSITIVE) 'Call AnimateWindow(Handle, 400, AW_CENTER) ' ..... End Sub

Código del formulario para instalar el hook

Option Explicit Private Sub Form_Load() ' iniciar la subclasificación para el formulario setHook Me.hwnd End Sub Private Sub Form_Unload(Cancel As Integer) unHook Me.hwnd ' terminar End Sub

Usando un módulo de clase

Este es el mismo método que el anterior, pero usando una clase, y con algunas otras opciones, como poder aplicarles transparencia, un simple evento para poder recuperar los captions de los menúes y submenús al pasar el mouse por encima, que puede ser útil para visualizar información extra en un control de barra de estado o statusbar

También se puede utilizar solo para animación pero sin transparencia, o al revés, solo aplicar transparencia pero sin efectos animados.

Descargar proyecto

Buscar en Recursos vb