RICHTEXTBOX的SELTEXT之后的换行问题

udSoft2020 2009-02-06 04:59:34
如题
有一个RICH......的 控件
With Me.RICH
.SelStart = Len(.Text) + 1
.SelColor = VBGREEN
.SelText = ME.TEXT1.TEXT '发送用户
.SelIndent = 100

.SelStart = Len(.Text) + 1
.SelColor = VBRED
.SelText = ME.TEXT2.TEXT '发送内容
.SelIndent = 300
End With


上述代码的目的是为了 发放用户 靠边,发送内容 缩进一点

这样的话
如果 ME.TEXT1.TEXT , ME.TEXT2.TEXT 如果是单行的 很正常
但是如果 TEXT2 是多行时,就会出错
只有最末1行有 缩进300

要怎么解决这个问题呀
:)

...全文
44 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
udSoft2020 2009-02-08
  • 打赏
  • 举报
回复
再顶顶
udSoft2020 2009-02-07
  • 打赏
  • 举报
回复
有没有别的简便的办法.....
SYSSZ 2009-02-06
  • 打赏
  • 举报
回复
TEXT2 是多行时,按行读,每读一行加 .SelIndent = 300
udSoft2020 2009-02-06
  • 打赏
  • 举报
回复
自己顶

7,759

社区成员

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

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