怎样在文本框中自动加空格，初学急救 ,还是没有解决，好头大

Question

请问如果我想实现在文本框输入两个数字之后程序自动加空格让用户继续输入，这样怎么完成，要是老调用 Text1_Change事件会不会程序很慢，请帮我解答，谢谢
maskedit 不是很会用，如果设置mask 属性用户输入的内容无穷大就不行了谁可以给我写个函数啊，万分感谢

Answer 1

这个问题,可以这样做啊,当用户输完以后,自动加上就可以了
比方说吧
text1.text=mid(text1.text,1,2)&"  "&right(text1.text,len(text1.text)-2)
这样的话,里面的文本就可以了
MID取前两位,就是两个数字,然后加上两个空格,最后再跟上从右边取,取的位数
让它的长度-2,就可以了.
先试试看
这一句放在这个文本框失去焦点的时候.

Answer 2

to liang80318(小亮):
我想在用户输完2个字符之后立即程序加上空格，而不是最后加空格，这样怎么做啊

Answer 3

你在keypress事件里加个静态变量加值 判断一下啦每输两个字变量清零，加空格不过如果输入汉字的话怎么算法？？

Answer 4

Private Sub Text1_Change()
    If Len(Text1.Text) = 2 Then
      Text1.Text = Text1.Text & " "
      Text1.SelStart = 3
    End If
End Sub

Answer 5

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(Text1.Text) Mod 3 = 2 Then SendKeys " "
End Sub

Answer 6

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Len(Text1.Text) Mod 3 = 1 Then SendKeys " "
End Sub

Answer 7

可以这样啊，判断一下文本的长度，然后加上就可以啊
因为LEN碰到汉字，一样可以认为是两个的if len(text1.text)=2 then
  text1.text=text1.text & "  "
elseendif

Answer 8

to: j_x_y(专程赶来接分) 
无法实现，只要是加空格之后一直会出发CHANGE事件，会死循环

Answer 9

只有 faysky2() 的通过了，不过还有一个缺陷就是不能修改，因为删除键也引发事件发生，所以容易混乱，另外如果是汉字的话应该怎么办，谢谢你