使MSHFlexGrid支持鼠标滚动
来源:互联网 发布:如何成为一名网络写手 编辑:程序博客网 时间:2024/05/17 04:15
将以下代码写到公共模块中
'支持滚轮鼠标API---------------------------------
Public Const GWL_WNDPROC = (-4)
Public Const WM_COMMAND = &H111
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_MBUTTONUP = &H208
Public Const WM_MOUSEWHEEL = &H20A
Public Oldwinproc As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Public Function FlexScroll(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'支持滚轮的滚动
Select Case wMsg
Case WM_MOUSEWHEEL
Select Case wParam
Case -7864320 '向下滚
SendKeys "{PGDN}"
Case 7864320 '向上滚
SendKeys "{PGUP}"
End Select
End Select
FlexScroll = CallWindowProc(Oldwinproc, hWnd, wMsg, wParam, lParam)
End Function
'支持滚轮鼠标API---------------------------------
'将下列代码写到表格控件的GotFocus事件中
Private Sub 控件名称_GotFocus()
Oldwinproc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf FlexScroll
End Sub
'将下列代码写到表格控件的LostFocus事件中
Private Sub 控件名称_LostFocus()
SetWindowLong Me.hWnd, GWL_WNDPROC, Oldwinproc
End Sub
- 使MSHFlexGrid支持鼠标滚动
- 使MSHFlexGrid支持鼠标滚动
- 使DataGrid支持鼠标滚轮滚动记录
- C#支持MSFlexGrid鼠标滚动
- 怎样使DataGrid支持鼠标滚轮滚动记录
- 如何让DbGrid支持鼠标滚轮滚动
- vi支持鼠标中键滚动
- DataGrid支持鼠标滚轮滚动记录
- DELPHI窗口支持鼠标中键滚动
- DBGrid支持鼠标滚轮滚动的解决办法
- DBGrid支持鼠标滚轮滚动的解决办法
- 【来自FRATA系统】如何支持鼠标滚动事件
- VIM设置---支持鼠标进行光标定位,上下滚动
- MSHFLEXGRID
- 鼠标滚动
- 鼠标滚动
- 鼠标滚动
- [愿创]让DBGrid支持鼠标滚轮浏览数据,及去除垂直滚动条!
- 邮件群发常识
- 在Solaris下安装CVS服务器文档
- VB 项目的版本兼容.
- 完成了换卡工作
- 下班时间,不谈技术;上班时间,等待下班。
- 使MSHFlexGrid支持鼠标滚动
- 苹果阵列Serv安装文档(原文)
- Oracle时间格式讨论
- Oracle Datafiles
- 用Eclipse平台进行C/C++开发
- XinZhou Housing Mobile Phone
- lcd xinzhou
- mobile phone accessories
- LCD From China XinZHou