设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1165|回复: 6
打印 上一主题 下一主题

[窗体] [求助]在窗体里有个“鼠标滚动时”事件,是做什么用的?

[复制链接]
跳转到指定楼层
1#
发表于 2006-1-12 18:32:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在窗体里有个“鼠标滚动时”事件,是做什么用的?

我想禁止鼠标滚动

就是想让鼠标滚动等于无效

也就是说,不会跑到下一条记录

应该怎么办呢?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-1-12 19:03:00 | 只看该作者
我也想知道
3#
 楼主| 发表于 2006-1-12 19:28:00 | 只看该作者
呵呵,真

翻了VB的书,没找着

怎样禁止鼠标滚动
4#
 楼主| 发表于 2006-1-12 19:29:00 | 只看该作者
找到了,解决了。

谢谢

[此贴子已经被作者于2006-1-12 11:30:27编辑过]

5#
 楼主| 发表于 2006-1-12 19:43:00 | 只看该作者
用了这里的第二种方法,

容易导致ACCESS很久才会响应

http://access911.net/fixhtm/73FAB71E1ADC.htm
6#
 楼主| 发表于 2006-1-12 19:48:00 | 只看该作者
这里还有另外一个方法

偶正在测试中

http://access911.net/fixhtm/72FABF1E.htm
7#
 楼主| 发表于 2006-1-12 23:12:00 | 只看该作者
用了简的方法,还算比较不错

在此,让大家参考下:

Public jl As Long

Private Sub Command142_Click()
jl = Me.CurrentRecord '记录当前记录号
'Me.AllowEdits = True '窗体可编辑
'Me.AllowDeletions = True '窗体可删除
End Sub

Private Sub Command143_Click()
jl = 0
'Me.AllowEdits = False '窗体不可编辑
'Me.AllowDeletions = False '窗体不可删除

End Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-1-10 23:24 , Processed in 0.295781 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表