vb.net中如何实现checkbox的全选?

参考方法如下：
$("input[type='checkbox']")attr("checked",true);
用js这样就行了，如果用C#，参考如下：
foreach (Control item in thisControls)
{
if (item is CheckBox)
{
CheckBox box = (CheckBox)item;
boxChecked = true;
}
}

根据楼上的思路，我推荐一种正好符合楼主需求的方案。（可以无限增加控件）
使用Select Case 的方法。函数详细说明请查询百度。这里直接贴了。
首先，建议将CheckBox和TextBox分别做成一个控件组。（先创建一个CheckBox，然后复制，系统会询问是否创建，点击是。你会看到CheckBox的名字变成CheckBox1(0)和CheckBox1(1)，此时目标达成，TextBox也是同理，注意位置摆放的配对，控件摆放根据括号里的数字，一样的组成一对。）
Private Sub Check1_Click(Index As Integer)
Dim a As Integer
a = Check1(Index)Value‘获得被点击CheckBox1的返回值
If a = 1 Then’勾选
Select Case Index
Case 1‘数字代表括号里的数值
Text1(Index)Text = "选中"
Case 2
。。。
Case 3
。。。
无限添加
End Select
ElseIf a=0 Then
Text1(Index)Text = "未选中"
End If

comboBox
　在VB中，Combo
Box(组合框)控件很简单，可以节省空间。从用户角度来看，这个控件是由一个文本输入控件和一个下拉菜单组成的。用户可以从一个预先定义的列表里选择一个选项，同时也可以直接在文本框里面输入文本。
利用函数
AddString（）向
Combo
Box
控件添加Items

是这样
IF CHECK1VALUE=1 THEN
optionbutton = 1
ELSE
optionbuttonvalve=2
END IF
还是？
IF CHECK1VALUE = 1 THEN
optionbuttonVALVE=1
ELSE
optionbutton=2
END IF

为了简化代码，提高效率，最好把checkbox设为控件数组。下面以此为例，代码如下，运行即可。
Option Explicit
Dim IsBusy As Boolean
Private Sub Check1_Click(Index As Integer)
If Check1(Index)Value = 0 Or IsBusy Then Exit Sub
Dim i As Integer
IsBusy = True
For i = 0 To Check1UBound
If i <> Index Then Check1(i)Value = 0
Next
IsBusy = False
End Sub
源码实例下载地址：>