
已解决问题
谷歌wufuxing8588用户在2021.08.16提交了关于“莱珀妮VB RichTextBox控件介绍?”的提问,欢迎大家涌跃发表自己的观点。目前共有1个回答,最后更新于2025-04-19T17:20:47。希望大家能够帮助她。详细问题描述及疑问:期待您的答案,感谢你,我会记得你对我的好的 !
详细问题描述及疑问:期待您的答案,感谢你,我会记得你对我的好的 !
Windows
与TextBox控件一样,显示的文本由Text属
也可以通过将DetectUrls属性设置为true并编
在RichTextBox控
例:
PrivateSubCo
Wit
.SelStart=0
.SelLength=
.SelColor=vbRed
.SelBold=Tru
EndWith
EndSub
PrivateSub
WithRichTextB
.SelStart
.SelLength=3
.SelFontSize=1
.SelItalic=True
EndWith
EndSub
PrivateSubForm_Load()
Rich
End
=======
WithRichTextBox1
.SelSta
.SelLength=3’长度为3
.SelColor=vbRed’颜色
.SelBold=True’粗为真
EndWith
WithRichTextBox1
.SelStart=3
.SelLength=3’长度3
.SelFontSize=12’字大小:12号
.SelItalic=True
EndWith
==============================================================
WithRichTextBox1
.SelStart=0’从第0个字符开始选择(从0开始,然后1,2,……)
.SelLength=3’一**选择3个字符
.SelColor=vbRed’将选择了的字符的颜色设为红色
.SelBold=True’将选择了的字符的粗体设为真
EndWith
==============================================================
PrivateSubForm_Load()
RichTextBox1.Text="中国人"&vbCrLf&"网络公司"
RichTextBox1.Font="宋体"
RichTextBox1.SelStart=0
RichTextBox1.SelLength=3
RichTextBox1.SelFontName="宋体"
RichTextBox1.SelFontSize=25
RichTextBox1.SelColor=vbBlue
RichTextBox1.SelStart=5
RichTextBox1.SelLength=4
RichTextBox1.SelFontName="黑体"
RichTextBox1.SelFontSize=18
RichTextBox1.SelColor=vbRed
RichTextBox1.SelLength=0
EndSub