vb鼠标编程的实现【DOC精选】.docVIP

本例代码中包含vb鼠标的整体解决，不仅仅是解决滚轮问题！ vb滚轮的实现，不管是钩子还是子分类方式都极不稳定， 容易导致应用程序中止退出。 还是老外厉害，同样是api方式实现， 但本例的实现近乎完美，极其稳定！ 缺陷大概是需要写多处的代码，滚动前需要单击滚轮 首先把模块MHookXP.bas，类CHookMouseWheel.cls，类CHookMouseEvents.cls加入你的工程中（在文档中后段）。 然后在需要滚轮的窗口中： 窗口模块声明： Private WithEvents m_MW As CHookMouseWheel 窗口load事件添加代码 Private Sub Form_Load() Set m_MW = New CHookMouseWheel m_MW.hWnd = Me.hWnd end sub 窗口中再添加如下代码，实现msflexgrid的滚轮查看数据。 Private Sub m_MW_MouseWheel(ByVal hWnd As Long, ByVal Delta As Long, ByVal Shift As Long, ByVal Button As Long, ByVal X As Long, ByVal Y As Long, Cancel As Boolean) If TypeOf Screen.ActiveControl Is MSFlexGrid Then sub_MouseWheel Delta, X, Y End Sub 下面这个过程可以放到公用模块中 Public Sub sub_MouseWheel(ByVal Rotation As Long, ByVal Xpos As Long, ByVal Ypos As Long) Dim NewValue As Long Dim Lstep As Single 控制每次移动几行 Dim iA On Error Resume Next iA = 0 With Screen.ActiveControl Lstep = .Height / .RowHeight(0) Lstep = Int(Lstep) If Lstep 10 Then Lstep = 10 End If Lstep = 1 If Rotation 0 Then NewValue = .TopRow - Lstep If NewValue 1 Then NewValue = 1 End If Else NewValue = .TopRow + Lstep If NewValue .Rows - 1 Then NewValue = .Rows - 1 End If End If If .Rows .FixedRows Then iA = IIf(.FixedRows = NewValue, .FixedRows, NewValue) If iA .Rows Then iA = .Rows - 1 .TopRow = iA End If End With End Sub 下边是类CHookMouseWheel.cls的内容 ************************************************************************* Copyright ?997-2009 Karl E. Peterson All Rights Reserved, / ************************************************************************* You are free to use this code within your own applications, but you are expressly forbidden from selling or otherwise distributing this