主题：[求助]文本框显示格式

textChanged事件

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)
systemready = False
Dim i As Integer = e.sender.SelectionStart
e.sender.text = rgx.Replace(s, "$0 ")
e.Sender.SelectionStart = i+1
systemready = True