Ejemplos usando el Api de windows para Visual basic

144 - Menú PopUp transparente

Volver al Listado Api - Anterior - Siguiente

Este ejemplo despliega un PopUp menú transparente al hacer click en un CommandButton, como una lista desplegable de opciones

El ejemplo utiliza las funciones Api GetWindowLong, SetWindowLong, SetLayeredWindowAttributes (la que aplica transparencia), FindWindowEx, GetWindow y FindWindow.

Para posicionar el menú debajo del Commandbutton, se utiliza los parámetros x e y del método PopUpMenu del formulario.

Para graduar la transparencia al Menú se debe pasar el valor (0 a 255) a la función Transparencia_Menu, en el evento click del mismo

Nota: La transparencia solo es soportada en plataformas windows 2000 en adelante

Ejemplo

Crear un menú popup llamado mnuPrueba.
Colocar un control Command Button llamado command1

Código en un módulo bas

Option Explicit 'Declaraciones APi Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Declare Function SetLayeredWindowAttributes Lib "user32" ( _ ByVal hwnd As Long, _ ByVal crey As Byte, _ ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Long Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _ ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, _ ByVal lpsz1 As String, _ ByVal lpsz2 As String) As Long Declare Function GetWindow Lib "user32" ( _ ByVal hwnd As Long, _ ByVal wCmd As Long) As Long Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long 'Constantes para usar con el Api Const GWL_EXSTYLE = (-20) Const WS_EX_LAYERED = &H80000 Const LWA_ALPHA = &H2& Const GW_CHILD = 5 Const GW_HWNDNEXT = 2 Sub Transparencia(Handle As Long, Level As Byte) Call SetWindowLong(Handle, _ GWL_EXSTYLE, _ GetWindowLong(Handle, GWL_EXSTYLE) Or WS_EX_LAYERED) Call SetLayeredWindowAttributes(Handle, 0, Level, LWA_ALPHA) End Sub ' Coloca la transparencia al menú Sub Transparencia_Menu(Level As Byte) Dim Handle As Long, i As Integer Handle = FindWindow("#32768", vbNullString) DoEvents Call Transparencia(Handle, Level) DoEvents End Sub

Código en el formulario

Private Sub Command1_Click() ' Abre y Posiciona el menú PopupMenu mnuPrueba, 0, Command1.Left, Command1.Top + Command1.Height End Sub 'Aplica la transparencia cuando se despliega Private Sub mnuPrueba_Click() Call Transparencia_Menu(120) End Sub

Recursos Visual basic - Enlaces relacionados

Ejemplos sobre menú en vb

Buscar en Recursos vb