MANEJO DE MENUS

El editor de Menús de Visual Basic es una herramienta gráfica que gestiona los menús contenidos en tus programas. Podrás añadir nuevos menús y submenús, modificarlos, reordenarlos, asignar a tus menús teclas de acceso (atajos con el teclado) y más. Podrás ejecutar acciones a través de tus propios menús, tal y como lo has venido haciendo con botones.

A continuación se mostraran los pasos para realizar un ejemplo de manejo de menús:

1.    Dentro de tu nuevo proyecto inserta una etiqueta en el formulario y dos menús.

2.    Inserta un control del tipo Commond Dialog. Para habilitar este control:

a.    Da clic derecho sobre la barra de herramientas y elige Components.

b.    Selecciona de la ventana de diálogo, la opción Microsoft Common Dialog.

c.    El control ya estará disponible en las herramientas. Da clic sobre la herramienta Common Dialog para insertarlo al formulario.

3.    Selecciona Menú Tools/Menú Editor… y establece las opciones que se muestran en la tabla de abajo. Utiliza las flechas para tabular los menús (…), esto indica cuáles son menús y cuales son opciones de menús (submenús).

MENÚ	PROPIEDAD	VALOR
&Ver	Caption	&Ver
	Name	MNuVer
…&Fecha	Caption	&Fecha
	Name	MNuFecha
&Formato	Caption	&Formato
	Name	MNuFormato
	Enabled	False
…&Tamaño	Caption	&Tamaño
	Name	MNuTamaño
…..&10	Caption	&10
	Name	MNuDiez
…..&20	Caption	&20
	Name	MNuVeinte
…&Estilo	Caption	&Estilo
	Name	MNuEstilo
…..&Negrita	Caption	&Negrita
	Name	MNuNegrita
…&Color…	Caption	&Color
	Name	MNuColor

En la siguiente imagen se muestra como es el Menú Editor:

4.    Da clic en el menú Ver/Fecha de tu formato e inserta el siguiente código:

Private Sub MNuFecha_Click ()

           

                        Label1.Caption = Date

                        MNuFormato.Enabled = True

           

End Sub

           

5.    En la ventana de código selecciona el menú MNuDiez e inserta el siguiente código:

Private Sub MNuDiez_Click ()

           

                        Label1.FontSize = 10

                       

            End Sub

6.    En la ventana de código selecciona el menú MNuVeinte e inserta el siguiente código:

Private Sub MNuVeinte_Click ()

           

                        Label1.FontSize = 20

                       

            End Sub

7.    En la ventana de código selecciona el menú MNuNegrita e inserta el siguiente código:

Private Sub MNuNegrita_Click ()

            If Label1.FontBold = True Then

            Label1.FontBold = False

            Else

            Label1.FontBold = True

            End If

            End Sub

8.    En la ventana de código selecciona el menú MNuColor e inserta el siguiente código:

Private Sub MNuColor_Click ()

           

                        CommonDialog1.Flags = &H2&

                        CommonDialog1.ShowColor

                        Label1.ForeColor = CommonDialog1.Color

           

End Sub

9.    Cuando ya haya funcionado bien, agrega a tu menú la opción “Escribir”. Programa lo necesario para que, cuando el usuario elija esta opción, pueda teclear algún texto y le pueda dar formato con las opciones del menú.

10.    Prueba el programa y revisa que todas las opciones funcionen correctamente.