chr(10) 为什么做不到换行？？？？

[wangchong]

我这样写的：
Dim Old_mge As String
Old_mge = Trim(text1.text)
If old_mge <> "" Then
Old_mge = Old_mge & Chr(10) & "---end---"
Else
Old_mge = Trim(text1.text)
End If
text1.text = Old_mge
为什么在 "---end---"前没换行呢？？？

[enmity]

chr(10) & chr(13)

[mmzxg]

chr(10)& chr(13)

[foxruo]

同上

[foolishtiger]

Old_mge = Old_mge & vbCrLf & "---end---"

[shkingstargroup]

Dim Old_mge As String
Old_mge = Trim(text1.text)
If old_mge <> "" Then
Old_mge = Old_mge & Chr(13) & Chr(10) & "---end---" '这儿要注意了！
Else
Old_mge = Trim(text1.text)
End If
text1.text = Old_mge

还有要注意的是text1.MultiLine的属性设置成true值就行！

[shkingstargroup]

Dim Old_mge As String
Old_mge = Trim(text1.text)
If old_mge <> "" Then
Old_mge = Old_mge & Chr(13) & Chr(10) & "---end---" '注意这儿！
Else
Old_mge = Trim(text1.text)
End If
text1.text = Old_mge


还有把Text1.MultiLine属性设置成TRUE

[wangchong]

谢谢各位：
可惜我的分太少了，记住我，下次多给！！！