Question

VB.net checkbox 属性批量修改问题

一个选择题界面，需要学生打钩，点击新建之后卷面还原题不变以让下个学生继续做题，请问如何实现CHECKbox.checked属性的批量修改？在线等。

Private Sub 新建NToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建NToolStripMenuItem.Click
Dim i As Integer
Dim a As Control

If TypeOf a Is CheckBox Then
For i = 1 To 42
Me.Controls.check = False
Next
End If
End Sub

Answer 1

Dim i As Integer

For i = 1 To 5

If CType(Me.Controls("CheckBox" & i), CheckBox).Checked = True Then
CType(Me.Controls("CheckBox" & i), CheckBox).Checked = False
Else
CType(Me.Controls("CheckBox" & i), CheckBox).Checked = True
End If

Next

Answer 2

For i = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(i) Is CheckBox Then Me.Controls(i).Checked = False
Next

追问

我也尝试过这样设置，但是提示：错误 1 “Checked”不是“System.Windows.Forms.Control”的成员。 C:\Documents and Settings\amchen\my documents\visual studio 2010\Projects\PM Manage System\PM Manage System\Weekly_PM.vb 77 59 PM Manage System

追答

Me.Controls(i).Checked = False
改成
Me.Controls(i).Value = 0

Answer 3

For i = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(i) Is CheckBox Then
Dim a As Checkbox = Me.Controls(i)
a.checked = True
End Sub
Next

追问

我更改为：
Dim i As Integer

For i = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(i) Is CheckBox Then
Dim a As CheckBox = Me.Controls(i)
a.Checked = False
End If
Next
End Sub
但是点击新建后还是不能去掉已经有的对号。

追答

嗯，把If打成Sub了
话说我这边没有问题，看看你是不是哪里别的地方写错了

Answer 4

void ClearAllCheckbox(){
dim control as Control
foreach control in Controls
if (control is CheckBox) then ((CheckBox)control).Checked=false
next
}

追问

能给一个VB的吗C不是很熟悉。。。。。

追答

笨啊
void 换成 sub
{
}去掉
在}的位置写 end sub
没看中间的代码是VB么，写得快，前后没有换，

QQ：254186917
群1：14895358
群2：112481823