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

如何禁用鼠标滚轮?

 

作者:  摘自:  录入:cg1  时间:2002-11-20  浏览人次:4324


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

 

简述:

 


请注意:目前为止该问题已经基本解决了,请用“用api禁止鼠标滚轮”搜索本站文章

AccessXP 下写入一下代码可以解决一部分问题:

增加记录时,禁止使用滚轮(经测试通过) 
sub FORM_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) 
if count > 0 then '当滚轮向后转 
If Me.FORM.CurrentRecord = 1 Then '判断首记录是否获得焦点 
else
docmd.gotorecord , ,acprevious ,1  
End if 
End if 
end sub 


禁止使用滚轮(经测试只有首末记录不通过) 
sub FORM_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) 
if count > 0 then '当滚轮向后转 
If Me.FORM.CurrentRecord = 1 Then '判断首记录是否获得焦点 
else:docmd.gotorecord , ,acprevious ,1  
End if 
End if 
if count < 0 then.....................
...........

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

 


上一篇:如何进行ODBC注册?2

下一篇:如何将Access程序打包(编译)成EXE文件用以发布?

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