请问怎样用sendmessage函数向VSCROLL滚动条控件发送滚动的消息？

Question

窗体上有一COMMAND控件，我想单击时模仿VSCROLL的PAGEUP,PAGEDOWN事件，请问怎么用？

Answer 1

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_HSCROLL = &H114
Private Const WM_VSCROLL = &H115
Private Const SB_LINEUP = 0
Private Const SB_LINEDOWN = 1
Private Const SB_LINERIGHT = 1
Private Const SB_LINELEFT = 0
Private Const SB_PAGEDOWN = 3
Private Const SB_PAGEUP = 2
Call PostMessage(Me.hwnd, WM_HSCROLL, SB_PAGEUP, VScroll1.hwnd)     '向上一页
Call PostMessage(Me.hwnd, WM_HSCROLL, SB_PAGEDOWN, VScroll1.hwnd)   '向下一页
Call PostMessage(Me.hwnd, WM_HSCROLL, SB_LINEUP, VScroll1.hwnd)     '向上一行
Call PostMessage(Me.hwnd, WM_HSCROLL, SB_LINEDOWN, VScroll1.hwnd)   '向下一行

Answer 2

滚动多行文本框的例子:
Call PostMessage(Text1.hwnd, WM_VSCROLL, SB_LINEDOWN, ByVal 0&)