En este ejercicio revisaras el funcionamiento de las casillas de verificación, además de repasar los botones de opción.
La siguiente imagen es una referencia de como podría quedar tu formulario, ya que la distribución, tamaño y colores puedes personalizarlos cuidando siempre la estética.
Controles a utilizar:
Un formulario al cual deberas aplicar las propiedades de: nombre, caption, maxbutton, minbutton, moveable, startupposition, icono* y backcolor.
*Para esta propiedad busca en la computadora o en internet archivos con extensión -ico- (*.ico), cópialos a tu carpeta donde tienes los formularios y aplica la propiedad.
Para el letrero puedes utilizar una etiqueta o un cuadro de texto, las propiedades a utilizar considerando que es un cuadro de texto: nombre, text, alignment, font, backcolor, forecolor, locked.
El frame de –alinear texto- utiliza las propiedades de nombre, caption y backcolor.
Las propiedades de los botones de opción del frame: nombre, caption, backcolor y value.
Las propiedades de las casillas de verificación son: nombre, caption, font y backcolor.
Para la codificación:
Para los botones de opción. Es importante considerar que la alineación de un textbox puede ser:
0. Left Justify
1. Right Justify
2. Center
Por lo tanto, el código para el botón de opción para alinear al centro podría ser:
txtMensaje.Alignment = 2
Se pone el numero que corresponda a la alineación deseada (en este caso Center), NO el texto.
Para la casilla de verificación de Minusculas, dicho código se encuentra en el ejercicio anterior.
Para las casillas de verificacion de negrita, itálica y subrayada se deben considerar las propiedades de Fontbold, FontItalic y FontUderline. Por lo tanto si queremos poner en negrita el contenido del textbox, el código para el checkbox podría ser:
txtMensaje.FontBold = True
Y si queremos quitar negrita al contenido del textbox, el código para el mismo checkbox podría ser:
txtMensaje.FontBold = False
El código completo para el checkbox de negrita podría quedar:
Private Sub chkNegrita_Click()
If chkNegrita.Value = vbChecked Then
txtMensaje.FontBold = True
Else
txtMensaje.FontBold = False
End If
End Sub
No olvides consultar a tu maestro para dudas sobre la conclusión total del ejercicio.
IMPORTANTE: para la asignación de los nombre es imperativo utilizar los prefijos correspondientes.
Créditos: lemm
