Kontrollkästchen validieren

Question

Ich bin ein Anfänger bei der Programmierung Ich habe 3 CheckBoxes und 1 TextBox. Wenn CheckBox1 und checkbox2 geprüft werden, dann wird der Text in dem Text 1 sein sollte, sonst sollte es 0.

sein Das ist mein Code:

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, 
    CheckBox2.CheckedChanged 

    If CheckBox1.Checked And CheckBox2.Checked Then 
     TextBox1.Text = 1 
    Else 
     TextBox1.Text = 0 
    End If 
End Sub 

Dies funktioniert, außer wenn ich alle drei von ihnen überprüft, die TextBox ändert sich nicht zu 0 und ist immer noch 1. Wie löse ich das? Ich habe versucht, meinen Code zu ändern

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, 
    CheckBox2.CheckedChanged 

    If CheckBox1.Checked And CheckBox2.Checked Then 
     TextBox1.Text = 1 
    ElseIf CheckBox1.Checked And CheckBox2.Checked And Checkbox3.Checked Then 
     TextBox1.Text = 0 
    Else 
     TextBox1.Text = 0 
    End If 
End Sub 

Ist es möglich, alle Kontrollkästchen in einem Array zu gruppieren? Dann werde ich zählen, wenn mehr als 2 CheckBoxes überprüft werden, und etwas tun.

Answer 1

Das Problem ist Ihre Bestellung. In diesem Fall:

If CheckBox1.Checked And CheckBox2.Checked Then 
    TextBox1.Text = 1 
ElseIf CheckBox1.Checked And CheckBox2.Checked And Checkbox3.Checked Then 
    TextBox1.Text = 0 
Else 
    TextBox1.Text = 0 
End If 

Die zweite Bedingung wird nie da getestet werden, denn es True, die erste Bedingung True sein sein und hat bereits abgestimmt. Sie müssen die ersten beiden Bedingungen tauschen:

If CheckBox1.Checked And CheckBox2.Checked And Checkbox3.Checked Then 
    TextBox1.Text = "0" 
ElseIf CheckBox1.Checked And CheckBox2.Checked Then 
    TextBox1.Text = "1" 
Else 
    TextBox1.Text = "0" 
End If 

Sie AndAlso statt And zu verwenden sollten.

Answer 2

Ist es möglich, alle Kontrollkästchen in einem Array zu gruppieren? Dann werde ich zählen, wenn mehr als 2 CheckBoxes überprüft werden, und etwas tun.

Machen ein-Handler, der ausgelöst wird für alle drei Kontrollkästchen, indem jeder eine nach der „Handles“ Stichwort Auflistung (nach rechts scrollen das Ende der ersten Zeile zu sehen):

Private Sub CheckBoxes_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged 

End Sub 

Jetzt zählen, wie viele der Kontrollkästchen aktiviert sind und entsprechend handeln:

Private Sub CheckBoxes_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged 
    Dim CheckCount As Integer 
    Dim CheckBoxes() As CheckBox = {CheckBox1, CheckBox2, CheckBox3} 
    For Each CB As CheckBox In CheckBoxes 
     If CB.Checked Then 
      CheckCount = CheckCount + 1 
     End If 
    Next 
    TextBox1.Text = If(CheckCount >= 2, 1, 0) 
End Sub