简单问题如何使用代码使光标定位到richtextbox 的末尾

wzfxy 2005-09-06 01:43:32

谢了

...全文

385 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

wzfxy 2005-09-08

打赏
举报

回复 northwolves(狼行天下)
Private Sub RichTextBox1_Click()
SendKeys "{End}"
End Sub
---------------------
对了。最好是SendKeys "^{End}"
谢谢帮忙。

northwolves 2005-09-08

打赏
举报

这样就可以了，呵呵

Private Sub Form_Load()
RichTextBox1.Text = String(300, "x")
End Sub

Private Sub RichTextBox1_Click()
SendKeys "{End}"
End Sub

bbhere 2005-09-08

打赏
举报

好多热心人啊，学习

flyer_2001 2005-09-07

打赏
举报

RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SetFocus

xghim 2005-09-07

打赏
举报

在gotfocus事件里加入
RichTextBox1.SelStart=Len(RichTextBox1)

northwolves 2005-09-07

打赏
举报

或许有吧,我也想知道.呵呵

wzfxy 2005-09-07

打赏
举报

回复 northwolves(狼行天下
user a timer:

Private Sub Form_Load()
RichTextBox1.Text = String(300, "x")
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If Me.ActiveControl = RichTextBox1 Then SendKeys "^{end}"
End Sub

这样虽能实现，但不停地sendkeys好像太浪费资源了，没有别的办法啦

northwolves 2005-09-07

打赏
举报

如果是用鼠标点击richtextbox ，那么还能实现上述效果吗
------------

user a timer:

Private Sub Form_Load()
RichTextBox1.Text = String(300, "x")
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If Me.ActiveControl = RichTextBox1 Then SendKeys "^{end}"
End Sub

yanshf 2005-09-07