Estrellas inactivasEstrellas inactivasEstrellas inactivasEstrellas inactivasEstrellas inactivas
 

Esta rutina permite al desarollador buscar un item del menu. Se coloca en un string el nombre del item del menu que desea buscar
- Cree una nueva funcion (Window function, object function o simplemente una function)
- Defina una variable de return de tipo integer
- Defina los argumentos:

    1. Tipo Menu para am_menu (by value)
    2. Tipo String para as_opcao (by value)
    3. Tipo Menu para am_retmenu (by reference)



Necesitas ahora copiar y pegar este bloque:

Long i, ll_ret
if upperbound(am_menu.item) > 0 then
for i = 1 to upperbound(am_menu.item)
if ll_ret 1 then
if am_menu.item[i].classname() = as_opcao then
am_retmenu = am_menu.item[i]
ll_ret = 1
else
ll_ret = of_findmenu(am_menu.item[i], as_opcao, am_retmenu)
end if
end if
next
else
ll_ret = -1
end if
return ll_ret


Esta rutina le contesta con 1 si encontrado el item y -1 si no encontrado.
Ejemplo: (si le dio el nombre de of_findmenu)
Long ll_ret
Menu lm_itemmenu

ll_ret = of_findmenu(Parent.menuid, \'m_exit\', lm_itemmenu)

if ll_ret = 1 then
lm_itemmenu.visible = false
else
Messagebox(\'Aviso!\',\'No existe este item!\')
end if
Pin It