por favor, a ver si podeis ayudarme con esto

[almengar22]

Asi que con esto no puedo activar las opciones de menu para que si pulso por ejemplo guardar me guarde el archivo?, lo unico que hace es que este activado o desactivado?, pero sin acceder a su funcionalidad?(pues vaya chasco, dime que no es verdad..)
Entonces si es que asi no puedo ejecutar lo que hace la opcion del menu como lo hago?
Gracias y espero tu respuesta.

[Eternal Idol]

Por favor evita bombardearme con tantos mensajes (diferentes topics, mails, privados) ya que puede darse el caso (como esta vez) que este ocupado (comiendo por ejemplo como es el caso) o haciendo cualquier cosa como trabajar.

No, esta funcion no hace un 'click' en el menu. Voy a ver que podes hacer.
Si queres pasame el codigo ese que tenes y lo miro (no el tuyo sino el nuevo).

[Eternal Idol]

Encontre una forma de 'clickear' en un item para que ejecute su codigo asociado:

hay que enviar el mensaje WM_COMMAND con la funcion SendMessage de la API de Windows, hay que pasarle como parametros el handle de la ventana y el identificador del item.

Con este codigo lo hago funcionar en C\C++:

DWORD MADE = 0;
MADE = (WORD) GetMenuItemID(GetSubMenu(Ventana,0),1);
SendMessage(Ventana,WM_COMMAND,MADE,NULL);


Esto haria ejecutarse la funcion Open del notepad por ejemplo.

[Eternal Idol]

Aca tenes un ejemplo hiper simple (a tono con VB) para hacerlo:

Un form con 2 listbox (List1 y List2) y un boton (Command1).

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Const WM_COMMAND = &H111
Private Const MF_BYPOSITION = &H400&
Public Ventana As Long
Public hMenu As Long

Private Sub Command1_Click()
Dim SubMenu As Long
Dim y As Long
Dim Item As Long

For y = 0 To List1.ListCount - 1
If List1.Selected(y) = True Then
SubMenu = GetSubMenu(hMenu, y)
End If
Next

For y = 0 To List2.ListCount - 1
If List2.Selected(y) = True Then

Item = GetMenuItemID(SubMenu, y)
SendMessage Ventana, WM_COMMAND, Item, 0
End If
Next
End Sub

Private Sub Form_Load()
Dim Total As Long
Shell "notepad", 1
Ventana = GetForegroundWindow
hMenu = GetMenu(Ventana)
Total = GetMenuItemCount(hMenu)
Dim X As Long
For X = 0 To Total - 1
Dim buff As String
buff = Space(256)
GetMenuString hMenu, X, buff, Len(buff), MF_BYPOSITION
List1.AddItem buff
Next
End Sub

Private Sub List1_Click()
List2.Clear
Dim SubMenu As Long
Dim y As Long
Dim Total As Long

For y = 0 To List1.ListCount - 1
If List1.Selected(y) = True Then
SubMenu = GetSubMenu(hMenu, y)
End If
Next
Total = GetMenuItemCount(SubMenu)
For y = 0 To Total - 1
Dim buff As String
buff = Space(256)
GetMenuString SubMenu, y, buff, Len(buff), MF_BYPOSITION
List2.AddItem buff
Next
End Sub

[almengar22]

Hola Eternal Idol!!
Gracias por contestar, y perdona por ser tan pesado. Queria preguntarte a cerca de la api getmenustring porque me da un error de DLL que tiene que ver con el User32:

Este es el error: "no se puede encontrar el punto de entrada de la DLL
Getmenustring en User32"

Haber si me da resultado, con lo que me has mandado porque ya no se que hacer.
Bueno, te doy las gracias de antemano y siento las molestias, espero pacientemente tu respuesta. Muchas Gracias!!

[Eternal Idol]

Que Sistema Operativo tenes? A mi me funcion en Windows 2000.

Bueno lo que hace esa pequeña aplicacion es llenar el primer listbox con los submenues del programa (File,Edit,View,etc) y cuando se selecciona uno de los items del primer listbox llena el segundo litsbox con los items del menu seleccionado. Al clickear en ejecutar produce un click en el item seleccionado con el mensaje WM_COMMAND.

