在网友的建议下,对0.1版作如下调整:
1) 增加常用验证选择功能
目前增加的常用验证还比较少,我会慢慢搜集一些常用的正则表达式增加进去.
2) 增加边框颜色调整功能
普通TextBox的边框颜色只能是黑色,本控件的边框颜色可由用户自己定义
自定义控件完整代码如下:
1
#Region " 程序描述 和 变更历史记录 "
2
' --------------------------------------------------------------------
3'作者: hudan
4'网址: http://www.cnblogs.com/hudan/
5'版本: 0.2
6'功能说明:
7' 可以对文本框内容进行验证(通过正则表达式)的TextBox
8'
9'创建日期: 2005-05-01
10'最后修改: 2005-05-05
11
12'变更历史记录
13
14'序号 版本 日期 说明
15'1 0.1 2005-05-01 基本验证功能
16'2 0.2 2005-05-05 增加边框颜色和常用验证功能
17' ---------------------------------------------------------------------
18
#End Region
19
20Option Strict On
21Option Explicit On
22
23#Region "导入命名空间"
24Imports System
25Imports System.Windows.Forms
26Imports System.ComponentModel
27Imports System.Drawing
28#End Region
29
30Public Class HD_TextBox
31 Inherits System.Windows.Forms.TextBox
32
33
#Region " 组件设计器生成的代码 "
34
35 Public Sub New(ByVal Container As System.ComponentModel.IContainer)
36 MyClass.New()
37
38 'Windows.Forms 类撰写设计器支持所必需的
39 Container.Add(Me)
40
41 '初始化
42 'Init()
43 _bConstructed = True
44
45
End Sub
46
47 Public Sub New()
48 MyBase.New()
49
50 '该调用是组件设计器所必需的。
51 InitializeComponent()
52
53 '在 InitializeComponent() 调用之后添加任何初始化
54
55 End Sub
56
57 '组件重写 dispose 以清理组件列表。
58 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
59 If disposing Then
60 If Not (components Is Nothing) Then
61 components.Dispose()
62 End If
63 End If
64 MyBase.Dispose(disposing)
65 End Sub
66
67 '组件设计器所必需的
68 Private components As System.ComponentModel.IContainer
69
70 '注意: 以下过程是组件设计器所必需的
71 '可以使用组件设计器修改此过程。
72 '不要使用代码编辑器修改它。
73 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
74 components = New System.ComponentModel.Container
75 End Sub
76
77#End Region
78
79#Region "成员变量"
80
81 '是否允许空值
82 Private _AllowNull As Boolean = True
83
84 '验证的正则表达式
85 Private _Regex As String = ""
86
87 '非法提示信息
88 Private _ErrorMsg As String = ""
89
90 '错误提示控件
91 Private _ErrorProvider As ErrorProvider
92
93 '边框颜色
94 Private _BoundColor As Color = Color.Transparent
95
96 '边框画笔
97 Private pen_bound As Pen
98
99 '是否运行时实例化
100 Private _bConstructed As Boolean = False
101
102#End Region
103
104#Region "扩展属性"
105
106 <Description("扩展属性:是否允许空值."), Category("HD_TextBox")> _
107 Public Property AllowNull() As Boolean
108 Get
109 Return _AllowNull
110 End Get
111 Set(ByVal Value As Boolean)
112 _AllowNull = Value
113 End Set
114 End Property
115
116 <Description("扩展属性:验证文本的正则表达式."), Category("HD_TextBox")> _
117 Public Property Regex() As String
118 Get
119 Return _Regex
120 End Get
121 Set(ByVal Value As String)
122 _Regex = Value
123 End Set
124 End Property
125
126 <Description("扩展属性:输入非法数据时的错误提示信息."), Category("HD_TextBox")> _
127 Public Property ErrorMsg() As String
128 Get
129 Return _ErrorMsg
130 End Get
131 Set(ByVal Value As String)
132 _ErrorMsg = Value
133 End Set
134 End Property
135
136
137 <Description("扩展属性:边框颜色."), Category("HD_TextBox")> _
138 Public Property BoundColor() As Color
139 Get
140 Return _BoundColor
141 End Get
142 Set(ByVal Value As Color)
143 _BoundColor = Value
144 pen_bound = New Pen(Value, 2)
145 End Set
146 End Property
147
148#End Region
149
150#Region "内置正则表达式"
151
152 Private _comRegex As CommanRegex = CommanRegex.Null
153
154 '内置正则表达式
155 Public Enum CommanRegex
156 Null = 0
157 Email = 1
158 Telephone = 2
159 Mobile = 3
160 End Enum
161
162 Public Property ComRegex() As CommanRegex
163 Get
164 Return _comRegex
165 End Get
166 Set(ByVal Value As CommanRegex)
167 _comRegex = Value
168 End Set
169 End Property
170
171 Private _Regexs() As String = { _
172 "", _
173 "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$", _
174 "^(\(\d{3,5}\)|\d{3,5}-)?\d{6,8}$", _
175 "", _
176 "", _
177 "" _
178 }
179
180 Private _ErrorMsgs() As String = { _
181 "", _
182 "请输入合法的Email地址,例如: iHudan@GMail.com ", _
183 "请输入合法的电话号码,比如 021-12345678", _
184 "", _
185 "", _
186 "" _
187 }
188
189#End Region
190
191 '在控件验证事件中对文本框的内容进行验证
192 Private Sub HD_TextBox_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Validating
193
194 Dim result As Boolean
195 result = ValidateData()
196 ShowErr(result)
197 e.Cancel = result
198 End Sub
199
200 '对文本框的内容进行验证
201 Private Function ValidateData() As Boolean
202
203 Dim content As String = Me.Text
204 If content.Length = 0 Then
205 Return Not _AllowNull
206 Else
207 '不允许空值
208 Dim reg As System.Text.RegularExpressions.Regex
209 Dim tmpRegex As String
210 If _comRegex = CommanRegex.Null Then
211 tmpRegex = _Regex
212 Else
213 tmpRegex = Me._Regexs(_comRegex)
214 End If
215 If reg.IsMatch(content, tmpRegex) = True Then
216 Return False
217 Else
218 Return True
219 End If
220 End If
221 End Function
222
223 '显示错误提示
224 'bShow=true 显示错误提示
225 'bShow=false清楚错误提示
226 Private Sub ShowErr(ByVal bShow As Boolean)
227 If _ErrorProvider Is Nothing Then
228 _ErrorProvider = New ErrorProvider(CType(Me.TopLevelControl, ContainerControl))
229 End If
230 Dim errMsg As String
231 If bShow Then
232 '显示错误提示
233 If _comRegex = CommanRegex.Null Then
234 '用户自定义验证方式
235 errMsg = _ErrorMsg
236 Else
237 '系统内置验证方式
238 errMsg = Me._ErrorMsgs(Me._comRegex)
239 End If
240 Else
241 '清除错误提示
242 errMsg = ""
243 End If
244 _ErrorProvider.SetError(Me, "")
245 _ErrorProvider.SetError(Me, errMsg)
246 End Sub
247
248 '在父窗体中绘画边框
249 Private Sub PaintBound(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
250 Dim g As Graphics
251 g = e.Graphics
252
253 Dim r As Rectangle = Me.Bounds
254 g.DrawRectangle(pen_bound, r)
255 End Sub
256
257 '初始化数据
258 Private Sub Init()
259 '初始化边框画笔
260 pen_bound = New Pen(_BoundColor, 2)
261
262 '添加父窗体的Paint事件
263 If Me.BorderStyle = BorderStyle.None Then
264 AddHandler Me.Parent.Paint, AddressOf PaintBound
265 End If
266
267 End Sub
268
269 'TextBox被创建
270 Private Sub HD_TextBox_HandleCreated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.HandleCreated
271 If _bConstructed = True Then
272 '运行时被创建
273 Init()
274 Else
275 '设计时被创建
276 End If
277 End Sub
278
279End Class
280
#Region " 程序描述 和 变更历史记录 "
2
' --------------------------------------------------------------------
3
'作者: hudan
4
'网址: http://www.cnblogs.com/hudan/
5
'版本: 0.2
6
'功能说明:
7
' 可以对文本框内容进行验证(通过正则表达式)的TextBox
8
'
9
'创建日期: 2005-05-01
10
'最后修改: 2005-05-05
11
12
'变更历史记录
13
14
'序号 版本 日期 说明
15
'1 0.1 2005-05-01 基本验证功能
16
'2 0.2 2005-05-05 增加边框颜色和常用验证功能
17
' ---------------------------------------------------------------------
18
#End Region
19
20
Option Strict On
21
Option Explicit On
22
23
#Region "导入命名空间"
24
Imports System
25
Imports System.Windows.Forms
26
Imports System.ComponentModel
27
Imports System.Drawing
28
#End Region
29
30
Public Class HD_TextBox
31
Inherits System.Windows.Forms.TextBox
32
33
#Region " 组件设计器生成的代码 "
34
35
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
36
MyClass.New()
37
38
'Windows.Forms 类撰写设计器支持所必需的
39
Container.Add(Me)
40
41
'初始化
42
'Init()
43
_bConstructed = True
44
45
End Sub
46
47
Public Sub New()
48
MyBase.New()
49
50
'该调用是组件设计器所必需的。
51
InitializeComponent()
52
53
'在 InitializeComponent() 调用之后添加任何初始化
54
55
End Sub
56
57
'组件重写 dispose 以清理组件列表。
58
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
59
If disposing Then
60
If Not (components Is Nothing) Then
61
components.Dispose()
62
End If
63
End If
64
MyBase.Dispose(disposing)
65
End Sub
66
67
'组件设计器所必需的
68
Private components As System.ComponentModel.IContainer
69
70
'注意: 以下过程是组件设计器所必需的
71
'可以使用组件设计器修改此过程。
72
'不要使用代码编辑器修改它。
73
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
74
components = New System.ComponentModel.Container
75
End Sub
76
77
#End Region
78
79
#Region "成员变量"
80
81
'是否允许空值
82
Private _AllowNull As Boolean = True
83
84
'验证的正则表达式
85
Private _Regex As String = ""
86
87
'非法提示信息
88
Private _ErrorMsg As String = ""
89
90
'错误提示控件
91
Private _ErrorProvider As ErrorProvider
92
93
'边框颜色
94
Private _BoundColor As Color = Color.Transparent
95
96
'边框画笔
97
Private pen_bound As Pen
98
99
'是否运行时实例化
100
Private _bConstructed As Boolean = False
101
102
#End Region
103
104
#Region "扩展属性"
105
106
<Description("扩展属性:是否允许空值."), Category("HD_TextBox")> _
107
Public Property AllowNull() As Boolean
108
Get
109
Return _AllowNull
110
End Get
111
Set(ByVal Value As Boolean)
112
_AllowNull = Value
113
End Set
114
End Property
115
116
<Description("扩展属性:验证文本的正则表达式."), Category("HD_TextBox")> _
117
Public Property Regex() As String
118
Get
119
Return _Regex
120
End Get
121
Set(ByVal Value As String)
122
_Regex = Value
123
End Set
124
End Property
125
126
<Description("扩展属性:输入非法数据时的错误提示信息."), Category("HD_TextBox")> _
127
Public Property ErrorMsg() As String
128
Get
129
Return _ErrorMsg
130
End Get
131
Set(ByVal Value As String)
132
_ErrorMsg = Value
133
End Set
134
End Property
135
136
137
<Description("扩展属性:边框颜色."), Category("HD_TextBox")> _
138
Public Property BoundColor() As Color
139
Get
140
Return _BoundColor
141
End Get
142
Set(ByVal Value As Color)
143
_BoundColor = Value
144
pen_bound = New Pen(Value, 2)
145
End Set
146
End Property
147
148
#End Region
149
150
#Region "内置正则表达式"
151
152
Private _comRegex As CommanRegex = CommanRegex.Null
153
154
'内置正则表达式
155
Public Enum CommanRegex
156
Null = 0
157
Email = 1
158
Telephone = 2
159
Mobile = 3
160
End Enum
161
162
Public Property ComRegex() As CommanRegex
163
Get
164
Return _comRegex
165
End Get
166
Set(ByVal Value As CommanRegex)
167
_comRegex = Value
168
End Set
169
End Property
170
171
Private _Regexs() As String = { _
172
"", _
173
"^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$", _
174
"^(\(\d{3,5}\)|\d{3,5}-)?\d{6,8}$", _
175
"", _
176
"", _
177
"" _
178
}
179
180
Private _ErrorMsgs() As String = { _
181
"", _
182
"请输入合法的Email地址,例如: iHudan@GMail.com ", _
183
"请输入合法的电话号码,比如 021-12345678", _
184
"", _
185
"", _
186
"" _
187
}
188
189
#End Region
190
191
'在控件验证事件中对文本框的内容进行验证
192
Private Sub HD_TextBox_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Validating
193
194
Dim result As Boolean
195
result = ValidateData()
196
ShowErr(result)
197
e.Cancel = result
198
End Sub
199
200
'对文本框的内容进行验证
201
Private Function ValidateData() As Boolean
202
203
Dim content As String = Me.Text
204
If content.Length = 0 Then
205
Return Not _AllowNull
206
Else
207
'不允许空值
208
Dim reg As System.Text.RegularExpressions.Regex
209
Dim tmpRegex As String
210
If _comRegex = CommanRegex.Null Then
211
tmpRegex = _Regex
212
Else
213
tmpRegex = Me._Regexs(_comRegex)
214
End If
215
If reg.IsMatch(content, tmpRegex) = True Then
216
Return False
217
Else
218
Return True
219
End If
220
End If
221
End Function
222
223
'显示错误提示
224
'bShow=true 显示错误提示
225
'bShow=false清楚错误提示
226
Private Sub ShowErr(ByVal bShow As Boolean)
227
If _ErrorProvider Is Nothing Then
228
_ErrorProvider = New ErrorProvider(CType(Me.TopLevelControl, ContainerControl))
229
End If
230
Dim errMsg As String
231
If bShow Then
232
'显示错误提示
233
If _comRegex = CommanRegex.Null Then
234
'用户自定义验证方式
235
errMsg = _ErrorMsg
236
Else
237
'系统内置验证方式
238
errMsg = Me._ErrorMsgs(Me._comRegex)
239
End If
240
Else
241
'清除错误提示
242
errMsg = ""
243
End If
244
_ErrorProvider.SetError(Me, "")
245
_ErrorProvider.SetError(Me, errMsg)
246
End Sub
247
248
'在父窗体中绘画边框
249
Private Sub PaintBound(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
250
Dim g As Graphics
251
g = e.Graphics
252
253
Dim r As Rectangle = Me.Bounds
254
g.DrawRectangle(pen_bound, r)
255
End Sub
256
257
'初始化数据
258
Private Sub Init()
259
'初始化边框画笔
260
pen_bound = New Pen(_BoundColor, 2)
261
262
'添加父窗体的Paint事件
263
If Me.BorderStyle = BorderStyle.None Then
264
AddHandler Me.Parent.Paint, AddressOf PaintBound
265
End If
266
267
End Sub
268
269
'TextBox被创建
270
Private Sub HD_TextBox_HandleCreated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.HandleCreated
271
If _bConstructed = True Then
272
'运行时被创建
273
Init()
274
Else
275
'设计时被创建
276
End If
277
End Sub
278
279
End Class
280
调用方式:
1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
2 '设置边框样式
3 Me.HD_TextBox1.BorderStyle = BorderStyle.None
4 '设置边框颜色
5 Me.HD_TextBox1.BoundColor = Color.Blue
6 '设置内置验证方式(Email地址)
7 Me.HD_TextBox1.ComRegex = HD_TextBox.HD_TextBox.CommanRegex.Email
8
9 '使用自定义验证方式
10 Me.HD_TextBox2.Regex = "^YS\d{6}$"
11 Me.HD_TextBox2.ErrorMsg = "请输入合法的编号,例如 YS100001"
12 End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
2
'设置边框样式
3
Me.HD_TextBox1.BorderStyle = BorderStyle.None
4
'设置边框颜色
5
Me.HD_TextBox1.BoundColor = Color.Blue
6
'设置内置验证方式(Email地址)
7
Me.HD_TextBox1.ComRegex = HD_TextBox.HD_TextBox.CommanRegex.Email
8
9
'使用自定义验证方式
10
Me.HD_TextBox2.Regex = "^YS\d{6}$"
11
Me.HD_TextBox2.ErrorMsg = "请输入合法的编号,例如 YS100001"
12
End Sub
存在的一些问题:
1) 不知道TextBox有没有类似窗体的Form_Load事件,就是在运行时创建完TextBox之后触发的事件?
我发现HandleCreated事件在窗体设计状态下,把TextBox加入到Form中的时候会被触发,如果直接在这里加入
AddHandler Me.Parent.Paint, AddressOf PaintBound
这样在设计界面中就无法正确显示TextBox控件,
所以我加了一个_bConstructed变量标识是运行时还是设计时,如果是设计时就不调用.
如果有只在运行时触发的事件(并且是在HandleCreated之后的事件),我就把初始化代码写在这里了.
2.当文本框输入的内容非法时,其它控件无法获得焦点,有些时候需要取消验证,比如点击"取消"或"退出"按钮的时候
就不想再执行验证 否则非得输入一个合法得数据后才能取消太不爽了.
