请问怎么定义TEXTBOX的格式。。。

Question

TEXTBOX1 已经是多行显示的，当我们从剪贴版里复制的数字到 TEXTBOX1 里的时候 TEXTBOX1 只能按照这样的格式 11111 222222 中间只有一个空格的格式，剪贴版里的数字有可能是 111111  99999、或者 999999 9999 中间有一个或者多个空格，但复制到TEXTBOX1里后只能有一个空格。谢谢。

Answer 1

Private Sub TextBox1_Change()    Dim strTemp$, lChg&
    Static lFlag&
    
    If (lFlag = 123456) Then Exit Sub
    lFlag = 123456: lChg = 0
    strTemp = TextBox1.Text
    While (InStr(1, strTemp, "  ") > 0)
        strTemp = Replace(strTemp, "  ", " ")
        lChg = 1
    Wend
    If (lChg = 1) Then TextBox1.Text = strTemp
    lFlag = 0End Sub

Answer 2

Text1.Text = Clipboard.GetText()把你上面的内容复制后运行
空格都能粘贴进去

Answer 3

'引用 Microsoft VBScript Regular Expressions x.x
Dim re As RegExpPrivate Sub Form_Load()
Set re = New RegExp
re.Global = True
re.Pattern = Space(2)
End SubPrivate Sub Text1_Change()
Text1 = re.Replace(Text1, Space(1))
End Sub

Answer 4

恐怕你又是没有注意控件名称的吧！TextBox1  <-----> Text1

Answer 5

Chen8013 好强呀，等级:高，呵呵~~~谢谢了，太强了。页同样谢谢热心的朋友，谢谢大家。