一个非常头大的问题,如何使 Rich TextBox 翻页的问题,敬请各位关注!

Question

先让控件得到焦点，点击命令按钮时发一条pagedown命令了

Answer 1

回复人： dbcontrols(泰山__抛砖引玉) (  ) 信誉：100  2002-2-4 16:20:18  得分:0  
 
 
  
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const SB_LINEDOWN = 1
Private Const SB_LINEUP = 0
Private Const SB_PAGEDOWN = 3
Private Const SB_PAGEUP = 2
Const EM_SCROLL = &HB5Private Sub Command1_Click()
'滚动到下一页
rc = SendMessage(Text1.hwnd, EM_SCROLL, SB_PAGEDOWN, 0)
'滚动到上一页
'rc = SendMessage(Text1.hwnd, EM_SCROLL, SB_PAGEUP, 0)
'滚动到下一行
'rc = SendMessage(Text1.hwnd, EM_SCROLL, SB_LINEDOWN, 0)
'滚动到上一行
'rc = SendMessage(Text1.hwnd, EM_SCROLL, SB_LINEUP, 0)End Sub 
谢谢这位朋友的留言!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
我要结帐啦

Answer 2

对了,Sendkeys 我用过不行的,它能把键值放到文本中但不可翻腾页