level 3
Private list As New List(Of CheckBox)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
list.Add(Me.CheckBox1)
list.Add(Me.CheckBox2)
list.Add(Me.CheckBox3)
list.Add(Me.CheckBox4)
End Sub
Private Sub CheckBox1_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
CheckBox1.CheckStateChanged, CheckBox2.CheckStateChanged, CheckBox3.CheckStateChanged, CheckBox4.CheckStateChanged
Dim obj As CheckBox = CType(sender, CheckBox)
If obj.CheckState = CheckState.Checked Then
list.Remove(obj)
Else
list.Add(obj)
End If
If list.Count <= 2 Then
list(0).Enabled = False
list(1).Enabled = False
Else
For Each chebox As CheckBox In list
chebox.Enabled = True
Next
End If
End Sub
很笨的办法,希望对你有帮助~
2013年05月14日 12点05分