如何用API实现MsflexGrid控件的翻页功能?

cqzd 2003-08-16 11:17:31

这段代码是控制文本框的,直接换成MsflexGrid,不好用,该如何实现?
-------------------------------------------------------------------
' 来个省事的办法吧，直接用API向那个Text发消息实现滚动，别SendKeys了。

Private Declare Function SendMessageBynum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Const EM_LINESCROLL = &HB6

' 控制文本框卷动
' hwnd 为文本框的句柄, Horizontal 为水平方向卷动的行数(可为负数), Vertical为垂直方向卷动的行数(可为负数)
Function ScrollText(ByVal hwnd As Long, ByVal Horizontal As Long, ByVal Vertical As Long) As Boolean
ScrollText = SendMessageBynum(hwnd, EM_LINESCROLL, Horizontal, Vertical)
End Function

...全文