Si cambias GetMenuString por GetMenuItemInfo para conseguir el texto tal vez ya lo tengas, despues pruebo estoy a punto de salir para el trabajo.

[almengar22]

Vale, a ver si lo prueba, por cierto yo tambien tengo win2000.
Ya no te molesto mas que te sea leve!!!
un saludo!!

[Eternal Idol]

Aca tenes una version sin GetMenuString:

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
'Private Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpmii As MENUITEMINFO) As Long
Private Const WM_COMMAND = &H111
Private Const MF_BYPOSITION = &H400&
Private Const MIIM_STRING = &H40
Private Const MFT_STRING = &H0
Private Const MIIM_TYPE = &H10

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

Public Ventana As Long
Public hMenu As Long
Private Sub Command1_Click()
Dim SubMenu As Long
Dim y As Long
Dim Item As Long

For y = 0 To List1.ListCount - 1
If List1.Selected(y) = True Then
SubMenu = GetSubMenu(hMenu, y)
End If
Next

For y = 0 To List2.ListCount - 1
If List2.Selected(y) = True Then

Item = GetMenuItemID(SubMenu, y)
SendMessage Ventana, WM_COMMAND, Item, 0
End If
Next
End Sub

Private Sub Form_Load()
Dim Total As Long
Dim MII As MENUITEMINFO
Shell "notepad", 1
Ventana = GetForegroundWindow
hMenu = GetMenu(Ventana)
Total = GetMenuItemCount(hMenu)
Dim X As Long
For X = 0 To Total - 1
'Dim buff As String
'buff = Space(256)
MII.cbSize = Len(MII)
MII.fMask = MIIM_TYPE
MII.fType = MFT_STRING
'GetMenuString hMenu, X, buff, Len(buff), MF_BYPOSITION
MII.dwTypeData = Space(512)
MII.cch = Len(MII.dwTypeData)
GetMenuItemInfo hMenu, X, True, MII
'List1.AddItem buff
List1.AddItem MII.dwTypeData
Next
End Sub

Private Sub List1_Click()
List2.Clear
Dim SubMenu As Long
Dim y As Long
Dim Total As Long
Dim MII As MENUITEMINFO

For y = 0 To List1.ListCount - 1
If List1.Selected(y) = True Then
SubMenu = GetSubMenu(hMenu, y)
End If
Next
Total = GetMenuItemCount(SubMenu)
For y = 0 To Total - 1
'Dim buff As String
'buff = Space(256)
MII.cbSize = Len(MII)
MII.fMask = MIIM_TYPE
MII.fType = MFT_STRING
'GetMenuString SubMenu, y, buff, Len(buff), MF_BYPOSITION
MII.dwTypeData = Space(512)
MII.cch = Len(MII.dwTypeData)
GetMenuItemInfo SubMenu, y, True, MII
List2.AddItem MII.dwTypeData
Next
End Sub

[almengar22]

Hola gracias por contestar!!
queria hacerte una pregunta, te acuerdas de como era mi programa, en el ya sacaba el menu en la listbox, como podría adaptar el codigo que me has puesto a mi programa?, porque claro yo ya ejecuto una aplicacion(ej; windows media) y saco su menu en la listbox. Que hago añado otra listbox?(es que me estoy haciendo un lio con tanto codigo, no se si borrar lo mio, si añadir parte de lo tuyo o lo tuyo entero buff..)
gracias por tu paciencia y espero tu respuesta.

[Eternal Idol]

Realmente mucho no me acuerdo, podes poner otro listbox y el codigo que se ejecuta al clickear en ambos listbox.

[almengar22]

Hola!!
asi que sería poner una segunda listbox y poner este codigo el la listbox1:Private Sub List1_Click()
List2.Clear
Dim SubMenu As Long
Dim y As Long
Dim Total As Long
Dim MII As MENUITEMINFO

