Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
下载信息 [文件大小: 下载次数: ] | |
![]() |
呵呵,任意多个也没有这么复杂吧。
Dim s As String
For Each x As WinForm.Control In e.Form.Controls
If Typeof x Is WinForm.CheckBox Then
Dim c As WinForm.CheckBox = x
If c.Checked = True
s = s & " " & c.text
End If
End If
Next
If s = "" Then
MessageBox.Show("你没有做出选择")
Else
MessageBox.Show("你选择了 " & s)
End If
老大
全选和全反选如何实现? |
For Each x As WinForm.Control In e.Form.Controls
If Typeof x Is WinForm.CheckBox Then
Dim c As WinForm.CheckBox = x
c.Checked = True
End If
Next
For Each x As WinForm.Control In e.Form.Controls
If Typeof x Is WinForm.CheckBox Then
Dim c As WinForm.CheckBox = x
c.Checked = False
End If
Next