我在窗体录入记录时

wil

我在窗体录入记录时用滚轮滚一下就到下一条记录了？ 怎样才能让滚轮不起作用？   谢谢。

sea.er

http://www.office-cn.net/bbs/dispbbs.asp?BoardID=2&replyID=65032&ID=13161&skin=1
http://www.office-cn.net/bbs/dispbbs.asp?BoardID=2&replyID=41779&ID=8256&skin=1

cg1

专题地址：
http://access911.net/index.asp?board=4&recordid=73FAB71E1ADC

简述：
如何在Access2000窗体中检测并禁止通过鼠标滚轮滚动到其他记录
默认情况下，你可以通过使用鼠标滚轮从一条记录滚动到另一条记录，但是Access本身似乎并没有提供对鼠标滚轮的完全控制和检测的方法（关于这点，你可以参考本站文章《如何禁用鼠标滚轮？》）。
这里，你可以通过两种方法来检测并控制鼠标滚轮：一、用 VB VC 编写 ActiveX DLL，通过在Access中引用该DLL来解决；（MS 推荐）二、你可以在 Access 本身的 VBA 代码中引用 API 函数建立子类来解决问题。

  



<<< 隐藏附加信息
用api禁止鼠标滚轮
作者：MS(cg1修正)  摘自：access911.net  编辑：cg1  更新日期：2003-3-25  浏览人次：87




用api禁止鼠标滚轮
注意，以下代码摘自 ms 支持网站，我只是做了一些小的修正
如何在Access2000窗体中检测并禁止通过鼠标滚轮滚动到其他记录
    大家都知道，在Access的默认情况下，你可以通过使用鼠标滚轮从一条记录滚动到另一条记录，但是Access本身似乎并没有提供对鼠标滚轮的完全控制和检测的方法（关于这点，你可以参考本站文章《如何禁用鼠标滚轮？》）。
    这里，你可以通过两种方法来检测并控制鼠标滚轮：
    一、用 VB VC 编写 ActiveX DLL，通过在Access中引用该DLL来解决；（MS 推荐）
    二、你可以在 Access 本身的 VBA 代码中引用 API 函数建立子类来解决问题。

方法一：


    以下就是方法一的操作过程：
1、打开 Microsoft Visual Basic 6.0.
2、建立一个新的 ActiveX DLL 项目并打开
3、将以下代码加入一个类模块中：
Option Compare Text
Option Explicit
Private frm As Object
Private intCancel As Integer
Public Event MouseWheel(Cancel As Integer)
Public Property Set Form(frmIn As Object)
    Set frm = frmIn
End Property
Public Property Get MouseWheelCancel() As Integer
    MouseWheelCancel = intCancel
End Property
Public Sub SubClassHookForm()
    lpPrevWndProc = SetWindowLong(frm.hwnd, GWL_WNDPROC, _
                                    AddressOf WindowProc)
      Set Cmouse = Me
   End Sub
Public Sub SubClassUnHookForm()
    Call SetWindowLong(frm.hwnd, GWL_WNDPROC, lpPrevWndProc)
End Sub
Public Sub FireMouseWheel()
    RaiseEvent MouseWheel(intCancel)
End Sub

                    
4、命名为： CMouseWheel
5、修改以下属性：
   Name: CMouseWheel
   Instancing: 5 - MultiUse
6、新建一个标准模块，然后加入以下代码：

Option Compare Text
Option Explicit
Public Cmouse As CMouseWheel
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 Const GWL_WNDPROC = -4
Public Const WM_MouseWheel = &H20A
Public lpPrevWndProc As Long
Public Function WindowProc(ByVal hwnd As Long, _
    ByVal uMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As Long
    Select Case uMsg
        Case WM_MouseWheel
            Cmouse.FireMouseWheel
            If Cmouse.MouseWheelCancel = False Then
                WindowProc = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
            End If
            
        Case Else
           WindowProc = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
    End Select
End Function


7、更改项目名称为：MouseWheel
8、保存该项目、类模块、标准模块
basSubClassWindow.bas
CMouseWheel.cls
MouseWheel.vbp respectively.
9、用“文件”菜单上的 建立 MouseWheel.dll 生成一个dll文件。
10、退出 VB 并打开 Access，打开示例数据库 Northwind.mdb
11、转到 VBE 界面，打开 form_Customers 类模块
12、工具菜单 ->  引用 ，然后找到你刚才生成的 MouseWheel.DLL 并选勾。
13、加入以下代码到该模块：
Option Compare Database
Option Explicit
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel
Private Sub Form_Load()
    Set clsMouseWheel = New MouseWheel.CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm
End Sub
Private Sub Form_Close()
   clsMouseWheel.SubClassUnHookForm
   Set clsMouseWheel.Form = Nothing
   Set clsMouseWhee

lisj

学习学习学习学习