网页不出现横向滚动条 VB6如何实现vsflexgrid控件鼠标滚动操作？

VB6如何实现vsflexgrid控件鼠标滚动操作？API函数SetWindowLong、callwindowproc和getwindowlong一起使用。公共函数FlexScroll（ByVal h

VB6如何实现vsflexgrid控件鼠标滚动操作？

API函数SetWindowLong、callwindowproc和getwindowlong一起使用。公共函数FlexScroll（ByVal hwnd As Long，ByVal wMsg As Long，ByVal wParam As Long，ByVal lParam As Long）As Long Select Case wMsg Case WMuuwheel Select Case wParam Case-7864320“向下滚动sendkeys”{PgDn}“Case 7864320”向上滚动sendkeys“{PgUp}”end Select end Select FlexScroll=callwindowproc（oldwinproc，hWnd、WMSG、wParam、lParam）结束函数