Propiedad (Name) de los menu.menuitemcollection

Dado el siguiente ejemplo, haber si me pueden ayudar o dar una idea

Dim oMenu As Menu.MenuItemCollection
oMenu = Aplicacion.MainMenu.MenuItems

Dim strText as string
Dim i As integer

For i = 0 To oMenu.Count - 1
' De esta manera accedo a la propiedad text del menu y la guardo en un
listbox
strText = oMenu(i).Index
listbox(1).add(strtext)
next

Con este codigo obtengo el menu de mi aplicacion, pero lo que quiero no es
obtener el texto sino un valor que sea único y que no se pueda repetir, como
por ejemplo el nombre del menu (name), para guardar estos valores en una
tabla y assignar unas contraseñas propiedades.

' he probado de hacer esto:
strText = oMenu(i).Name
Pero la propiedad name no está disponible, y no deja utilizarla

' he probado esto otro:
dim oHandle as IntPtr
oHandle = oMenu(i).Handle, pero este valor cambia no es siempre el mismo.

Ttampoco existe una propiedad Tag para el menu donde yo pueda guardar un
codigo y despues leerlo

Entonces alguien sabria algun truco


trivet


Ver este tema: http://www.softwaremix.net/viewtopic-396975.html

Enviado desde http://www.softwaremix.net