- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]文本框显示格式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114545)
-- 发布时间：2018/2/8 22:23:00
-- [求助]文本框显示格式
老师好，在文本框数字显示格式4个一组。
此主题相关图片如下：文本框显示格式.png
-- 发布时间：2018/2/8 22:45:00
--
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
-- 发布时间：2018/2/9 8:16:00
--
谢谢老师