Imports System.ComponentModel.DataAnnotations
Imports System.Web.DynamicData
Imports System.Web

Class Integer_EditField
    Inherits FieldTemplateUserControl

        
        Public Overrides ReadOnly Property DataControl As Control
            Get
                Return TextBox1
            End Get
        End Property
        
        Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
            TextBox1.ToolTip = Column.Description
            SetUpValidator(RequiredFieldValidator1)
            SetUpValidator(CompareValidator1)
            SetUpValidator(RegularExpressionValidator1)
            SetUpValidator(RangeValidator1)
            SetUpValidator(DynamicValidator1)
        End Sub
        
        Protected Overrides Sub ExtractValues(ByVal dictionary As IOrderedDictionary)
            dictionary(Column.Name) = ConvertEditedValue(TextBox1.Text)
        End Sub
    
    
End Class
