mfc编写中的msflexgrid控件如何绑定鼠标右击事件

2025-03-30 17:05:41

推荐回答（1个）

回答（1）：

以下程序放在一个公共模块中，
在窗体中的form_load事件中　写　HookWheel　me.hwnd
在窗体中的form_unload事件中　写　UnHookWheel　me.hwnd
在表格的GotFocus事件中　set CtlWheel=MSFlexGrid1 '( 表格名称，根据具体情况，修改这个名称)

在表格的LostFocus事件中　set CtlWheel=Nothing'( 表格名称，根据具体情况，修改这个名称)

Option Explicit

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private 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

Private Const GWL_WNDPROC As Long = (-4)
Private Const WM_MOUSEWHEEL As Long = &H20A

Private m_OldWindowProc As Long

Public CtlWheel As Object

Public Sub HookWheel(ByVal frmHwnd)

m_OldWindowProc = SetWindowLong(frmHwnd, GWL_WNDPROC, AddressOf pvWindowProc)
End Sub

Public Sub UnHookWheel(ByVal hwnd As Long)
Dim lngReturnValue As Long
lngReturnValue = SetWindowLong(hwnd, GWL_WNDPROC, m_OldWindowProc)

End Sub

Private Function pvWindowProc(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error GoTo errH

Select Case wMsg

Case WM_MOUSEWHEEL
If Not CtlWheel Is Nothing Then
If TypeOf CtlWheel Is MSFlexGrid Then
With CtlWheel

Select Case wParam
Case Is > 0

If CtlWheel.TopRow > 0 Then
CtlWheel.TopRow = CtlWheel.TopRow - 1
End If

Case Else

CtlWheel.TopRow = CtlWheel.TopRow + 1

End Select
End With
End If

End If
End Select

errH:

pvWindowProc = CallWindowProc(m_OldWindowProc, hwnd, wMsg, wParam, lParam)
End Function

最新问答

我的笔记本电脑老是突然断网，怎么回事

请朋友们，用善字的不同意思个写一句话。谢谢！

MHMO电容笔有压感吗？接触好不好？

双后桥商用车的轴间差速器工作原理

求一篇有关于在家学习的作文，800字，内容包括优缺点！！！！急！！！

对口升学具体指什么？什么学生能参加？3+2高职学生能参加吗？

福田4102自卸车，153后桥，货箱3．8X2．lX0·8现在多少钱

宋代对外贸易的概况？

国寿康宁终身重大疾病保险交保四年现在要退保能拿回多少钱?

为什么单相用电设备采用三眼插头和三眼插座？