winfrom的textbox 实现验证功能

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

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

 

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

 

vb.net

 

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

错的文章大家可以去看看

属性弹出窗体代码：

'ShowValidateForm.vb

Imports System Imports System.ComponentModel Imports System.Drawing.Design Imports System.Windows.Forms Imports System.Windows.Forms.Design ''' <summary> ''' 属性框弹出 ''' </summary> ''' <remarks></remarks> Public Class ShowValidateForm Inherits UITypeEditor Public Overrides Function GetEditStyle(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.Drawing.Design.UITypeEditorEditStyle If context IsNot Nothing And context.Instance IsNot Nothing Then Return UITypeEditorEditStyle.Modal End If Return MyBase.GetEditStyle(context) End Function Public Overrides Function EditValue(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal provider As System.IServiceProvider, ByVal value As Object) As Object Dim EditorService As IWindowsFormsEditorService = Nothing If context IsNot Nothing And context.Instance IsNot Nothing And provider IsNot Nothing Then EditorService = CType(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService) If EditorService IsNot Nothing Then Dim valitextbox As ValidateTextbox = context.Instance Dim express As New Expression(valitextbox) 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 System.Text.RegularExpressions Imports System.Windows.Forms.Design Imports System.Windows.Forms Imports System.Drawing.Design Public Class Expression Dim ValidateHashTable As Hashtable Dim validata As ValidateTextbox Private _NewExpression As ValidateTextbox Sub New() ' This call is required by the Windows Form Designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. validata = New ValidateTextbox() ValidateHashTable = New Hashtable() '初始化hashtalb InilizeHashTalbe() End Sub Public Sub New(ByVal _expressClass As ValidateTextbox) 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 = Nothing 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-Za-z]+$") ValidateHashTable.Add("由26个英文字母的大写组成的字符串", "^[A-Z]+$") ValidateHashTable.Add("由26个英文字母的小写组成的字符串", "^[a-z]+$") ValidateHashTable.Add("由数字和26个英文字母组成的字符串", "^[A-Za-z0-9]+$") ValidateHashTable.Add("由数字、26个英文字母或者下划线组成的字符串", "^/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]).(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_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbNavigation.SelectedIndexChanged UserKey = Me.lbNavigation.SelectedItem Me.txtExpression.Text = ValidateHashTable.Item(Me.lbNavigation.SelectedItem) End Sub Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.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 System.Object, ByVal e As System.EventArgs) Handles btcancel.Click Me.DialogResult = Windows.Forms.DialogResult.OK End Sub Private Sub Expression_Load(ByVal sender As System.Object, ByVal e As System.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 System.ComponentModel Imports System.Drawing.Design Imports System.Windows.Forms Imports System.ComponentModel.Design Imports System.Text.RegularExpressions Imports System.Windows.Forms.Design Public Class ValidateTextbox Sub New() ' This call is required 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 <Browsable(False)> _ Public Property Expression() As String Get Return _Expression End Get Set(ByVal value As String) _Expression = value End Set End Property Private Sub ValidateTextbox_Validated(ByVal sender As System.Object, ByVal e As System.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