VB中richtextbox控件显示文本

来源：百度知道 编辑：UC知道 时间：2024/05/18 06:17:37
在richtextbox控件中现实文本时 1、实现 100个字符自动换行 2、当控件中显示的内容超过显示框大小后能出现滚动条进行查看（比如QQ聊天时的输入效果）3、现实的第一行应缩进2个字。
希望高手能提供 实用的代码 万分感谢。

Private Sub Command1_Click()
Dim text As String, i As Long, indent As String
RichTextBox1.text = String(140, "试") '这句你实验后去掉
indent = String(4, 32)
text = RichTextBox1.text
RichTextBox1.text = ""
For i = 1 To Len(text) Step 100
RichTextBox1.text = RichTextBox1.text & indent & Mid(text, i, 100) & vbCrLf
Next
End Sub
滚动条跟楼上说的一样设置就行了。

实现文本：MULTILINE 选择TRUE
可以根据字体实现100字自动换行，只要调节 RichTextBox1的宽度就可以了
实现超出显示框出现拖动条：RichTextBox1的ScrollBars 设置为 rtfVertical
第一行空两格只要自动在第一句话时加
"SPACE（你空的字节）"就可以
同时也可以象softbeam 说的去做

Private Sub Command1_Click()
For i = 1 To Len(RichTextBox1.Text) Step 10
s = s & Mid(RichTextBox1.Text, i, 10) & vbCrLf
Next i
RichTextBox1.Text = s
End Sub

这个是10个字符换一行~至于滚动条 你设置RichTextBox1的属性ScrollBars = rtfVertical就可以了。