For y = 0 To List1.ListCount - 1
If List1.Selected(y) = True Then
SubMenu = GetSubMenu(hMenu, y)
End If
Next
Total = GetMenuItemCount(SubMenu)
For y = 0 To Total - 1
'Dim buff As String
'buff = Space(256)
MII.cbSize = Len(MII)
MII.fMask = MIIM_TYPE
MII.fType = MFT_STRING
'GetMenuString SubMenu, y, buff, Len(buff), MF_BYPOSITION
MII.dwTypeData = Space(512)
MII.cch = Len(MII.dwTypeData)
GetMenuItemInfo SubMenu, y, True, MII
List2.AddItem MII.dwTypeData
Next

y en cuanto al boton, no habría que ponerlo?, lo del form_load ya lo hago en el modulo que es cuando se ejecuta la aplicacion(windows media) y se mete el menu en la listbox. Tu que opinas?
Gracias y espero tu respuesta(al final te voy a tener que indemnizar..)

[Eternal Idol]

Si, pone el boton y usa el codigo del mismo:

Private Sub Command1_Click()
Dim SubMenu As Long
Dim y As Long
Dim Item As Long

For y = 0 To List1.ListCount - 1
If List1.Selected(y) = True Then
SubMenu = GetSubMenu(hMenu, y)
End If
Next

For y = 0 To List2.ListCount - 1
If List2.Selected(y) = True Then

Item = GetMenuItemID(SubMenu, y)
SendMessage Ventana, WM_COMMAND, Item, 0
End If
Next
End Sub

[almengar22]

Hola Eternal Idol! Gracias por contestar!!!
me da problemas con el menuiteminfo porque claro tambien tengo que usarlo en el click de la listbox1 y no me lo reconocia, por lo que como lo tenia en el modulo lo pase al form_load pero me sigue dando problemas, que hago?
Por favor, necesito tu ayuda.
Gracias y espero tu respuesta.

[Eternal Idol]

Que problemas? Trata de ser mas especifico cuando hablas de errores porque sino no puedo hacer nada.

[almengar22]

Hola!!!
Me refiero a que me salian errores con lo de menuiteminfo porque no me lo reconocia
en el formulario por tenerlo definido en el menu, pero aun asi me sale otro error(que puede estar relacionado) : "no se ha definido el tipo por el usuario" y estoy me sale al ejecutar el programa, en el modulo y me señala(poniendolo seleccionado en azul)
que el error esta en la declaracion de getmenuiteminfo, entonces he probado a ponerlo como comentario y me ha señalado como error del mismo modo la declaracion
de la siguiente api(que es setmenuiteminfo) no se que hacer..
a ver si puedes ayudarme, Gracias por todas tus respuestas y espero que puedas contestarme.

[Eternal Idol]

Pasame el proyecto completo ...

[almengar22]

vale te lo mando por email(siento las molestias..)

gracias infinitas.

[almengar22]

Hola Ya se que es mucho pedir, pero si logras algo por favor enviamelo por email,

muchas gracias y espero tu respuesta.

[Eternal Idol]

Como vas a poner la declaracion de un type dentro de una subrutina ... dios.

Lo que tenes que hacer es declararla como Public en el modulo.

[almengar22]

Hola la verdad es que antes lo tenia en el modulo pero al ver que daba error he ido haciendo pruebas. gracias.

[Eternal Idol]

Mejor usa mi codigo porque el proyecto que me diste da error cada dos lineas.

[almengar22]

Ya da errores pero la parte de la listbox esta bien, añado lo del boton y lo de la listbox1?

[almengar22]

Hola de nuevo, es que debes darte cuenta que aunque este bastante chapucero lo mio me ha costado, y creo que igual se podría aplicar la parte que me has puesto de codigo amoldandola al programa que he realizado. Gracias y espero tu respuesta.

[Eternal Idol]

Si queres intentarlo no te voy a detener.

[almengar22]

Hola!!
Y no me vas a ayudar un poco a intentar adaptarlo?, porque esto atascao..
Bueno te he pedido mucho y comprendo que igual no quieras(te he dado bastante la brasa). Yo solo espero la ayuda que puedas darme, gracias por todo.

[Eternal Idol]

La verdad no, no tengo tiempo para meterme en tu codigo y rehacerlo, estoy en mi trabajo (soy programador). Ya te di un codigo que funciona perfectamente, muestra todos los submenues, muestra los items de cada submenu y ejecuta la funcion de cada item.

