38 - Controles comunes - CheckBox

El control CheckBox permite implementar un cuadro de selección (básicamente un botón de dos estados: seleccionado o no seleccionado)

Problema 1:

Confeccionar un programa que muestre 3 objetos de la clase CheckBox con etiquetas de tres idiomas. Cuando se presiona un botón mostrar en la barra de títulos del Form todos los CheckBox seleccionados hasta el momento.

Programa:

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Text = ""
        If CheckBox1.Checked = True Then
            Text = Text + "(Inglés)"
        End If
        If CheckBox2.Checked = True Then
            Text = Text + "(Francés)"
        End If
        If CheckBox3.Checked = True Then
            Text = Text + "(Alemán)"
        End If
    End Sub
End Class

La clase CheckBox tiene una propiedad llamada Checked (si tiene el valor true significa que el CheckBox esta seleccionado, en caso contrario no esta seleccionado)

En el evento Click del botón primero borramos el contenido del título del Form1:

        Text = ""

Y seguidamente mediante estructuras If verificamos el estado de cada CheckBox, en caso de estar seleccionado concatenamos al título del Form1 el valor que representa ese CheckBox:

        If CheckBox1.Checked = True Then
            Text = Text + "(Inglés)"
        End If
        If CheckBox2.Checked = True Then
            Text = Text + "(Francés)"
        End If
        If CheckBox3.Checked = True Then
            Text = Text + "(Alemán)"
        End If

Problema 2:

Disponer un control Label que muestre el siguiente mensaje: "Esta de acuerdo con las normas del servicio?", luego un CheckBox y finalmente un objeto de tipo Button desactivo (propiedad Enabled con False). Cuando se tilde el CheckBox debemos activar el botón (para esto debemos responder al evento CheckedChanged)

Programa:

Public Class Form1
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Button1.Enabled = True
        Else
            Button1.Enabled = False
        End If
    End Sub
End Class

Debemos implementar el evento CheckedChanged del objeto CheckBox1 (preguntamos si el CheckBox se encuentra seleccionado o no, en caso de estar seleccionado activamos el botón asignando a la propiedad Enabled el valor True):

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Button1.Enabled = True
        Else
            Button1.Enabled = False
        End If
    End Sub

Problema propuesto

1. Disponer tres objetos de la clase CheckBox con nombres de navegadores web. Cuando se presione un botón mostrar en el título del Form los programas seleccionados.

Solución

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Text = ""
        If CheckBox1.Checked = True Then
            Text = Text & "(" & CheckBox1.Text & ")"
        End If
        If CheckBox2.Checked = True Then
            Text = Text & "(" & CheckBox2.Text & ")"
        End If
        If CheckBox3.Checked = True Then
            Text = Text & "(" & CheckBox3.Text & ")"
        End If
    End Sub
End Class

Retornar