关于文本框控件

chinacdk 2009-04-23 11:04:15

1、对于大于64kB的TXT文件如何用文本框进行全部显示和分页显示呢？

2、能否对个别的文本内容显示为彩色，如Text1.text=“1234567”，其中"123"显示为红色，“456”显示为绿色，其它的为黑色。

3、能否对个别的文本内容显示为不同的字体，也就是实现多种字体同时在一个文本框中显示，如显示为“12345678”

如果自带的文本框控件实现不了，那么，该如何实现上述功能呢？

...全文

57 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

goosen 2009-04-24

打赏
举报

这个是每行变色的..想每个字变色自己改  



Private Sub Command2_Click()

With RichTextBox1

.SetFocus

.SelStart = Len(.Text)

SendKeys Text1.Text & Chr(13)

.SelLength = Len(Text1.Text)

Select Case Val(.Tag)

Case vbRed

.SelColor = vbBlue

Case vbBlue

.SelColor = vbGreen

Case vbGreen

.SelColor = vbRed

Case Else

.SelColor = vbRed

End Select

.Tag = .SelColor

End With

End Sub