Realmente si no podes hacer una aplicacion apartir de un codigo ya funcionando simplemente deberias leer un libro sobre VB o tomar unas clases.

[almengar22]

hola, que un programa no salga no quiere decir que no sepa visual basic, y me parece que tu actitud es bastante cortante, ya sé que tienes curro, yo no te obligo a que me ayudes, solo te lo pido, y por cierto se supone que yo he estudiado tambien para ser programador y ya sabía que tu lo eras, quiero que sepas que agradezco tu ayuda pero debes intentar ser mas flexible y tener mas paciencia.
P.D: en el módulo no dimos nada de APIS, y quieres que de todavía mas clases?, llevo toda la vida académica teniendo que esforzarme mas que otros para sacar justo un aprobado, yo solo te pedia algo de ayuda.
Esta en tus manos, te agradezco todo lo que has hecho por mi, espero ser en un futuro un buen programador.

GRACIAS.

[Eternal Idol]

Realmente no, una cosa es ayudar y otra muy diferente hacer un programa. Te di elementos mas que suficientes para que lo hicieras sin ningun tipo de problemas.

Todo el que quiere ser programador tiene que esforzarse, nada es facil, yo me pase toda la secundaria aprendiendo a programar solo en mi casa, con libros y con internet.

Dudo de que sepas tanto de VB como supones, el hecho de que declares un Type dentro de una subrutina me parece muy sospechoso y sigo pensando que tenes que aprender mas, es mi opinion sino te gusta lo lamento mucho.

[almengar22]

Hombre claro, si yo hubiera tenido o podido usar internet desde secundaria y llevara programando desde entonces, pero da la casualidad que yo hice letras y luego he hecho estos modulos de informática. Y desde luego yo nunca he dicho que sea superdotado. Y como eres programador sabrás que a veces en informática a pesar de tener todos los medios las cosas no salen como uno quiere, y lo mas increible es que me ataques con una cosa que he hecho de prueba y además con eso solo practicamente me leas el horoscopo. Y decirte que a mi nunca me han gustado que me hagan las cosas, por eso te pedia ayuda para a ver como ponia lo de activar-desactivar que me has puesto en mi programa, porque me ha costado mucho sacar lo que he sacado(me da igual aunque sea un poco chapuza), y por ello no estaba dispuesto a renunciar a mi programa, para sustituir todo por el tuyo.

Por último quiero decirte que en esta vida y sobre todo en informática nunca se acaba de aprender, y es bueno que aprendamos los unos de los otros, porque además para eso estan los foros. No me resulta agradable decirte muchas de las cosas que te he dicho pero la verdad me he sentido bastante herido con mucho de lo que me has dicho, y sobre lo que sé o no sé opina lo que quieras pero yo creo que deberias confiar un poco mas en mi.

Gracias por todo porque a pesar de este embrollo creo que mereces la pena.

[Eternal Idol]

Te felicito por haber hecho letras, es una carrera muy interesante, mi viejo la hizo pero yo no tengo hecha ninguna carrera universitaria, tengo un miserable bachillerato en Buenos Aires y gracias.

No es un ataque personal ni mucho menos, simplemente es lo que me parece, lo que veo en tu codigo. Te leo el horoscopo por haberte dicho que deberias estudiar mas? Simplemente es una observacion que sigo sosteniendo, repito, lo lamento mucho si no te gusta, es simplemente mi opinion.

Por supuesto que no se termina de aprender nunca, hay infinitos temas practicamente. Por eso entro a este y muchos otros foros (y tengo el mio), para ayudar. Pero en lo que puedo (yo tampoco soy un genio ni mucho menos) y a los que se pueden ayudar; no puedo estar cargando tu proyecto en mi PC del trabajo y que 'casque' (como dicen aca) cada 5' porque hay cosas que no estan definidas, no puedo arreglarlo, no tengo ni tiempo, ni siquiera se donde voy a estar en 3 meses, yo tambien tengo muchos problemas, como casi todos tenemos.

Si te heri o te hiere este mensaje disculpame; no es mi intencion herirte ni mucho menos, pero no puedo hacer mas, desde mi punto de vista entiendo que deberias poder hacerlo con el codigo que te di.