Question

VB.NET checkbox问题

VB.NET中使用checkbox控件，希望把选中的都添加到listbox2里面

If CheckBox1.Checked Then
ListBox2.Items.Add(CheckBox1.Text)
End If
If CheckBox2.Checked Then
ListBox2.Items.Add(CheckBox2.Text)
End If
If CheckBox3.Checked Then
ListBox2.Items.Add(CheckBox3.Text)
但如果有很多个checkbox怎么办呢？要一条一条输入么？

Answer 1

历遍所有控件，通过GetType函数获取类型声明来判定是不是CheckBox控件，如果是就通过CType来转换成CheckBox类型进行处理。

Dim tp As Type = GetType(CheckBox)
Dim ck As CheckBox
For Each ctr As Control In Me.Controls
    If ctr.GetType Is tp Then
        ck = CType(ctr, CheckBox)
        If ck.Checked Then ListBox2.Items.Add(ck.Text)
    End If
Next

Answer 2

楼上的方法不错，学习了。