<<< 返回 access911.net 编程静态资料库索引页

用api禁止鼠标滚轮

 

作者:MS(cg1修正)  摘自:access911.net  录入:cg1  时间:2003-3-25  浏览人次:6479


专题地址:http://access911.net/fixhtm/73FAB71E1ADC.htm 如果需要更详细的评论或说明,请点击该地址。

 

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

 


用api禁止鼠标滚轮

在这里不得不提醒一下, ACCESS XP 以及以上版本的窗体中已经有鼠标滚动时事件,只要在里面编程就可以了,无需用下面的方法


注意,以下代码摘自 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 .....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FAB71E1ADC.htm

 


上一篇:巧用ASP技术保护DHTML源代码

下一篇:怎么使用vba修改控制面版里的日期格式?

2017年2月22日生成静态资料