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---"前没换行呢???
...全文
226 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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)

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