以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 这样的输入怎么实现? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43487) |
-- 作者:mamuaiqing -- 发布时间:2013/12/9 0:47:00 -- 这样的输入怎么实现? 比如在窗口TextBox1控件中输入银行账号,要求在输入达到4位数的时候自动"空格一次"这样的功能该怎么实现?输入后账号为:1234 5678 9101 1121 314这样的效果 |
-- 作者:Bin -- 发布时间:2013/12/9 8:56:00 -- Dim strs As String="1234567891011121314" Dim s As String For i As Integer=1 To strs.length s=s & strs(i-1) If (i Mod 4) = 0 Then s= s & " " End If Next MessageBox.show(s)
|
-- 作者:狐狸爸爸 -- 发布时间:2013/12/9 10:15:00 -- 直接设置输入掩码:
AAAA AAAA AAAA AAAA
这样输入的时候,就会自动加空格。
|
-- 作者:sloyy -- 发布时间:2013/12/9 10:49:00 -- 学习了,非常方便 |
-- 作者:mamuaiqing -- 发布时间:2013/12/10 1:51:00 -- 感谢Bin老师跟老爹,学习到了 |