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

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

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

注意：你想要完成的是非常奇怪的，但是如何做到这一点的逻辑，你可以自己做，我认为。

CODE：

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'（例如）。它完全相反。为什么会这样，我不确定。

用一个按钮逐个检查复选框

1 个答案: