Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Text
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.IO
Imports System.Globalization
Imports System.Threading
Imports Microsoft.VisualBasic
Namespace CustomServerControls
    <DefaultProperty("Text")> _
    <ToolboxData("<{0}:TextArea runat=server></{0}:TextArea>")> _
    Public Class TextArea
        Inherits TextBox
        Public Overloads Overrides Property TextMode() As TextBoxMode
            Get
                Return TextBoxMode.MultiLine
            End Get
            Set(ByVal value As TextBoxMode)

            End Set
        End Property

        
        Protected Overloads Overrides Sub OnPreRender(ByVal e As EventArgs)
            If MaxLength > 0 Then
                If Not Page.ClientScript.IsClientScriptIncludeRegistered("TextArea") Then
                    Page.ClientScript.RegisterClientScriptInclude("TextArea", ResolveClientUrl("~/textarea.js"))
                End If
                Me.Attributes.Add("onkeypress", "LimitInput(this)")
                Me.Attributes.Add("onbeforepaste", "doBeforePaste(this)")
                Me.Attributes.Add("onpaste", "doPaste(this)")
                Me.Attributes.Add("onmousemove", "LimitInput(this)")
                Me.Attributes.Add("maxLength", Me.MaxLength.ToString())
            End If
            MyBase.OnPreRender(e)
        End Sub
    End Class
End Namespace