El objetivo de este ejercicio es identificar las principales propiedades de los botones de opción y de los frame.
Lo que hace…
El frame de tamaño de letra al seleccionarlo aplica al mensaje del textbox, y el frame de color aplica al mismo textbox.
El checkbox cambia a minúscula el contenido del textbox cuando éste es seleccionado.
Para su realización toma de referencia la siguiente imagen:
Controles y sus propiedades
Formulario
| Nombre | frmBotonOpcion |
| Caption | Uso de botón de opción |
| Backcolor | &H00FFC0C0& |
| MaxButton | False |
| MinButton | False |
| StartUpPosition | CenterScreen |
| Moveable | False |
Cuadro de Texto
| Nombre | txtMensaje |
| Alignment | Center |
| Backcolor | &H00000000& |
| Forecolor | &H000000FF& |
| Locked | True |
| Text | CBTis 262 |
Frame Uno
| Nombre | fraTamano |
| Caption | Tamano de Letra |
Frame Dos
| Nombre | fraColor |
| Caption | Color de Letra |
Botones de opcion para Frame Uno
| Nombre | optChico |
| Caption | Chico |
| Value | True |
| Nombre | optMediano |
| Caption | Mediano |
| Nombre | optGrande |
| Caption | Grande |
Código para cada botón de opción:
Private Sub optChico_Click()
txtMensaje.FontSize = 12
End Sub
Private Sub optGrande_Click()
txtMensaje.FontSize = 36
End Sub
Private Sub optMEdiano_Click()
txtMensaje.FontSize = 24
End Sub
Botones de opcion para Frame Dos
| Nombre | optRojo |
| Caption | Rojo |
| Value | True |
| Forecolor | &H000000FF& |
| BackColor | &H00FFC0C0& |
| Nombre | optAmarillo |
| Caption | Amarillo |
| Forecolor | &H0000FFFF& |
| BackColor | &H00FFC0C0& |
| Nombre | optAzul |
| Caption | Azul |
| Forecolor | &H00FF0000& |
| BackColor | &H00FFC0C0& |
Código para cada botón de opción del Frame dos:
Private Sub optAmarillo_Click()
txtMensaje.ForeColor = vbYellow
End Sub
Private Sub optAzul_Click()
txtMensaje.ForeColor = vbBlue
End Sub
Private Sub optRojo_Click()
txtMensaje.ForeColor = vbRed
End Sub
Casilla de verificacion
| Nombre | chkMinuscula |
| Caption | Minuscula |
| Forecolor | |
| Value | Unchecked |
Código de la casilla de verificación:
Private Sub chkMinuscula_Click()
If chkMinuscula.Value = vbChecked Then
'LCase - funcion que convierte a minuscula
txtMensaje.Text = LCase(txtMensaje.Text)
Else
'UCase - funcion que convierte a mayuscula
txtMensaje.Text = UCase(txtMensaje.Text)
End If
End Sub
Para cualquier duda o aclaración no dudes en consultarlo en clase.
Recuerda que estos ejercicios son básicos y deben ser entendidos y comprendidos en su totalidad. Hacerlos bien garantiza el éxito en ejercicios posteriores.
Créditos: lemm
