Tecnologia

Uso de los CheckBox

6a5dfac

-Creamos el formulario con los CheckBox.

form checkbox

En el botón de enviar introducimos la siguiente configuración.

text

Public Class Form1

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim CheckBox1, CheckBox2, CheckBox3 As Boolean  'Creamos la variable de los checkbox de tipo Boolean.

        If Me.CheckBox1.Checked = True Then  'Si el CheckBox1 está marcado será True.
            CheckBox1 = True
        End If

        If Me.CheckBox2.Checked = True Then
            CheckBox2 = True
        End If

        If Me.CheckBox3.Checked = True Then
            CheckBox3 = True
        End If

        MsgBox("La respuesta ha sido ")
        If CheckBox1 = True Then            'Si es True,lo mostrará en pantalla.
            MsgBox("Google")
        End If

        If CheckBox2 = True Then
            MsgBox("Correo")
        End If

        If CheckBox3 = True Then
            MsgBox("Otros")
        End If

    End Sub
End Class

checkbox