Unidad 6. Creación de formularios de usuario (XIX)

Control Casilla de Verificación

Este control permite seleccionar uno o más elementos de una lista de elementos. A diferencia de control anterior en el que sólo se selecciona uno, en este puede seleccionarse más de uno a la vez.

Ejemplo 16

En este ejemplo colocaremos un grupo de controles de verificación y dos botones de opción a fin de seleccionar apropiadamente lo que corresponda. El resultado de la selección se recibirá en un cuadro de texto, que tendrá activada la propiedad multilínea. La imagen del formulario es la siguiente:

Los nombres de cada control así como su Caption se da en la siguiente tabla.

Control	Nombre, caption
Formulario	FrmCasilla, Uso del control de verificación
Opción	Opt00, Mujer
Opción	Opt01, Varón
Casilla de verificación	Chk00, Secundaria completa
Casilla de verificación	Chk01, Estudios universitarios
Casilla de verificación	Chk02, Estudios de Post Grado
Casilla de verificación	Chk03, No tiene experiencia
Casilla de verificación	Chk04, Ha viajado al extranjero
Comando	CmdActivar, Activar
Comando	CmdClear, Limpiar
Comando	CmdFin, Salir
Cuadro de texto	TxtLista, Propiedad: Mulitiline: True

El código completo se muestra en las siguientes líneas

Private Sub CmdActivar_Click()

If Opt00 Then

TxtLista.Text = "Mujer con "

Else

TxtLista.Text = "Hombre con "

End If

If Chk00 Then TxtLista.Text = TxtLista.Text + Chk00.Caption + Chr(13)

If Chk01 Then TxtLista.Text = TxtLista.Text + Chk01.Caption + Chr(13)

If Chk02 Then TxtLista.Text = TxtLista.Text + Chk02.Caption + Chr(13)

If Chk03 Then TxtLista.Text = TxtLista.Text + Chk03.Caption + Chr(13)

If Chk04 Then TxtLista.Text = TxtLista.Text + Chk04.Caption + Chr(13)

End Sub

Private Sub CmdClear_Click()

Chk00.Value = False

Chk01.Value = False

Chk02.Value = False

Chk03.Value = False

Chk04.Value = False

Opt00.Value = False

Opt01.Value = False

TxtLista.Text = ""

End Sub

Private Sub CmdSalir_Click()

End

End Sub

Nota:

El libro Paneles.xlsm contiene los últimos formularios de estos ejemplos.

Noviembre-2010

Pág. 6.19