Ejemplos usando el Api de windows para Visual basic

100 - Aplicar transparencia a menús y Combobox

Volver al Listado Api - Anterior - Siguiente

Este muy buen ejemplo lo hizo Leandro Ascierto y permite mediante una serie de funciones Api aplicar un grado o nivel de transparencia a menús y controles ComboBox, el valor puede ser de 0 a 255

Esta es una captura de un menú con transparencia con valor de 150

Este otro a un Combobox

Vista del ejemplo para el combo transparente

Las funciones Api utilizadas son:

GetWindowLong
SetWindowLong
SetLayeredWindowAttributes
FindWindowEx
FindWindow
GetWindow

Hay una función llamada Transparencia_ComboBox, que se utiliza para los controles Combo, esta tiene 3 parámetros, el primero es el formulario donde están ubicados los Combo, el segundo la cantidad de ComboBox, por ejemplo si tenemos 10 Combos pasar un 10. El último es el valor.

La otra función se llama TransparenciaMenu que se aplica para los menues y el único parámetro es el valor de transparencia

Para el ejemplo colocar 3 ComboBox, y un Menú con 2 Submenúes llamados MnuArchivo y MnuEdicion

Nota: en los menúes, hay que llamar a la función TransparenciaMenu, en el evento Click de los mismos

Código en el módulo bas:

Option Explicit 'Declaraciones APi 'Para recuperar y establecer el estilo y aplicar la transparencia 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 'Para recuperar los hwnd 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 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Constantes Const GWL_EXSTYLE = (-20) Const WS_EX_LAYERED = &H80000 Const LWA_ALPHA = &H2& Const GW_CHILD = 5 Const GW_HWNDNEXT = 2 'Aplica la transparencia, Parámetros: Hwnd y valor de transparencia 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 'Aplica la transparencia al menú, Parámetros: valor de transparencia Sub TransparenciaMenu(Level As Byte) Dim Handle As Long, i As Integer Handle = FindWindow("#32768", vbNullString) For i = 0 To 40 DoEvents Transparencia Handle, Level 'Sleep 5 Next End Sub Sub Transparencia_ComboBox(NumeroDeCombobox As Integer, _ Level As Byte, f As Form) Dim Handle As Long, i As Integer Handle = FindWindowEx(65556, f.hwnd, "ComboLBox", vbNullString) Transparencia Handle, Level For i = 1 To NumeroDeCombobox - 1 Handle = GetWindow(Handle, GW_HWNDNEXT) Transparencia Handle, 120 Next End Sub

Código en un formulario :

Private Sub Form_Load() Dim i As Integer Combo2.BackColor = &HFF8080 For i = 0 To 50 Combo1.AddItem i Combo2.AddItem i Combo3.AddItem i Next Me.Show Call Transparencia_ComboBox(3, 150, Me) End Sub Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) PopupMenu mnuArchivo End Sub Private Sub MnuArchivo_Click() TransparenciaMenu 150 End Sub Private Sub MnuEdicion_Click() TransparenciaMenu 127 End Sub

vb 6.0 - Enlaces relacionados

Enlaces de Recursos visual basic.net

Transparencia en windows forms

Buscar en Recursos vb