Access 2003: 简单三步,禁止鼠标中键滚轮
广告投放★自助友情CMS落伍广告联盟晒乐广告联盟脉动广告联盟品味广告联盟
广告位可自定样式联系QQ:4285248个文字广告月20元广告联系QQ:428524广告位可自定样式
8个文字广告月20元黄金广告位每月20元广告位可自定样式联系QQ:428524广告位可自定样式
左旋肉碱、全国包邮
买二送一、无效退款

文章浏览→编程相关Access→Access 2003: 简单三步,禁止鼠标中键滚轮

Access 2003: 简单三步,禁止鼠标中键滚轮
Access 2003: 简单三步,禁止鼠标中键滚轮

Access是个很勤快的家伙,但是有的时候出力不讨好。

在窗体中,如果为窗体指定了记录来源,那么在窗体上滚动鼠标中键,那么所显示的记录就会随着滚轮不断变化。但是,很多时候我们却并不需要这一点,尤其是涉及到筛选的时候。

比如,在窗体尚不有个选择框,下面现实与上面选择框内容相关的资料,在选择框内容发生变化时,下面的资料会跟着发生变化,但是,一旦你在此时滚动了鼠标中键,那么下面的内容就会变化到上一条记录或是下一条记录,这样上下就不对应了,很容易传达错误的信息。如果选择框是学生姓名下面是学生信息的话,那么滚动中键后,姓名与信息就不同了,就像是完全换了个人一样。

所以,在很多时候,我们需要避免Access这种自作多情,甚至可以说是画蛇添足的做法。

具体步骤也很简单,虽然代码很多,但是你需要做的只是简单的“复制”,“粘贴”,简单三步就可以完成。

实例代码请从这里下载:Access禁止鼠标中键滚轮代码实例 (微软网盘存储,请放心下载,不能用迅雷)

首先,要建立一个模块,这个模块(实例文件中的名字是Basmousehook)说白了就是一堆代码,你直接复制过去就是,模块名称随便定。

然后,在窗体上声明一个对象变量。

 Private MouseHook AsObject(这个声明必不可少,否则会提示缺少对象)

最后,在Form_open事件中输入执行代码:(把下面的代码复制到窗体的代码编写窗口就OK了!)

Private SubForm_Open(Cancel As Integer)
       Set MouseHook = NewMouseHook(Me)
       MouseHook.Scroll = False

EndSub

至此,大功告成,记录再也不会变动了,鼠标中键滚动失灵了!

所属分类:编程相关Access    作者:荡凯网络    时间:2010-7-24 16:39:00

文章导航