重写TextBox,加入属性
protected strEM as string
Property EditMask as String
get
return strEM
end get
set v (as string)
strEM=value
me.text=value
me.invalidate()
end set
然后重写OnValidating事件
Protected Overrides Sub OnValidating(ByVal e As System.ComponentModel.CancelEventArgs)
'在这里格式化Text值。
End Sub