标签：Me 控件 End String 自定义 ByVal 文本框 Text Property
最近在整理我写的几个服务器控件，发出来与大家共享吧。
我写的自定义服务器控件呢分为两个类，
一是“简单继承”控件，就是继承框架里的控件然后加点属性了、事件了什么的。
二是“功能”控件，简单的说那是符合控件，但是呢是以实现一种功能为目的地。这种控件要实现某一种功能，比如分页的功能，添加、修改数据的功能，查询的功能。
原先呢还不会使用接口了什么的，所以呢代码写得有点不太“好看”，现在使用接口、继承了什么的来整理一下。
先发一个“文本框”的吧，就是继承系统的 TextBox，然后加上几个属性、方法。
属性：
TextTrim 返回.Text.Trim()
TextTrimNone 返回 .Text.Trim.Replace("'", "")
CheckDataType 设置 文本框的验证类型。
CheckDataReg 设置 文本框的验证用的正则表达式。
CheckErrorMessage 设置 当没有通过验证时显示给客户的提示信息。
属性（接口）：
ControlKind 返回控件的类型。
函数（接口）：
GetValue() 获取文本框的值，默认返回 TextTrim
GetValue(ByVal kind As String) 根据 kind 获取对应的文本框的值。
SetValue(ByVal value As String) 给文本框赋值
SetValue(ByVal value As String, ByVal kind As String)给文本框赋值
取值和赋值为什么会有两套呢？那是为了和其他控件兼容，说到后面就好理解了。
定义接口。
Public Interface IGetControlValueInterface IGetControlValue ReadOnly Property ControlKind()Property ControlKind() As String Function GetControlValue()Function GetControlValue() As String Function GetControlValue()Function GetControlValue(ByVal kind As String) As String Sub SetControlValue()Sub SetControlValue(ByVal value As String) Sub SetControlValue()Sub SetControlValue(ByVal value As String, ByVal kind As String)End Interface
文本框的代码。
Imports System.ComponentModelImports System.Web.UIImports HBS<DefaultProperty("Text"), ToolboxData("")> _ Public Class HBSTextBoxClass HBSTextBox Inherits System.Web.UI.WebControls.TextBox Implements INamingContainer Implements IGetControlValue Dim _dataType As String = "101" '数据类型实现接口#Region "实现接口" <Bindable(True), Category("默认值"), DefaultValue("201"), Description("获取控件类别")> _ ReadOnly Property ControlKind()Property ControlKind() As String Implements IGetControlValue.ControlKind Get Return "201" End Get End Property Public Function GetValue()Function GetValue() As String Implements IGetControlValue.GetControlValue Return Me.TextTrimNone End Function Public Function GetValue()Function GetValue(ByVal kind As String) As String Implements IGetControlValue.GetControlValue Return Me.TextTrimNone End Function Public Sub SetValue()Sub SetValue(ByVal value As String) Implements IGetControlValue.SetControlValue Me.Text = value End Sub Public Sub SetValue()Sub SetValue(ByVal value As String, ByVal kind As String) Implements IGetControlValue.SetControlValue Me.Text = value End Sub#End Region设置文本框的 Text 属性；获取 Text.Trim()#Region "设置文本框的 Text 属性；获取 Text.Trim()" <Bindable(True), Category("文本值"), Description("设置文本框的 Text 属性；返回 Text.Trim()。")> _ Property TextTrim()Property TextTrim() As String Set(ByVal Value As String) Me.Text = Value End Set Get Return Me.Text.Trim() End Get End Property#End Region设置文本框的 Text 属性；获取 Text.Trim()#Region "设置文本框的 Text 属性；获取 Text.Trim()" <Bindable(True), Category("文本值"), Description("设置文本框的 Text 属性；返回 Text.Trim()。")> _ Property TextTrimNone()Property TextTrimNone() As String Set(ByVal Value As String) Me.Text = Value End Set Get Return Me.Text.Trim.Replace("'", "") End Get End Property#End Region验证类型#Region "验证类型" <Category("数据验证"), Description("验证输入的内容，需要js脚本配合。"), DefaultValue("101")> _ Property CheckDataType()Property CheckDataType() As String Set(ByVal Value As String) _dataType = Value '101 b不验证 '102 z自然数 '103 z整数 '104 x小数 '105 r日期 '106 b必填 Select Case Value Case "101" '不验证 'this.Attributes.Add("DataType",""); Case "102" '自然数 Me.Attributes.Add("check", "^[0-9]+$") Case "103" '整数 Me.Attributes.Add("check", "^\S?([0-9]+)$") Case "104" '小数 [0-9]{1,5}\.[0-9]{1,2} ^-?([0]$|^([0-9]{1,5}\.[0-9]{1,2})?$ Me.Attributes.Add("check", "^\S(\-?[0-9]*(\.[0-9]*)?)$") 'Me.Attributes.Add("check", "^d") Case "105" '时间 Me.Attributes.Add("check", "^d{4}-d{1,2}-d{1,2}") Case "106" '必填项 Me.Attributes.Add("check", ".+") End Select End Set Get If _dataType Is Nothing Then Return "" End If Return _dataType End Get End Property <Category("数据验证"), Description("验证输入的内容，传入正则表达式。"), DefaultValue("0")> _ Property CheckDataReg()Property CheckDataReg() As String Set(ByVal Value As String) Me.Attributes.Add("check", Value) End Set Get If Me.Attributes.Item("check") Is Nothing Then Return "" End If Return Me.Attributes.Item("check").ToString() End Get End Property#End Region验证错误的提示信息#Region "验证错误的提示信息" <Description("验证错误提示信息")> _ Property CheckErrorMessage()Property CheckErrorMessage() As String '添加提示信息 Set(ByVal Value As String) ViewState("msg") = Value Me.Attributes.Add("warning", Value) End Set Get If (ViewState("msg") Is Nothing) Then Return "" Else Return ViewState("msg").ToString() End If End Get End Property#End Region Protected Overrides Sub OnInit()Sub OnInit(ByVal e As EventArgs) If Not Me.CssClass Is Nothing Then Me.CssClass = "txts" Me.Attributes.Add("DataID", "") Me.Attributes.Add("DataIDs", "") End If End SubEnd Class
FAQ：
1、文本框的验证是如何实现的？
使用正则表达式来验证，在具体点说呢就是使用了一个不知道是谁写一个js函数，就是 checkForm(oForm) 来验证的。
http://www.cnblogs.com/jyk/archive/2007/09/20/899406.html 这里有具体的说明。
2、为什么使用VB.net来写？
很简单，好写。用VB.net写代码还是很方便的，也是很宽松的。好多在C#里不能通过编译的代码，在VB.net里面就可以正常使用，而且提示也是很“智能”的，当初刚写控件的时候还是不太熟悉，VB.net是很好的选择。
以后会陆续说明其他的控件。
标签：Me,控件,End,String,自定义,ByVal,文本框,Text,Property 来源： https://blog.51cto.com/u_15179455/2729605
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。