Visual Basic

 Control Check Box

El control CheckBox se utiliza generalmente para listar opciones y que el usuario pueda elegir entre ellas, y dependiendo del valor (si está chequeado o no), se realiza una u otra acción.

Una vista previa de este control:

 

Propiedad Value

La principal propiedad de este control es la propiedad Value. Esta propiedad devuelve y establece el valor seleccionado.

Esta tiene 3 posibles valores:

• 0 - UnChecked
• 1 - Checked
• 2 - Grayed

 

Las mas utilizadas son la 0 - UnChecked y 1 - Checked. Cuando está en 0 , el checkbox no está tildado o checkeado, cuando está en 1 se muestra marcado.

Siguiendo con el ejemplo anterior de la encuesta, un ejemplo que no tiene ningún sentido pero que te de una idea mas clara de como usar este control.

Agrega en un formulario 3 controles CheckBox como muestra la imagen , un botón Command1 para mostrar el resultado y un control textBox llamado Text1 para ingresar un nombre.

 

Cuando lo presionemos, mostraremos un mensaje que muestre el resultado de la misma, evaluando mediante la propiedad Value de cada Checkbox. Antes de evaluar los CheckBox comprobamos que se haya ingresado un texto en el Text1, si no se ingresó nada, se muestra un mensaje de advertencia y se termina la rutina mediante la instrucción Exit Sub , en cambio si se ingresó un nombre, visual basic prosigue la ejecución del resto del código:

 

Código fuente dentro del formulario:

Texto planoImprimir

1. Option Explicit  
2.   
3. Private Sub Command1_Click()  
4.       
5.     ' -- Esta variable almacenará los datos para mostrar  
6.     ' -- el resultado al final de la rutina  
7.     Dim Resultado As String  
8.   
9.     ' -- Esto verificará si el text1 no está vacio y se ha ingresado un nombre  
10.     If Text1 = "" Then  
11.         ' -- si está vacío mostramos el mensaje  
12.         MsgBox "Debe ingresar un nombre", vbExclamation, "Encuesta"  
13.         ' -- Mediante Exit Sub salimos de la rutina para  
14.         ' -- no ejecutar las líneas que debajo  
15.         Exit Sub  
16.     End If  
17.   
18.     ' -- Ahora guardamos en la Variable Resultado el nombre que  
19.     ' -- se ingresó en el control text1  
20.     Resultado = "Su nombre es " & Text1 & vbNewLine  
21.   
22.     ' -- Evaluamos el Check1 (mayor de edad)  
23.     If Check1.Value = 0 Then  
24.         Resultado = Resultado & "Usted no es mayor de edad"  
25.     Else  
26.         Resultado = Resultado & "Usted es mayor de edad"  
27.     End If  
28.   
29.     ' -- Le agregamos a la variable resultado un salto de carro o salto de línea  
30.     Resultado = Resultado & vbNewLine  
31.   
32.     ' -- Evaluamos el Check2 (Si tiene hijos )  
33.     If Check2.Value = 0 Then  
34.         Resultado = Resultado & "Usted no tiene Hijos"  
35.     Else  
36.         Resultado = Resultado & "Usted tiene hijos"  
37.     End If  
38.   
39.     ' -- Otro salto de carro  
40.     Resultado = Resultado & vbNewLine  
41.   
42.     ' -- Evaluamos el Check3 (si estudió)  
43.     If Check3.Value = 0 Then  
44.         Resultado = Resultado & "Usted no estudió una Carrera"  
45.     Else  
46.         Resultado = Resultado & "Usted estudió una Carrera"  
47.     End If  
48.   
49.     ' -- Mostramos el valor de la variable Resultado con la información  
50.     MsgBox Resultado, vbInformation, "Encuesta"  
51.   
52. End Sub  
53.   
54. Private Sub Form_Load()  
55.       
56.     ' -- Establecer Caption  de los controles  
57.     Command1.Caption = "Mostrar resultados"  
58.     Check1.Caption = "¿ Es usted mayor de edad ?"  
59.     Check2.Caption = "¿ Tiene hijos ?"  
60.     Check3.Caption = "¿ Estudió alguna carrera ?"  
61.     Text1.Text = vbNullString  
62. End Sub  

Propiedad Style

Una propiedad de este control relacionado a su aspecto gráfico es la Propiedad Style:

Esta es similar a la del control CommandButton, y permite tener un checkBox de estilo gráfico o estilo Estándar normal, como muestra esta imagen:

Si está en Graphical, es posible cambiarle el color de fondo y también si queremos podemos mostrar una imagen utilizando la propiedad Picture del Check.

 Ejercicio:

ANTERIOR