EJEMPLO DE UN MENU


  • programa donde sume dos numeros donde se calcule por medio de un menu y no de un comand button y el resultado lo de en una caja de texto.

En herramientas buscamos editor de menus, luego escribimos:
caption: & archivo
name: Mnuarchivo.

despues pulsamos siguiente con un nivel de sangria escribimos:
caption: &colores
name: Mnucolores.

pulsamos siguiente y colocamos dos niveles de sangria.
caption : amarillo
name : Mnuamarillo.

pulsamos siguiente y escribimos
caption: salir
name : Mnusalir

pulsamos siguiente y quitamos toda la sangria para hacer un menu al lado
caption: opciones
name:mnuopciones

siguiente y otro nivel de sangria
caption: borrar
name: borrar

si vas bien se deberá de ver de la siguiente manera.

luego buscamos en la interfaz grafica cada menu y le damos el codigo necesario par nuestro programa .

ejemplo:
Dim a As Long
Dim b As Long
Dim r As Long

Private Sub mnuamarillo_Click()
Form1.BackColor = &HFFFF&
End Sub

Private Sub mnuborrar_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub mnucalcular_Click()
a = Text1.Text
b = Text2.Text
r = a + b
Text3.Text = r
End Sub

Private sub mnusalir_Click()
End
End sub

en nuestra interfaz colocamos las tres cajas de texto y los dos label para terminar nuestra aplicacion.