请路过的任何一位高手帮忙，有分相赠！

Question

一个文本框，如果最后有一些空行，如何去掉最后多余的空行？

Answer 1

这样试试Text1.Text = RTrim$(Text1.Text)

Answer 2

Text1.Text = RTrim(Text1.Text)

Answer 3

去掉前头的空格：
Text1.Text = LTrim(Text1.Text)去掉两头的空格：
Text1.Text = Trim(Text1.Text)

Answer 4

这样不行的。虽然显示上带回车行与不带回车行一样，但系统记录长度不同。我用下面的代码试：
T1 = "(待定)"
T2 = "(待定)" & vbCrLf & vbCrLf
s1 = Len(T1)
s2 = Len(T2)
p1 = Right(T1, 1)
p2 = Right(T2, 1)
If T1 = RTrim(T2) Then
MsgBox "same"
Else
MsgBox "umsame"
End If
结果是unsame

Answer 5

Option ExplicitPrivate Sub Command1_Click()
    Do While Right$(Text1.Text, 2) = vbCrLf
        Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 2)
    Loop
End Sub

Answer 6

Replace(Text1.Text,vbCrLf & vbCrLf,"")

Answer 7

wzzwwz(棒子面窝头) __的方法我用了，结果一试，程序就死了。