VISUAL BASIC CLASE #2 EDITOR DE MENU

EDITOR DE MENÚ

CONCEPTO

El editor de menús es una herramienta utilizada para crear una barra de menús sobre un formulario activo. Este se encuentra ubicado en la opción herramientas del visual basic y está compuesto por tres partes

PROYECTO #1

EJERCICIO DE BORDE Y FONDO PARA FIGURA GEOMÉTRICA

En el cuadro de texto Caption escriba el nombre del menù que  desea crear. En este caso escriba "&Borde". EL signo (&) indica que la siguiente letra aparecerá subrayada (Borde) con la finalidad de acceder a esta opción mediante la combinación de las teclas Ctrl+f. 

PASOS PARA CREAR MENÚ EN VISUAL BASIC 6.0

1. Haga clic en la opción Nuevo proyecto del menùs Archivo para crear una nueva aplicación.
2. Haga clic en el formulario.
3. Haga clic en el comando de menùs Herramientas para visualizar el cuadro de dialogo Editor de menùs.
4. Proceda a ingresar los datos en el editor de menùs

Tabla de elementos ingresados en Editor de menùs:

Caption	Name	Shortcut
&Borde &Grueso &Delgado &Fondo SinColor Azul Rojo &Salir Terminar	MnuBorde OpGrueso OpDelgado MnuFondo OpSinColor OpAzul OpRojo MnuSalir OpTerminar	Ctrl+G Ctrl+D Ctrl+S Ctrl+A Ctrl+T

El Editor de Menùs debe tener el siguiente aspecto:

&Borde

….&Grueso ….&Delgado     &Fondo ….&SinColor ….Azul ….Rojo     &Salir ….&Terminar

HERRAMIENTAS UTILIZADAS

 

SHORTCUT: Sirve para ingresar una combinación de teclas aun opción. Se lo encuentra en editor de menu.

SHAPE: Se lo utiliza para las figura que deseamos seleccionar.

PROPIEDADES DE OBJETO

CAPTION: Sirve para asignarle una variable a una opción.

NAME: Sirve para asignarle un nombre a una opción de nuestro menú creado.

CODIFICACIÓN

Private Sub opGrueso_Click()

ShpFigura.BorderWidth = 6

opGrueso.Checked = True

opDelgado.Checked = False

End Sub

Private Sud opDelgado_Click()

ShpFigura.BorderWidth = 2

opGrueso.Checked = false

opDelgado.Checked = True

End Sub

Private Sub opSinColor_Click()

ShpFigura.BackColor = &H80000004

End Sub

Private Sud opFondoAzul_Click()

ShpFigura.BackColor = &HFF0000

End Sub

Private Sud opFondoRojo_Click()

ShpFigura.BackColor = &HFF&

End Sub

Private Sub opTerminar _Click()

End

End Sub