PRACTICA II-12. uso de un control Checkbox para seleccionar varias
características de manera simultánea
EQUIPO No5
OBJETIVO.- Aprender a establecer uno o varios atributos a un texto, relativos a las propiedades FONT: negritas, italicas y subrayadas; también se hará juego con el tamaño a través de botones de comando.
PROCEDIMIENTO.- Para esta práctica el procedimiento es el siguiente:
- Cree la siguiente interfáz
- Codifique:
Option
Explicit
Private
Sub Command3_Click()
End
Sub
Private
Sub chkItalicas_Click()
If chkItalicas.Value = vbChecked Then
lblMuestra.Font.Italic = True
Else
lblMuestra.Font.Italic = False
End If
End
Sub
Private
Sub chkNegritas_Click()
If chkNegritas.Value = vbChecked Then
lblMuestra.Font.Bold = True
Else
lblMuestra.Font.Bold = False
End If
End
Sub
Private
Sub chkSubrayadas_Click()
If chkSubrayadas.Value = vbChecked Then
lblMuestra.Font.Underline = True
Else
lblMuestra.Font.Underline = False
End If
End
Sub
Private
Sub cmdAumentar_Click()
If lblMuestra.Font.Size >= 39 Then
Beep
Else
lblMuestra.Font.Size =
lblMuestra.Font.Size + 2
End If
txtTamaño.Caption = lblMuestra.Font.Size
End
Sub
Private
Sub cmdReducir_Click()
If lblMuestra.Font.Size <= 8 Then
Beep
Else
lblMuestra.Font.Size = lblMuestra.Font.Size - 2
End If
txtTamaño.Caption = lblMuestra.Font.Size
End Sub
Private
Sub cmdSalir_Click()
End
End
Sub
Private Sub Form_Load()
End Sub
- Al ejecutar el programa se ve asi
CONCLUSIONES.- En esta práctica se incluye la nueva propiedad Value para ChkBox. Al incluir en un ciclo if la evaluación de la caja Check, se provocaban varias acciones comunes como es cambiar un texto de prueba a sus variantes en letra itálica, negrita, subrayada; además incluimos dos botones de comando para hacer más chica o más grande la letra, como adición, incluimos una caja de tipo label para que nos indicara el tamaño de la fuente. Por alguna razón cuando presionamos el botón para hacer la letra más grande, no llega a tener el valor máximo especificado que es 38 (como maximo se obtiene 15.6 como se muestra en la figura).
IESS