DBMNG数据库管理与应用

书籍是全世界的营养品。生活里没有书籍,就好像没有阳光;智慧里没有书籍,就好像鸟儿没有翅膀。
当前位置:首页 > Access > 常见问题

在Access2003中简单三步,禁止鼠标中键滚轮

在窗体中,如果为窗体指定了记录来源,那么在窗体上滚动鼠标中键,那么所显示的记录就会随着滚轮不断变化。但是,很多时候我们却并不需要这一点,尤其是涉及到筛选的时候。
比如,在窗体尚不有个选择框,下面现实与上面选择框内容相关的资料,在选择框内容发生变化时,下面的资料会跟着发生变化,但是,一旦你在此时滚动了鼠标中键,那么下面的内容就会变化到上一条记录或是下一条记录,这样上下就不对应了,很容易传达错误的信息。如果选择框是学生姓名下面是学生信息的话,那么滚动中键后,姓名与信息就不同了,就像是完全换了个人一样。
所以,在很多时候,我们需要避免Access这种自作多情,甚至可以说是画蛇添足的做法。
具体步骤也很简单,虽然代码很多,但是你需要做的只是简单的“复制”,“粘贴”,简单三步就可以完成。
实例代码请从这里下载:Access禁止鼠标中键滚轮代码实例 (微软网盘存储,请放心下载,不能用迅雷)
首先,要建立一个模块,这个模块(实例文件中的名字是Basmousehook)说白了就是一堆代码,你直接复制过去就是,模块名称随便定。
然后,在窗体上声明一个对象变量。
 Private MouseHook AsObject(这个声明必不可少,否则会提示缺少对象)
最后,在Form_open事件中输入执行代码:(把下面的代码复制到窗体的代码编写窗口就OK了!)
Private SubForm_Open(Cancel As Integer)
       Set MouseHook = NewMouseHook(Me)
       MouseHook.Scroll = False
EndSub
至此,大功告成,记录再也不会变动了,鼠标中键滚动不起作用了!
本站文章内容,部分来自于互联网,若侵犯了您的权益,请致邮件chuanghui423#sohu.com(请将#换为@)联系,我们会尽快核实后删除。
Copyright © 2006-2023 DBMNG.COM All Rights Reserved. Powered by DEVSOARTECH            豫ICP备11002312号-2

豫公网安备 41010502002439号