Foro de elhacker.net

buenas estoy intentado averiguar si es que hay un menú desplegado cual es osea...

tengo un form sublcasificado y tengo 3 menú
_________________________
Archivo | Edición | Ayuda
     _________________
     |----------------------|
     |----------------------|
     |----------------------|
     |----------------------|
     |----------------------|
     |________________|


y el menú Edición esta desplegado como puedo saber si el menú que esta desplegado es el de edición.

Saludos

Si el formulario lo hiciste tú, puedes usar variables de tipo boolean.

Saludos.

mm no me sirve, gracias

Hola Leandro, si no encontraste nada directo tal vez podrias usar GetWindowRect para reconocer el tamaño de cada uno (no creo que sean iguales) tendrias que calcular tambien la resolucion de pantalla. saludos

que haces Dessa tanto tiempo, mm pero debe haber alguna manera con apis


Saludos

o algun mensaje de windows que detecte cuando se despliega el menu...busque y hay un monton...pero no se cual podria ser...

Viste Leandro ... resucité , si no encuentran nada directo, a mi me parece que con un IF en un timer que busque la classe (si no es #32768 pega en el palo), y que busque el Left de cada menú con respecto al formulario contenedor (calculado en porcentaje por si hay cambio de resolucion) tendria que ir , por lo menos como plan "B".

Super saludos a ambos.

che leandro y con algun mensaje de estos?

Private Const WM_MENUCHAR As Long = &H120
Private Const WM_MENUCOMMAND As Long = &H126
Private Const WM_MENUDRAG As Long = &H123
Private Const WM_MENUGETOBJECT As Long = &H124
Private Const WM_MENURBUTTONUP As Long = &H122
Private Const WM_MENUSELECT As Long = &H11F
 

saludos

Siguiendo la pista de el_c0c0 tal vez ayude esto

http://winapi.conclase.net/curso/index.php?men=WM_MENUSELECT

Saludos

nose si con esos mensajes funciona, mira cobein me recomendo que le pegara una leidita al codigo de NeoCaption de VBAccelerator:
http://www.vbaccelerator.com/home/VB/Code/Controls/Skins/VB6_NeoCaption_Full_Source.asp (http://www.vbaccelerator.com/home/VB/Code/Controls/Skins/VB6_NeoCaption_Full_Source.asp), ahi fijate en el modulo "cMenuBar.cls", desde ya te digo que es un quilombo porque tenes que manejar todos los eventos como el alt para que muestre el foco en un menu, los aceleradores de tecla, etc... pero ahi en ese modulo esta lo que buscas.. esta en las funciones MenuHitTest y HitTest..
es facil para eso solo, pero viendo ese modulo te das cuenta que tenes que implementar todo lo demas para que funcione bien :/...

en fin, saludos!

Laendro, fijate si podes adaptar este code:


PD: si encontraste el mensaje directo pasame el code, saludos

Hola si encontre la solucion,pero bueno me colgue y no lo postie, pero aca va. hay otras formas mas, pero esta es la que mejor se adaptaba a mi nesesidad.

Option Explicit
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 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
Private Declare Function GetMenuItemInfo Lib "user32.dll" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, ByRef lpMenuItemInfo As MENUITEMINFO) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
 
Private Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type
 
Private Const WM_MENUSELECT     As Long = &H11F
Private Const GWL_WNDPROC = (-4)
 
Private Const MF_ENABLED As Long = &H0&
Private Const MF_HILITE As Long = &H80&
Private Const MF_DISABLED As Long = &H3&
Private Const MIIM_STATE As Long = &H1
 
Dim hMenu As Long
Dim PrevProc As Long
 
Public Sub HookForm(hWnd As Long)
    hMenu = GetMenu(hWnd)
    PrevProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub UnHookForm(hWnd As Long)
    SetWindowLong hWnd, GWL_WNDPROC, PrevProc
End Sub
 
Public Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    WindowProc = CallWindowProc(PrevProc, hWnd, uMsg, wParam, lParam)
    If uMsg = WM_MENUSELECT Then
        Debug.Print GetIdMenuSelected()
    End If
End Function
 
Private Function GetIdMenuSelected() As Long
 
Dim MnuCount As Long
Dim i As Long
Dim ItemState As Long
MnuCount = GetMenuItemCount(hMenu)
 
For i = 0 To MnuCount - 1
    ItemState = GetMenuState(i)
    If ItemState = (MF_HILITE Or MF_ENABLED) Or ItemState = (MF_HILITE Or MF_DISABLED) Then
        GetIdMenuSelected = i
        Exit Function
    End If
Next
 
GetIdMenuSelected = -1
 
End Function
 
 
Private Function GetMenuState(ID As Long) As Long
    Dim MII As MENUITEMINFO
    MII.cbSize = Len(MII)
    MII.fMask = MIIM_STATE
    Call GetMenuItemInfo(hMenu, ID, True, MII)
    GetMenuState = MII.fState
End Function

Form

Option Explicit
 
Private Sub Form_Load()
    HookForm Me.hWnd
End Sub
Private Sub Form_Unload(Cancel As Integer)
    UnHookForm Me.hWnd
End Sub

Saludos