Esta lección es la continuación de la anterior página

Si hace clic en cualquiera de sus casillas de verificación y examina sus propiedades en el Caja de propiedades, notará que tiene una CheckState Propiedad. Haz clic en la flecha hacia abajo para ver las opciones que tiene este CheckState .

El código de la casilla de verificación

Como puede ver, se le dan tres opciones: Desactivar, activar, Indeterminado.

Si se ha seleccionado una casilla de verificación, el valor de la propiedad CheckState sea 1; si no se ha seleccionado, el valor es cero. (El valor para el Indeterminado también es cero, pero no usaremos esto).

Sólo vamos a hacer pruebas para 0 o 1, comprobado o no comprobado. Puedes hacer la prueba con una simple declaración de "Si". Como esta:

Si CheckBox1.CheckState = 1 Entonces

MessageBox.Show("Checked")

Finalizar si

Después de que escribas el signo de igualdad, sin embargo, VB te dará un cuadro desplegable de los valores que puedes elegir. Así que el código anterior es el mismo que este:

Si CheckBox1.CheckState = CheckState.Checked Then

MessageBox.Show("Checked")

Finalizar si

Cualquiera que sea su elección, la declaración será verdadera si la casilla de verificación está marcada. y falso si no lo es.

Añade un botón a tu formulario y pon ese código detrás de él (cualquiera de los dos, o prueba ambos). Cuando termines de escribir el código, ejecuta tu programa. Ponga un marque dentro de la casilla de verificación 1, y haga clic en su botón. Debería aparecer un cuadro de mensajes arriba.

Modifica tu código para esto:

Si CheckBox1.CheckState = CheckState.Checked Then

MessageBox.Show("Checked")

Else

MessageBox.Show("Not Checked")

Finalizar si

Una alternativa a ElseIf es ElseIf. Funciona así:

Si CheckBox1. CheckState = 1 Entonces

MessageBox.Show("Checked")

Si no, marque la casilla 1. Marque el estado = 0 Entonces

MessageBox.Show("Unchecked")

Finalizar si

Cuando se usa la cláusula de "ElseIf", hay que poner lo que se está probando en el la misma línea, justo después de ElseIf. Pones la palabra Then justo al final de la línea. Puedes tener tantas cláusulas de "ElseIf" como quieras. En otras palabras, es exactamente igual que la primera línea de "Si" sólo con la palabra "Otro" en frente de "Si".

No más lectura estas lecciones en línea - ¡consigue el libro electrónico aquí!

Añade 4 más If Statements para comprobar los valores en tus otros Checkboxes :

Checkbox2.CheckState, Checkbox3.CheckState, etc.

Ahora vamos a deshacernos de los buzones de mensajes dentro de las declaraciones de "Si". Así que o bien comentar todas las líneas de su MessageBox, o borrarlas por completo.

En su lugar, construiremos una Variable de Cuerda. Así que agrega una Variable de Cuerda a la código para tu botón, y llámalo mensaje.

La variable del mensaje debe ir dentro de la declaración "Si". Si el usuario ha comprobado una caja (si su propiedad CheckState es 1), entonces construimos el mensaje. Necesitamos para recordar lo que hay dentro de la variable del mensaje, así que podemos usar esto:

message = message & Checkbox1.Text & vbNewLine

De esa manera, cada vez que una opción es marcada, Visual Basic mantendrá lo que está en la variable llamada mensaje y agregarle el texto que sea para el Checkbox.

Así que añade esa línea a tus declaraciones de "Si". Algo como esto

Si la casilla de verificación 1.CheckState = 1 Entonces

mensaje = mensaje & Checkbox1.Text & vbNewLine

Finalizar si

Si la casilla de verificación 2.CheckState = 1 Entonces

mensaje = mensaje & Checkbox2.Text & vbNewLine

Finalizar si

Y al final de sus declaraciones de "Si", en una nueva línea, añada esto:

MessageBox.Show("Ha elegido " & vbNewLine & mensaje)

Aquí, estamos construyendo un mensaje de texto para nuestro buzón de mensajes. Estamos diciendo que nuestro mensaje La caja debe contener el texto "Has elegido" y una nueva línea y lo que sea está dentro de la variable llamada mensaje.

Cuando hayas terminado, ejecuta tu programa para probarlo. Ponga una garrapata dentro todas sus casillas de verificación. Cuando haga clic en su botón todas sus películas deben aparecer en el buzón de mensajes. Marque y desmarque algunas opciones y vuelva a hacer clic en el botón. Sólo deben aparecer en el cuadro de selección los elementos que estén seleccionados.

Así que podemos probar para ver qué casillas de verificación ha marcado un usuario, y podemos mantener un registro de esas elecciones para nosotros mismos.

Lo que también podemos hacer es contar cuántas casillas de verificación fueron marcadas. Podemos entonces utilizar una Declaración de Caso Seleccionado para mostrar un mensaje adecuado.

Llevar la cuenta es sencillo. Primero establecemos una variable entera llamada y poner su valor a cero.

Contador Dim como entero = 0

Entonces podemos seguir añadiendo uno a lo que sea que haya en esta variable del contador. En En otras palabras, cada vez que una casilla de verificación tiene un valor de 1 (está marcada), podemos añadir uno a nuestro contador (incrementa nuestra variable).

Podemos añadir esto directamente en nuestra declaración de Si, en una nueva línea después del mensaje código.

contador = contador + 1

Así que tu código sería este:

Si la casilla de verificación 1.CheckState = 1 Entonces

mensaje = mensaje & Checkbox1.Text & vbNewLine
contador = contador + 1

Finalizar si

Para comprobar que su contador funciona, puede añadir un segundo cuadro de mensajes al al final del código, justo debajo de tu primer buzón de mensajes:

MessageBox.Show("Counter = " & counter)

O adaptar tu primer buzón de mensajes:

MessageBox.Show("Has elegido" & contador & "Películas")

Ahora que tenemos una forma de contar cuántas casillas de verificación están marcadas, podemos añadir una declaración de un caso selecto.

Ejercicio I

Añade una Declaración de Caso Selecto al final de tu código para probar lo que hay dentro. la variable llamada contador.

¿Recuerdas cuál es el formato de un Caso Selecto? Es este:

Seleccione Case VariableName

Caso 0

MsgBox "¡Obviamente no te gustan las películas!"

End Select

Si tiene 5 casillas de verificación en su formulario, entonces el valor máximo que el contador ...que se mantendrá es el 5. Así que sólo tienes que subir al caso 5.

Añade los mensajes adecuados para cada caso que estés probando.

Respuesta al ejercicio I

Esta ha sido una lección bastante larga, así que date una gran palmada en la espalda si ¡lo superaste! En la siguiente parte, veremos cómo añadir botones de opción a un formulario VB .NET.

Haga clic aquí para pasar a la siguiente parte --;

Espero que te haya sido de ayuda!

Recomendado para ti