vb6 怎样删除文本框最后两个换行符呢

Question

添加的change事件中,没反应

If Right(Text2.Text, 2) = vbCrLf + vbCrLf Then
Text2 = Replace(Text2.Text, Right(Text2.Text, 2), vbCrLf)
End If

Answer 1

把第一行的“+”改为“&”，vbCrLf是一个常量，你那样写就是做加法，而不是连接

Answer 2

换行符的话，你这代码有点问题。vbcrlf是回车换行，占用的位置貌似不是 2吧。

Answer 3

Left(a, Len(a) - 2)