将CheckBox设置为未选中 [英] Set the CheckBox to Unchecked

问题描述

我的Form1有10个以上的复选框



如何将所有复选框设置为未选中

My Form1 have above 10 Checkbox

how can I set the all checkbox to Unchecked

Dim xControl As Control
For Each xControl In me.Controls

   If TypeOf xControl Is TextBox Then
      xControl.ResetText()
   End If

   If TypeOf xControl Is CheckBox Then
      DirectCast(xControl , CheckBox).CheckState = CheckState.Unchecked
   End If

   If TypeOf xControl Is RadioButton Then
      DirectCast(xControl , RadioButton).Checked = False
   End If

   If TypeOf xControl Is ComboBox Then
      xControl.ResetText()
   End If

Next

这是我最后的接受解决方案

That is my last Accept Solution

推荐答案

这样的事情会这样做

Something like this would do it

For Each Control In Me.Controls
    If TypeOf (Control) Is CheckBox Then
        Dim work As CheckBox = Control
        work.Checked = False
    End If
Next

查看此信息： http：//www.vbforums。 com / showthread.php？649278-Uncheck-all-CheckBoxes [ ^ ]

Dim xCheckBox As Control
For Each xCheckBox In Me.Controls
   If TypeOf xCheckBox Is CheckBox Then
      Dim work As CheckBox = CType(xCheckBox , CheckBox)
      work.Checked = False
   End If
Next

这篇关于将CheckBox设置为未选中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！