Make your own free website on Tripod.com
Volver a Creación de un Menu- 1 Ir al Indice Ir a ejercicios con menús
2da.parte
Para poder entender, observamos la figura de abajo a la derecha. Abrimos el editor de menú (Ctrl+E) y en Caption colocamos "Opciones", en Name "mnuopciones", el resto lo dejamos como está en forma pre-determinada. En el cuadro de lista de abajo habrá aparecido "Opciones".
Luego hacemos click en el botón Siguiente, con lo que bajamos un lugar en el cuadro de lista, también debemos hacer click en flecha derecha, para que el nuevo elemento "dependa" jerarquicamente de Opciones. Una vez completados los datos del nuevo elemento este aparecerá precedido por varios puntitos debajo y a la derecha de Opciones. Si no hubiésemos usado el botón flecha derecha, el próximo elemento no aparecería debajo de Opciones (como submenú) en el formulario, sino en el mismo orden jerárquico como otro item de menú. En Caption colocamos "Fondo" y en Name "mnufondo".
Hacemos click en el botón Siguiente y luego en flecha derecha, para que el nuevo elemento figure como un sub-submenú y colocamos en Caption Rojo y en Name mnurojo.
Luego hacemos click en el botón siguiente, pero no en el botón flecha derecha, ya que los próximos elementos están en el mismo orden jerárquico que Rojo. En Caption ponemos Verde, en Name, mnuverde.
Hacemos click en Siguiente, en Caption colocamos Amarillo y en Name mnuamarillo.
Hacemos click en siguiente, en Caption colocamos Azul, en Name mnuazul.
Hacemos click en siguiente y también en flecha izquierda, porque el próximo elemento está un lugar más "arriba" en orden jerárquico y por lo tanto quedará a la misma "altura" que Fondo. En Caption colocamos Ayuda y en Name mnuayuda.
Hacemos click en siguiente y en Caption colocamos Salir y en Name mnusalir.
Para aclarar todo veamos cómo queda esto en el formulario y también el cuadro de lista del editor de menús.
Si luego de terminado el menú deseamos modifi- carlo, podemos agregar elementos, mediante el botón "Insertar" (agrega un lugar para arriba). También podemos eliminar un elemento mediante el botón "Eliminar".

Ahora debemos hacer funcionar el menú, para esto debemos escribir el código de los elementos Rojo (mnurojo), Verde(mnuverde), Amarillo(mnuamarillo) y Azul(mnuazul), de forma que al seleccionar alguno de estos elementos:

  1. Aparezca en el menú un tilde de chequeado junto al elemento seleccionado. Al seleccionar otro elemento este tilde debe desaparecer. Como los cambios son en tiempo de ejecución no podremos usar la opción checked del editor de menús debiendo escribir el código correspondiente.
  2. El fondo del formulario deberá tomar el color del elemento seleccionado
También debemos ocuparnos de los sub-menú "Ayuda" y "Salir".
Necesitamos un formulario principal donde irá el menú y un segundo formulario donde irá la Ayuda. Para obtener un nuevo formulario vamos a Proyectos/Agregar Formulario.
Veamos el código del primer formulario:

Private Sub mnurojo_Click()
' con esto tildamos rojo (seleccionado) y eliminamos cualquier tilde que hubiera en otro color
mnuamarillo.Checked = False
mnuverde.Checked = False
mnuazul.Checked = False
mnurojo.Checked = True
' modificamos el color de fondo del formulario haciéndolo rojo. Agregamos algo de verde y de azul
para que el rojo no sea tan fuerte

Form1.BackColor = RGB(250, 50, 50)
End Sub

Private Sub mnuverde_Click()
mnuamarillo.Checked = False
mnuverde.Checked = True
mnuazul.Checked = False
mnurojo.Checked = False
Form1.BackColor = RGB(50, 250, 50)
End Sub
Private Sub mnuazul_Click()
mnuamarillo.Checked = False
mnuverde.Checked = False
mnuazul.Checked = True
mnurojo.Checked = False
Form1.BackColor = RGB(50, 50, 250)
End Sub
Private Sub mnuamarillo_Click()
mnuamarillo.Checked = True
mnuverde.Checked = False
mnuazul.Checked = False
mnurojo.Checked = False
Form1.BackColor = RGB(240, 240, 80)
End Sub
Private Sub mnuayuda_Click()
'Llamamos al Formulario 2 por su nombre (Form2) y usamos Show. El 1 indica modal y sirve para retener el foco en Form2.
Form2.Show 1
End Sub
Private Sub mnusalir_Click()
'Aparece un msgbox que pregunta si "¿quiere salir?", con un signo de interrogación, con dos botones Si y No, con la opción predeterminada en el botón 2, y con un título "salir del programa"
R = MsgBox("¿Quiere salir?", vbQuestion + vbYesNo + vbDefaultButton2, "Salir de Programa")
'Mediante la condición If, indicamos que si es oprimido el botón "Yes" el programa termine (End)
If R = vbYes Then
End
End If
End Sub
Ahora veamos el código del Formulario 2 (Form2)

Private Sub Form_Load()
'El cuadro de texto Text1, lleva la ayuda
Text1.Text = "Aquí en la ayuda nos encontraremos con todos los elementos necesarios para saber qué hacer en caso de una duda."
End Sub

Private Sub Cmd1_Click()
'
Al estar en Frm2, en lugar de Unload Frm2 podemos usar Unload Me
Unload Me
End Sub

En la próxima veremos algunos ejericios
Volver arriba Volver a Creación de un Menu- 1 Ir al Indice Ir a ejercicios con menús