Ejemplos usando el Api de windows para Visual basic

226 - Subclasificar un Menú

Ejemplo para crear un Hook y poder mostrar un texto, por ejemplo en un StatusBar, al pasar el mouse sobre un item

Este ejemplo usa las funciones del api SetWindowLong y CallWindowProc, para poder subclasificar el formulario, y obtener mediante el mensaje WM_MENUSELECT, el momento en que se selecciona un item de un menú (Cuando se hace el MouseMove), y de este modo poder visualizar un texto descriptivo, como hacen muchos programas, por ejemplo en un control Statusbar o barra de estado

Formulario con la barra de estado y el texto :

Ejemplo

1 - Colocar en el formulario Form1, un menu con tres items, (Abrir, guardar, Imprimir, salir )
2 - Un control StatusBar llamado StatusBar1
3 - Un módulo bas

Nota: el texto a mostrar al pasar el mouse encima del item acual, se debe indicar en el procedimiento WindowProc. En este procedimiento, dentro del Select case que consulta el ID del menu actual "Select Case h_Menu " , se debe añadir o quitar los menues que vallamos usar, y también indicar el texto par cada item , por ejemplo :

Select Case h_Menu 'Submenu 1 Case 2 texto = "Texto del item 1" 'Submenu 2 Case 3 texto = "Texto del item 2" 'Submenu 3 Case 4 texto = "Texto del item 3" Case 5 ' etc... End Select

Código fuente en el formulario

Option Explicit Private Sub Form_Load() ' propiedades del panel donde se visualizará el texto _ al psar el mouse en el Submenu StatusBar1.Panels(1).Width = 5000 StatusBar1.Panels(1).Alignment = sbrLeft StatusBar1.Panels(1).Style = sbrText ' instala el Hook OldProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc) Me.Caption = "Hook para interceptar el Mousemove en un Menu" End Sub Private Sub Form_Unload(Cancel As Integer) ' Quita el Hook Call SetWindowLong(hWnd, GWL_WNDPROC, OldProc) End Sub

Código fuente en el módulo bas

Option Explicit Public OldProc As Long Public Const MF_POPUP = &H10& Public Const WM_MENUSELECT = &H11F ' Función Api que Instala el Hook Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long ' Procedimiento de ventana para leer los mensajes Public 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 Public Const GWL_WNDPROC As Long = -4 Public Function WindowProc(ByVal hWnd As Long, _ ByVal iMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long ' texto a mostrar en el panel del Statusbar Dim texto As String * 128 ' Handle del menu o SubMenu Dim h_Menu As Integer ' chequea los mensajes '''''''''''''''''''''''' Select Case iMsg Case WM_MENUSELECT ' Cuando se cierra el menú, lParam vale 0 y sale de la función If lParam = 0 Then Form1.StatusBar1.Panels.Item(1).Text = "" Exit Function End If ' Get the low word from wParam. _ This contains the command ID or position of the menu entry. h_Menu = GetLowWord(wParam) ' If the highlighted menu is the top of a poup menu, pass menu item by position. If (GetHighWord(wParam) And MF_POPUP) = MF_POPUP Then ' If the MF_POPUP bit was set in the high word, the menu item has a ' sub-menu attached to it. The position in h_Menu will be useless. Form1.StatusBar1.Panels.Item(1).Text = "" '''''''''''''''''''''''''''''''' 'Chequea el Id del Menu Else Select Case h_Menu 'Submenu 1 Case 2 texto = "Buscar y Abrir un archivo" 'Submenu 2 Case 3 texto = "Guardar el trabajo " 'Submenu 3 Case 4 texto = "Imprimir el trabajo actual" Case 5 texto = "Salir completamente del programa" 'Case 6 ' otros menues Case Else texto = "" End Select ' asigna el texto al panel Form1.StatusBar1.Panels(1).Text = texto End If 'continua leyendo los mensajes WindowProc = CallWindowProc(OldProc, hWnd, iMsg, wParam, lParam) Case Else WindowProc = CallWindowProc(OldProc, hWnd, iMsg, wParam, lParam) End Select End Function Public Function GetLowWord(Word As Long) GetLowWord = CInt("&H" & Right$(Hex$(Word), 4)) End Function Public Function GetHighWord(Word As Long) GetHighWord = CInt("&H" & Left$(Hex$(Word), 4)) End Function

Nota: En este ejemplo como se vió, se muestra un texto personalizado al seleccionar un item.

En este enlace , hay un ejemplo muy similar al visto en esta página, pero que recupera el caption del item actual, usando la función del Api GetMenustring

Obtener Caption de un menu

Buscar en Recursos vb