Question

vb 怎么删除文本框最后一行空行?

vb 怎么删除文本框最后一行空行?
嗯,举个例子:
文本框内容如下:
text1
text2

text3
text4

text5
text6
-----这个最后一行是空的,想删除它.

Answer 1

建Text1, 改Multiline＝True，再建Command1.
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
If Right(Text1.Text, 2) = vbCrLf Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

Answer 2

Private Sub Command1_Click()
temp = Split(Text1.Text, vbCrLf)
Text1.Text = ""
For i = 0 To UBound(temp) - 1
If temp(i) <> "" Then Text1.Text = Text1.Text & temp(i) & vbCrLf
Next
End Sub

Answer 3

啥？什么意思？