<abc:DataTypeValidator runat="server" ControlToValidate="uxFirstNameTextBox" Type="Date" Entity="Start Date" ValidationGroup="MainValidationGroup" />
Imports Microsoft.VisualBasic Imports System.Web.UI.WebControls Namespace AcmeBroomCompany Public Class DataTypeValidator Inherits System.Web.UI.WebControls.CompareValidator Private _entity As String Public Sub New() Display = ValidatorDisplay.Dynamic EnableClientScript = True SetFocusOnError = True Text = "" [Operator] = ValidationCompareOperator.DataTypeCheck Dim img As Image = New Image() img.ImageUrl = "~/images/Exclamation.png" Me.Controls.Add(img) _entity = "" End Sub Public Property Entity() As String Get Return _entity End Get Set(ByVal value As String) _entity = value If Me.Type = ValidationDataType.String Then Me.ErrorMessage = "<span style='font-size:12pt;font-weight:bold;'>" & _ "DEVELOPER: Set the Entity property AFTER the Type property " & _ "for " & _entity & "</span>" Else Me.ErrorMessage = _entity & " must be a valid " & Me.Type.ToString() End If End Set End Property End Class End Namespace
TODO