none
marcar y desmarcar checkbox cuando se marcan otros checkbox

    Pregunta

  • tengo 5 checkbox

    chk1

    chk2

    chk3

    chk regular

    quiero que cuando los tres check esten checked entonces el chkregular tambien se ponga checked pero si desmarco alguno de ellos entonces se desmarque tambien el chk regular

    lunes, 12 de diciembre de 2016 22:29

Respuestas

  • Hola:
    En un Form con 4 CheckBox, copia y pega el siguiente código

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            Me.chkRegular.Enabled = False
        End Sub

        Private Sub lP_Cambio(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged
            If Me.CheckBox1.Checked = True And Me.CheckBox2.Checked = True And Me.CheckBox3.Checked = True Then
                Me.chkRegular.Checked = True
            Else
                Me.chkRegular.Checked = False
            End If
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta Efrain Diaz martes, 13 de diciembre de 2016 0:32
    lunes, 12 de diciembre de 2016 22:41
  • Hola Efrain Diaz,

    Podrías crear un Handler para el evento CheckedChanged y enlazar los tres checkBox al mismo :

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddHandler chk1.CheckedChanged, AddressOf checksChanged
        AddHandler chk2.CheckedChanged, AddressOf checksChanged
        AddHandler chk3.CheckedChanged, AddressOf checksChanged
    End Sub

    Y método creado :

    Private Sub checksChanged(sender As Object, e As EventArgs)
        chkregular.Checked = chk1.Checked And chk2.Checked And chk3.Checked
    End Sub

    Resultado :

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    • Marcado como respuesta Efrain Diaz martes, 13 de diciembre de 2016 0:32
    lunes, 12 de diciembre de 2016 22:50

Todas las respuestas

  • Hola:
    En un Form con 4 CheckBox, copia y pega el siguiente código

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            Me.chkRegular.Enabled = False
        End Sub

        Private Sub lP_Cambio(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged
            If Me.CheckBox1.Checked = True And Me.CheckBox2.Checked = True And Me.CheckBox3.Checked = True Then
                Me.chkRegular.Checked = True
            Else
                Me.chkRegular.Checked = False
            End If
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta Efrain Diaz martes, 13 de diciembre de 2016 0:32
    lunes, 12 de diciembre de 2016 22:41
  • Hola Efrain Diaz,

    Podrías crear un Handler para el evento CheckedChanged y enlazar los tres checkBox al mismo :

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddHandler chk1.CheckedChanged, AddressOf checksChanged
        AddHandler chk2.CheckedChanged, AddressOf checksChanged
        AddHandler chk3.CheckedChanged, AddressOf checksChanged
    End Sub

    Y método creado :

    Private Sub checksChanged(sender As Object, e As EventArgs)
        chkregular.Checked = chk1.Checked And chk2.Checked And chk3.Checked
    End Sub

    Resultado :

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    • Marcado como respuesta Efrain Diaz martes, 13 de diciembre de 2016 0:32
    lunes, 12 de diciembre de 2016 22:50