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

wangchong 2001-12-03 03:44:48
我这样写的:
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---"前没换行呢???
...全文
187 7 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
wangchong 2001-12-03
  • 打赏
  • 举报
回复
谢谢各位:
可惜我的分太少了,记住我,下次多给!!!
shkingstargroup 2001-12-03
  • 打赏
  • 举报
回复
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 2001-12-03
  • 打赏
  • 举报
回复
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值就行!
foolishtiger 2001-12-03
  • 打赏
  • 举报
回复
Old_mge = Old_mge & vbCrLf & "---end---"
foxruo 2001-12-03
  • 打赏
  • 举报
回复
同上
mmzxg 2001-12-03
  • 打赏
  • 举报
回复
chr(10)& chr(13)
enmity 2001-12-03
  • 打赏
  • 举报
回复
chr(10) & chr(13)
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-12-03 03:44
社区公告
暂无公告