一键勾选复选框

Question

我的表单中有 8 个复选框和一个按钮，我需要的是：

对于每个按钮单击，我希望一个一个地检查每个复选框。 例如：

first click 

checkbox1.checked = true
checkbox2.checked = false
checkbox3.checked = false
checkbox4.checked = false

第二次点击

checkbox1.checked = true
checkbox2.checked = true
checkbox3.checked = false
checkbox4.checked = false

第三次点击

checkbox1.checked = true
checkbox2.checked = true
checkbox3.checked = true
checkbox4.checked = false

如果可能的话，有人可以帮助我吗？提前致谢

Answer 1

好吧，因为当我读到这篇文章时，我很好奇自己如何做到这一点，所以我想出了这个：

注意：这可能不是最好的方法，但它确实有效。

注意：你想要完成的事情很奇怪，但是关于如何做到这一点的逻辑，我假设你可以自己做。

代码：

public sub fun()
dim doOnce as Boolean = False

'Loop Through all Controls in the Form    
For Each control in Mybase.Controls

'Check if the type of control is a CheckBox
    If control.GetType.Tostring = "System.Windows.Forms.CheckBox" Then
        If doOnce = False Then
            If control.Checked = false Then
                control.Checked = True
                doOnce = true
            else
                control.Checked = False
            End if
        End If
    End If
Next

end sub

希望这对您有所帮助。 虽然我不得不说这个想法不会让你学到很多东西，除了如何指向一些控件（也许我什至没有向你展示最好的方法）。

编辑： 正如我刚刚注意到的那样，这不会从“CheckBox1”变为“CheckBox4”（例如）。它完全相反地移动。为什么会这样，我不确定。