winfrom的textbox 实现验证功能

　　　如果用过vs写web from 的人可能会用过vs里面验证控件，vs验证用起来真是太方便了。自己再也不用再一堆javascript脚本了，不过如果有一些特殊的验证还是要自己写的，学好正则表达是还是非常有必要的。

　　　自己一直在学习winfrom ，所以想实现　textBox 的验证功能，效果如下图：

没有考虑得那么的全面，有一些地方可能不那么的心人意。如果大家有兴趣的话也可以修改。

vb.net

如果大家想了解.net 里面的组件的一些基本的知识http://www.cnblogs.com/guanjinke/　定了好几篇不

错的文章大家可以去看看

属性弹出窗体代码：

'ShowValidateForm.vb

Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a> Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.ComponentModel Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Drawing.Design Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Windows.Forms Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Windows.Forms.Design ''' <summary> ''' <a href="https://www.jb51.cc/tag/shuxing/" target="_blank" class="keywords">属性</a>框弹出 ''' </summary> ''' <remarks></remarks> Public Class ShowValidateForm Inherits UITypeEditor Public Overrides Function GetEditStyle(ByVal context As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.ComponentModel.ITypeDescriptorContext) As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Drawing.Design.UITypeEditorEditStyle If context IsNot <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> And context.Instance IsNot <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Then Return UITypeEditorEditStyle.Modal End If Return MyBase.GetEditStyle(context) End Function Public Overrides Function EditValue(ByVal context As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.ComponentModel.ITypeDescriptorContext,ByVal provider As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.IServiceProvider,ByVal value As Object) As Object Dim EditorService As IWindowsFormsEditorService = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> If context IsNot <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> And context.Instance IsNot <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> And provider IsNot <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Then EditorService = CType(provider.GetService(GetType(IWindowsFormsEditorService)),IWindowsFormsEditorService) If EditorService IsNot <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Then Dim valitext<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> As ValidateText<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> = context.Instance Dim express As New Expression(valitext<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>) If express.ShowDialog = DialogResult.OK Then value = express.Expression Return value End If End If End If Return value End Function End Class

验证窗体的代码：

