如何在richtextbox中插入文本后滚动条自动滚动到最下方？
rt 问题点数：0、回复次数：3Top
1 楼TechnoFantasy（（VB MVP）www.applevb.com）回复于 2005-04-02 14:55:38 得分 0
Private Sub Command1_Click()
RichTextBox1.Text = "主 题： 如何在richtextbox中插入文本后滚动条自动滚动到最下方ddffg？ "
RichTextBox1.SelStart = LenB(StrConv(RichTextBox1.Text, vbFromUnicode))
RichTextBox1.SetFocus
End Sub
Top
2 楼erplooya（天空之城）回复于 2005-04-02 15:30:46 得分 0
谢谢，很好Top
3 楼homezj（小吉）回复于 2005-04-02 15:47:26 得分 0
RichTextBox1.SelStart = LenB(StrConv(RichTextBox1.Text, vbFromUnicode))
==>
RichTextBox1.SelStart = Len(RichTextBox1.Text)
就可以了，SelStart是按字符计算长度的，
LenB(StrConv(RichTextBox1.Text, vbFromUnicode))也可以用的原因是：
它的结果肯定大于Len(RichTextBox1.Text)
在RichTextBox1.SelStart > Len(RichTextBox1.Text)时，VB只能定位于Len(RichTextBox1.Text)
Top
