עזרה בכתיבת ולידטור ל CheckBoxList ב ASP.NET 1.1

Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls

Public Class CheckBoxListValidator
Inherits BaseValidator
Enum ValidationLogicOptions
Exacty
Upto
End Enum
Dim _ValidationLogic As ValidationLogicOptions
Dim _ItemsToSelect As Integer

Public Property ItemsToSelect() As Integer
Get
Return _ItemsToSelect
End Get
Set(ByVal Value As Integer)
_ItemsToSelect = Value
End Set
End Property

Public Property ValidationLogic() As ValidationLogicOptions
Get
Return _ValidationLogic
End Get
Set(ByVal Value As ValidationLogicOptions)
_ValidationLogic = Value
End Set
End Property
Protected Overrides Function EvaluateIsValid() As Boolean

Dim chkList As CheckBoxList = Me.FindControl(Me.ControlToValidate)
Dim count As Integer = 0
Dim Valid As Boolean = False
For Each chk As CheckBox In chkList.Items
If chk.Checked = True Then
If count >= 0 And count <= _ItemsToSelect Then
count = count + 1
End If
End If
Next
Select Case _ValidationLogic
Case ValidationLogicOptions.Exacty
If count = _ItemsToSelect Then
Valid = True
Else
Valid = False
End If

Case ValidationLogicOptions.Upto
If count <= _ItemsToSelect Then
Valid = True
Else
Valid = False
End If
End Select

Return Valid

End Function

End Class