请问：怎样实现在RichTextBox里的文字自动滚动，请高手务必指点指点，急阿？？

Question

可以吧richbox放到一个picbox里面，然后移动richbox 纵坐标，实现文本滚动

Answer 1

nik_Amis(Azrael) ( ) :
 你的方法只能得到单一的文字，实际上richtextbox中的文字并没有滚动，那么多余的文字就看不到，我的意思是就如IE双击后的效果

Answer 2

在Form中添加一个Timer控件
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = False
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()
RichTextBox1.SetFocus
SendKeys "{Down}"
End Sub

Answer 3

Cooly(苦力) ( ) ：
  我的richtextbox根本获得不到焦点
  因为该窗口为一无标题栏悬浮窗口（一直处于最前面）

Answer 4

RichTextBox1.SetFocus
SendKeys "{Down}"这个办法我试了，可以实现滚动，但是打开这个窗口没有办法做其他事了。我一个需要实现这一功能的办法，始终能显示出最后一行，又不影响做其他事。
这虽然不是我提的问题，解决了我一样给分，谢谢！

Answer 5

这个问题我解决了，楼主分该给我！
  RichTextBox1.SelStart = Len(RichTextBox1.Text)
  RichTextBox1.SelLength = 0

Answer 6

兄弟应该是这样的
RchTxtInform.ScrollBars = rtfVerticalPrivate Sub Timer2_Timer()
  Const EM_LINESCROLL = &HB6
  SendMessage RchTxtInform.hwnd, EM_LINESCROLL, ByVal &O0, ByVal &O4
  'RchTxtInform.Refresh
End Sub

Answer 7

litsnake1(litsnake) ( ) ：
我的是这样的：
  RchTxtInform.ScrollBars = rtfVertical
  其它一样
  该窗口为一无标题栏悬浮窗口（一直处于最前面）
timer事件里不能添加断点吗？我一添加断点就连VB6.0崩溃了

Answer 8

兄弟，你看清楚没：
SendMessage RchTxtInform.hwnd, EM_LINESCROLL, ByVal &O0, ByVal &O4跟你哪个不一样的