让VB应用程序支持鼠标滚轮

让VB应用程序支持鼠标滚轮(5)                             If .EOF = False Then
                                .MoveNext
                                If .EOF = True Then
                                    .MoveLast
                                End If
                            End If
                        End If
                    End With
                End If
            End With
        Case Else
WindowProc = CallWindowProc(lpPrevWndProc, hw, _
         uMsg, wParam, lParam)
    End Select
End Function

Public Function HIWORD(LongIn As Long) As Integer
 ' 取出32位值的高16位
 HIWORD = (LongIn And &HFFFF0000) \ &H10000
End Function

Public Function LOWORD(LongIn As Long) As Integer
    ' 取出32位值的低16位
      LOWORD = LongIn And &HFFFF&
End Function

---- 7.该例在未安装任何附加鼠标驱动程序的Win2000/98环境，采用联想网络鼠标/罗技银貂，VB6.0下均通过。
---- 需要进一步说明的是,对用户界面鼠标滚轮的操作也要遵循公共用户界面操作习惯，不要随意定义一些怪异的操作，如果你编制的应用程序支持鼠标滚轮，请看看是否符合下面这些标准。

---- 垂直滚动：当用户向后滚动轮子（朝用户方向），滚动条向下移动；向前滚动轮子（朝显示器方向），滚动条向上移动。对文档当前的选择应该不受影响，对数据库当前记录指针不变。

---- 水平滚动：如果同时有垂直滚动条，鼠标滚轮首先应控制上下滚动；当文档只有水平滚动杠时，用户向后滚动轮子，滚动条向右移动，向前滚动轮子，滚动条向左移动。对文档当前的选择应该不受影响，对数据库字段选择不受影响。

---- 滚动速度：鼠标滚轮每滚一个刻痕，对于长文档移动的行数，应符合控制面板中鼠标的定义（默认移动三行），对短文档每次滚一行，在任何情况下，决不要超过窗口显示的行数。