Question

VB中richtextbox控件显示文本

在richtextbox控件中现实文本时 1、实现 100个字符自动换行 2、当控件中显示的内容超过显示框大小后能出现滚动条进行查看（比如QQ聊天时的输入效果）3、现实的第一行应缩进2个字。
希望高手能提供 实用的代码 万分感谢。

Answer 1

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
滚动条跟楼上说的一样设置就行了。

Answer 2

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

Answer 3

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就可以了。

Answer 4

'窗体上需要1个按钮,1个timer和1个richtextbox控件
const
em_linescroll
=
&hb6
private
declare
function
sendmessagebynum
lib
"user32"
alias
"sendmessagea"
(byval
hwnd
as
long,
byval
wmsg
as
long,
byval
wparam
as
long,
byval
lparam
as
long)
as
long
private
sub
command1_click()
timer1.enabled
=
true
end
sub
private
sub
form_load()
timer1.interval
=
500
timer1.enabled
=
false
command1.caption
=
"自动滚屏"
end
sub
private
sub
timer1_timer()
sendmessagebynum
richtextbox1.hwnd,
em_linescroll,
0,
3
'每500毫秒滚3行
end
sub