Expression.vb

Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Text.RegularExpressions Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Windows.Forms.Design Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Windows.Forms Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Drawing.Design Public Class Expression Dim ValidateHashTable As Hashtable Dim validata As ValidateText<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> Private _NewExpression As ValidateText<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> Sub New() ' This call is <a href="https://www.jb51.cc/tag/required/" target="_blank" class="keywords">required</a> by the Windows Form Designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. validata = New ValidateText<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>() ValidateHashTable = New Hashtable() '初始化hashtalb InilizeHashTalbe() End Sub Public Sub New(ByVal _expressClass As ValidateText<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>) InitializeComponent() _NewExpression = _expressClass End Sub Private _Expression As String = "" Public Property Expression() As String Get Return _Expression End Get Set(ByVal value As String) _Expression = value End Set End Property Dim UserKey As String = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Sub InilizeHashTalbe() ValidateHashTable.Add("非负整数","^d+$") ValidateHashTable.Add("正整数","^[0-9]*[1-9][0-9]*$") ValidateHashTable.Add("非正整数(负整数 + 0)","^((-/d+)|(0+))$") ValidateHashTable.Add("负整数","^-[0-9]*[1-9][0-9]*$") ValidateHashTable.Add("整数","^-?/d+$") ValidateHashTable.Add("非负浮点数(正浮点数 + 0)","^/d+(/./d+)?$") ValidateHashTable.Add("正浮点数","^(([0-9]+/.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*/.[0-9]+)|([0-9]*[1-9][0-9]*))$") ValidateHashTable.Add("非正浮点数(负浮点数 + 0)","^((-/d+(/./d+)?)|(0+(/.0+)?))$") ValidateHashTable.Add("负浮点数","^(-(([0-9]+/.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*/.[0-9]+)|([0-9]*[1-9][0-9]*)))$") ValidateHashTable.Add("浮点数","^(-?/d+)(/./d+)?$") ValidateHashTable.Add("由26个<a href="https://www.jb51.cc/tag/yingwenzimu/" target="_blank" class="keywords">英文字母</a>组成的字符串","^[A-Za-z]+$") ValidateHashTable.Add("由26个<a href="https://www.jb51.cc/tag/yingwenzimu/" target="_blank" class="keywords">英文字母</a>的大写组成的字符串","^[A-Z]+$") ValidateHashTable.Add("由26个<a href="https://www.jb51.cc/tag/yingwenzimu/" target="_blank" class="keywords">英文字母</a>的小写组成的字符串","^[a-z]+$") ValidateHashTable.Add("由数字和26个<a href="https://www.jb51.cc/tag/yingwenzimu/" target="_blank" class="keywords">英文字母</a>组成的字符串","^[A-Za-z0-9]+$") ValidateHashTable.Add("由数字、26个<a href="https://www.jb51.cc/tag/yingwenzimu/" target="_blank" class="keywords">英文字母</a>或者下划线组成的字符串","^/w+$") ValidateHashTable.Add("Email地址","^[/w-]+(/.[/w-]+)*@[/w-]+(/.[/w-]+)+$") ValidateHashTable.Add("年-月-日","/^(d{2}|d{4})-((0([1-9]{1}))|(1[1|2]))-(([0-2]([1-9]{1}))|(3[0|1]))$/") ValidateHashTable.Add("月/日/年","/^((0([1-9]{1}))|(1[1|2]))/(([0-2]([1-9]{1}))|(3[0|1]))/(d{2}|d{4})$/") ValidateHashTable.Add("电话号码","(d+-)?(d{4}-?d{7}|d{3}-?d{8}|^d{7,8})(-d+)?") ValidateHashTable.Add("IP地址","^(d{1,2}|1dd|2[0-4]d|25[0-5]).(d{1,2}|1dd|2[0-4]d|25[0-5])$") ValidateHashTable.Add("验证身份证号(15位或18位数字)","^/d{15}|/d{18}$") ValidateHashTable.Add("只能输入汉字","^[/u4e00-/u9fa5]{0,}$") End Sub Private Sub lbNavigation_Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>exChanged(ByVal sender As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Object,ByVal e As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.EventArgs) Handles lbNavigation.Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>exChanged UserKey = Me.lbNavigation.SelectedItem Me.txtExpression.Text = ValidateHashTable.Item(Me.lbNavigation.SelectedItem) End Sub Private Sub btnok_Click(ByVal sender As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Object,ByVal e As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.EventArgs) Handles btnok.Click Expression = UserKey _NewExpression.Expression = Me.txtExpression.Text Me.DialogResult = Windows.Forms.DialogResult.OK End Sub Private Sub btcancel_Click(ByVal sender As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Object,ByVal e As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.EventArgs) Handles btcancel.Click Me.DialogResult = Windows.Forms.DialogResult.OK End Sub Private Sub Expression_Load(ByVal sender As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Object,ByVal e As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.EventArgs) Handles MyBase.Load ValidateHashTable = New Hashtable() '初始化hashtalb InilizeHashTalbe() Try Me.txtExpression.Text = ValidateHashTable.Item(_NewExpression.CustomerExpresson) Me.lbNavigation.SelectedItem = _NewExpression.CustomerExpresson Catch ex As Exception End Try End Sub End Class

重写textBox让它支持验证功能：

Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.ComponentModel Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Drawing.Design Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Windows.Forms Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.ComponentModel.Design Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Text.RegularExpressions Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Windows.Forms.Design Public Class ValidateText<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> Sub New() ' This call is <a href="https://www.jb51.cc/tag/required/" target="_blank" class="keywords">required</a> by the Windows Form Designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. End Sub Private _CustomerExpression As String <Editor(GetType(ShowValidateForm),GetType(UITypeEditor))> _ Public Property CustomerExpresson() As String Get Return _CustomerExpression End Get Set(ByVal value As String) _CustomerExpression = value End Set End Property Private _Expression As String <<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wsable(False)> _ Public Property Expression() As String Get Return _Expression End Get Set(ByVal value As String) _Expression = value End Set End Property Private Sub ValidateText<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>_Validated(ByVal sender As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Object,ByVal e As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.EventArgs) Handles MyBase.Validated If Expression = "" Then Exit Sub End If If Regex.IsMatch(Me.Text,Expression) Then errorprovider.Clear() Else errorprovider.SetError(Me,"验证出错,你设置的验证是:" & CustomerExpresson) End If End Sub End Class