以文本方式查看主题

-  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老师跟老爹,学习到了