请各位大虾帮我看看这两行代码，看看要怎么做才行？谢谢。

Question

Private Sub RichTextBox1_Change() RichTextBox1.SelLength = Len(RichTextBox1.Text) 
 RichTextBox1.SelStart = Len(RichTextBox1.Text)
end sub

Answer 1

to aren_ren（阿任）
不行啊！还是不能选择文本。不能选择控件中的部分文本啊！

Answer 2

喂，老兄，aren_ren(阿任)让你写的是CHANGE事件
你原来用的是SELCHANGE事件。把你原来的代码注掉再看看？

Answer 3

不懂你意思,把下面這句放到KEYUP事件里不行嗎?
RichTextBox1.SelStart = Len(RichTextBox1.Text)

Answer 4

Private Sub RichTextBox1_KeyPress() 
RichTextBox1.SelStart = Len(RichTextBox1.Text)
End Sub

Answer 5

to junglerover(灌木丛)
用了change事件，还是遮住了最下面的半行字。
to leon7909(leon)　
用了keyup事件，原来的问题没有了，现在是不能修改文档了（比如中间的某一段不对，我删掉重写那段，现在会在删除后自动跳到最后）
to _StarSoi_(鸿雁)　
你的代码和leon7909(leon)兄一样的问题。
谢谢zhuomao(拙猫)了，其实就是一个写字板来的（我初学VB,练习用的，书上有点框架，我想把功能补齐）这几行代码希望实现的功能在前面说了，谢谢你，帮我看看吧，我都不知道要怎么办才好了，找了好多办法都不能实现（总有地方不对：（（（）

Answer 6

把你的project发给我，我帮你查。[email protected]

Answer 7

to zhuomao(拙猫)
源码吗？

Answer 8

搞定了：））
Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
If RichTextBox1.SelStart = Len(RichTextBox1.Text) Then
RichTextBox1.SelStart = Len(RichTextBox1.Text)
End If
End Sub
奇怪了，虽然我写出来了，但是还是没想明白为什么要这样的，我想可能是起个刷新的作用吧。有朋友可以给我解释一下的吗？本想在RichTextBox1的滚动条的值发生变化上来做文章的，可惜不知道要怎么下手：（（（学习学习再学习。