Make your own free website on Tripod.com
Volver a Creación de menú-parte 2 Ir al Indice Ir a arreglos
parte 11
En el siguiente ejercicio, vamos a necesitar dos formularios, uno de ellos con un menú con los Items Opciones y Formato. Opciones tendrá como sub-menú Ayuda y Salir.Todos los nombres de menú tendrán el nombre que aparezca en Caption precedido de mnu. Ejemplo: Formato se llamará mnuformato. Formato tendrá como submenú Fuente y como sub-submenú Tahoma y Arial.
Como submenú de Formato estará Estilo con sub-submenú Negrita, Cursiva y Subrayado.
Otro submenú será Color con sub-submenú, Rojo, Verde y Azul.
Habrá un submenú Fondo, con los sub-submenú Rosado, Turquesa y Celeste.
También en el formulario 1 habrá un cuadro de texto de nombre Tb donde el usuario podrá escribir el texto que desee para luego formatearlo usando el menú.
Un botón Cmdborrar podrá borrar el texto que se encuentre en el cuadro de texto Tb.
La opción de menú Ayuda nos llevará al Formulario 2, donde aparecerá directamente sobre el formulario el nombre del autor mediante el uso de una etiqueta Label1, y un botón Cmdsalir.
En el formulario 1 habrá una opción de menú Salir. Al ser seleccionada deberá aparecer un MsgBox con opciones: ¿Quiere Salir?, icono de pregunta, conjunto de botones Yes-No con botón predeterminado en No y el título de la caja será "Salir". Antes de comenzar con el ejercicio veremos algunas propiedades.
PROPIEDADES DE TEXTBOX

La propiedad Font debe ser tomada como un objeto con sus propiedades. Por ejemplo, mediante código se puede cambiar el tipo de letra utilizando Font.Name.
Mediante Font.Size se puede controlar el tamaño de la letra.
Para la negrita se usa Font.Bold con sus valores True o False.

Para que la letra aparezca subrayada Font.Underline, con sus valores True o False.
Para que la letra aparezca en cursiva Font.Italic, con sus valores True o False

Private Sub mnuayuda_Click()
Form2.Show 1
End Sub
Private Sub mnusalir_Click()
r = MsgBox("¿Quiere Salir?", vbQuestion + vbYesNo + vbDefaultButton2, "Salir")
If r = vbYes Then
End
End If
Private Sub mnunegrita_Click()
'Si no está seleccionado se
'selecciona y viceversa

If Tb.Font.Bold = True Then
Tb.Font.Bold = False
Else: Tb.Font.Bold = True
End If
If mnunegrita.Checked = False Then
mnunegrita.Checked = True
Else: mnunegrita.Checked = False
End If
End Sub
Private Sub mnutahoma_Click()
Tb.Font.Name = "Tahoma"
mnutahoma.Checked = True
mnuarial.Checked = False
End Sub
Private Sub mnuarial_Click()
Tb.Font.Name = "Arial"
mnuarial.Checked = True
mnutahoma.Checked = False
End Sub
Private Sub mnucursiva_Click()
If Tb.Font.Italic = True Then
Tb.Font.Italic = False
Else: Tb.Font.Italic = True
End If
If mnucursiva.Checked = True Then
mnucursiva.Checked = False
Else: mnucursiva.Checked = True
End If
End Sub
Private Sub mnusubrayado_Click()
If Tb.Font.Underline = True Then
Tb.Font.Underline = False
Else: Tb.Font.Underline = True
End If
Private Sub mnuverde_Click()
Tb.ForeColor = RGB(0, 180, 0)
mnurojo.Checked = False
mnuverde.Checked = True
mnuazul.Checked = False
End Sub
Private Sub mnuazul1_Click()
Tb.ForeColor = RGB(50, 50, 255)
mnurojo1.Checked = False
mnuverde1.Checked = False
mnuazul1.Checked = True
End Sub
Private Sub mnurojo1_Click()
Tb.ForeColor = RGB(150, 0, 0)
mnurojo1.Checked = True
mnuverde1.Checked = False
mnuazul1.Checked = False
End Sub
Private Sub mnuturquesa_Click()
Tb.BackColor = RGB(150, 255, 210)
mnurosado.Checked = False
mnuturquesa.Checked = True
mnuceleste.Checked = False
End Sub
Private Sub mnuceleste_Click()
Tb.BackColor = RGB(190, 190, 255)
mnurosado.Checked = False
mnuturquesa.Checked = False
mnuceleste.Checked = True
End Sub
Private Sub mnurosado_Click()
Tb.BackColor = RGB(255, 190, 190)
mnurosado.Checked = True
mnuturquesa.Checked = False
mnuceleste.Checked = False
End Sub
Private Sub Cmdborrar_Click()
Tb.Text = ""
End Sub
En el formulario 2, se ha tratado de usar lo menos posible la ventana de propiedades, escribiendo todo en el código.
Cuenta con una etiqueta Label 1 y un botón Salir Cmdsalir (que cierra el formulario pero no el programa)
Private Sub Form_Load()
Form2.Caption = "Ayuda"
Form2.BackColor = RGB(150, 255, 255)
'Color de Fondo del formulario
Label1.Caption = "Realizador Pepe Lopez"
Label1.Alignment = 2
'Centrado
Label1.BackColor = RGB(150, 255, 255)
'Color de Fondo de la etiqueta
Label1.Font.Size = 12
'Tamaño
Label1.Font.Bold = True
'Negrita
Label1.ForeColor = RGB(150, 0, 0)
'Color de las letras
End Sub
Private Sub Cmdsalir_Click()
Unload Me
End Sub
En la próxima veremos Arreglos:
Volver arriba Volver a Creación de menú-parte 2 Ir al Indice Ir a Arreglos