Recorrer Menú en Power Builder

En esta entrada mostraré un pequeño ejemplo de como recorrer los items de un menú dentro de nuestra aplicación.

Por ejemplo tenemos una ventana llamada w_principal donde contiene un menú con dos items, uno con el nombre de Archivo y otro Definiciones:

Para saber la cantidad de sub items que posee el menú usaremos la función upperbound() el cual devuelve la cantidad de índices de un Array.

Ejemplo:

upperbound(w_principal.Menuid.Item[2].Item)

Item[2] usamos porque queremos saber la cantidad de sub items del menú Definiciones.
Una vez sabido la cantidad podemos recorrerlo dentro de un ciclo.

FOR i=1 to upperbound(w_principal.Menuid.Item[2].Item)
  w_principal.Menuid.Item[2].Item[i].enabled = false
NEXT

En nuestro ejemplo de ciclo recorremos con un For el menú Item[2] luego la posición del subitem en i Item[i] y usamos la propiedad enabled para desactivar el menú, un caso práctico sería recorrer las subitems y controlar permiso de acceso a ellos y controlamos si no tiene el permiso desactivamos.