|
Option Strict On
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Security.Permissions
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Namespace AspNet.VB.Controls
<DefaultProperty("Text"), ToolboxData("<{0}:TextBoxReq runat=server></{0}:TextBoxReq>")> _
Public Class TextBoxRequired
Inherits CompositeControl
Private ctrlTextBox As TextBox
Private ctrlRequired As RequiredFieldValidator
Private ctrlID As String
<Category("Appearance"), DefaultValue("*"), Description("The Error Message")> _
Public Property ErrorMessage() As String
Get
EnsureChildControls()
Return ctrlRequired.ErrorMessage
End Get
Set(ByVal value As String)
EnsureChildControls()
ctrlRequired.ErrorMessage = value
End Set
End Property
<Category("Appearance"), Bindable(True)> _
Public Property Text() As String
Get
EnsureChildControls()
Return ctrlTextBox.Text
End Get
Set(ByVal value As String)
EnsureChildControls()
ctrlTextBox.Text = value
End Set
End Property
<Category("Default")> _
Public Overrides Property ID() As String
Get
Return ctrlID
End Get
Set(ByVal value As String)
ctrlID = value
End Set
End Property
<Category("Default")> _
Public Overrides Property Width() As System.Web.UI.WebControls.Unit
Get
Return ctrlTextBox.Width
End Get
Set(ByVal value As System.Web.UI.WebControls.Unit)
ctrlTextBox.Width = value
End Set
End Property
<Category("Default")> _
Public Property TextMode() As TextBoxMode
Get
Return ctrlTextBox.TextMode
End Get
Set(ByVal value As TextBoxMode)
ctrlTextBox.TextMode = value
End Set
End Property
<Category("Default")> _
Public Property Rows() As Integer
Get
Return ctrlTextBox.Rows
End Get
Set(ByVal value As Integer)
ctrlTextBox.Rows = value
End Set
End Property
Protected Overrides Sub CreateChildControls()
Controls.Clear()
ctrlTextBox = New TextBox
ctrlTextBox.ID = ID
ctrlTextBox.ValidationGroup = "dynControl"
ctrlRequired = New RequiredFieldValidator
ctrlRequired.ID = "Validator1"
ctrlRequired.Font.Bold = True
ctrlRequired.Font.Size = FontUnit.Large
ctrlRequired.ControlToValidate = ctrlTextBox.ID
ctrlRequired.Text = ""
ctrlRequired.Display = ValidatorDisplay.Dynamic
ctrlRequired.ValidationGroup = "dynControl"
Me.Controls.Add(ctrlTextBox)
Me.Controls.Add(ctrlRequired)
End Sub
Protected Overrides Sub RecreateChildControls()
EnsureChildControls()
End Sub
End Class
End Namespace |