Control Menú

Agrega un ítem nuevo al menú especificado.

Parámetros:


Caption (STRING): Texto que se muestra

Name (STRING): Nombre del menú
Padre (STRING): Nombre del menú del que cuelga el ítem. Si está vacío, se está creando un ítem padre.
Tipo (INTEGER): Tipo del menú a crear:

  • 0 Tipo botón 
  • 1 Tipo Menú
  • 2 Tipo Check 
  • 3 Tipo Edición
  • 4 Tipo Combo o Desplegable

     
IniciaGrupo (BOOLEAN): Determina si se mostrará una línea separadora arriba de este ítem.

Checked (BOOLEAN): Sin uso.

ResId (INTEGER): Identificador del recurso a utilizar (IdIcono).
Before (STRING): Si lo rellenamos, estamos indicando que el ítem que está siendo creado irá antes del ítem especificado.

IdAhoraProceso (STRING): Id del AhoraProceso a vincular con el menú.

IdTecla: Tecla de lanzamiento rápido asociada al menú.



 gForm.Controls("mnuMain").MenuItemAdd "Modificar Comisión", "mnuPersComision", "mnuPedido", 0, False,,, "mnuPedido_MarcarFact" 



Código ejemplo


Agregamos al menú principal un botón de "Mantenimiento Líneas" con el Id que usaremos posteriormente para capturar su evento "mnuPersMantLin".


gForm.Controls("mnuMain").ActivarScripts = True

gForm.Controls("mnuMain").MenuItemAdd "Mantenimiento Líneas", "mnuPersMantLin","mnuPrincipal", 0, False,,, "mnuPedido_MarcarFact"


Sub Show()
 gForm.Controls("mnuMain").NoMostrar = False
 gForm.Controls("mnuMain").ActivarScripts = True
 gForm.Controls("mnuMain").MenuItemAdd "Texto del Menu","mnuNombreMenu","" , 0 
 gcn.Obj.Form_AutoResize gForm
End Sub

Sub Menu_AfterExecute(aMenu, aMenuItem)
   If amenuitem.name = "mnuNombreMenu" Then
        gcn.obj.showmsgbox "Hola has pulsado el menú"
   End If
End Sub 


Autor: Pablo Céspedes