Menú - Agregar Item

Creado por David Miralpeix, Modificado el Vie, 16 Feb a 12:25 P. M. por David Miralpeix

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" 



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


Código VB6:

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 


Código C#:

((ICntMenuFormulario)gForm.Controls["mnuMain"]).ActivarScripts = true;
((ICntMenuFormulario)gForm.Controls["mnuMain"]).MenuItemAdd("Mantenimiento Líneas", "mnuPersMantLin", "mnuPrincipal", 0, false, false, null, "mnuPedido_MarcarFact");


public static void Show()
{
	ICntMenuFormulario cntMenuFormulario = (ICntMenuFormulario)gForm.Controls["mnuMain"];
	cntMenuFormulario.NoMostrar = false;
	cntMenuFormulario.ActivarScripts = true;
	cntMenuFormulario.MenuItemAdd("Texto del Menu", "mnuNombreMenu", "", 0);
	gCn.Obj.Form_AutoResize(gForm);
}

public void Menu_AfterExecute(ICntMenuFormulario aMenu, IAhoraTool aMenuItem)
{
	if (aMenuItem.Name == "mnuNombreMenu")
	{
		AhoraCore.VBA.Interaction.MsgBox("Hola has pulsado el menú");
	}
}


¿Le ha sido útil este artículo?

¡Qué bien!

Gracias por sus comentarios

¡Sentimos mucho no haber sido de ayuda!

Gracias por sus comentarios

¡Háganos saber cómo podemos mejorar este artículo!

Seleccione al menos una de las razones
Se requiere la verificación del CAPTCHA.

Sus comentarios se han enviado

Agradecemos su esfuerzo e intentaremos corregir el artículo