主题：数字格式

 

你是需要把表的卡号显示在textbox上？你textbox绑定了表的列？

 

DataFormat事件，写代码。

 

 

Dim s As String = e.value
Dim p As String = ".{4}(?!$)"
Dim rgx = New System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
e.Text = rgx.Replace(s, "$0 ")

色大师，还是没反应呢，没有4位数间隔开，要要的效果就是在输入的时候，输入4位数后自动隔开，如下：

1213 4646 1313 1313 156

此主题相关图片如下：1.png

TextChanged

 

systemready = False
Dim s As String = e.sender.text.replace(" ", "")
Dim p As String = ".{4}(?!$)"
Dim rgx = New System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Dim idx As Integer = e.sender.SelectionStart
e.sender.Text = rgx.Replace(s, "$0 ")
e.Sender.SelectionStart = idx+s.length\4
systemready = True

 

Validating

 

systemready = False
Dim str = e.sender.text.replace(" ", "")
e.Sender.text = str
systemready = True

 

DataFormat

 

Dim s As String = e.value.replace(" ", "")
Dim p As String = ".{4}(?!$)"
Dim rgx = New System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
e.text = rgx.Replace(s, "$0 ")

谢谢色大师，搞定了。