Office中国论坛/Access中国论坛

标题: 鼠标滚轮实现翻页效果 [打印本页]

作者: mlwbj    时间: 2008-12-3 23:40
标题: 鼠标滚轮实现翻页效果
我正在做一个ACCESS的窗体,可是属性太多了,一个屏幕显示不开,想实现滚动鼠标滚轮上下翻页的效果,可是现在滚动鼠标滚轮是数据切换,不知道怎么实现在窗体上利用鼠标滚轮翻页呢?
请大家帮我把这个事件填全。
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)

End Sub



谢谢大家的帮助。
作者: Henry D. Sy    时间: 2008-12-3 23:54
是不是转动滚动条
不是太明白你的意思。
作者: mlwbj    时间: 2008-12-3 23:57
就是转动鼠标滚轮,实现页面上下翻动。
作者: mlwbj    时间: 2008-12-3 23:58
恩,就是带动滚动条上下滚动。
作者: Henry D. Sy    时间: 2008-12-4 00:04
原帖由 mlwbj 于 2008-12-3 23:58 发表
恩,就是带动滚动条上下滚动。

  1. Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
  2. '    SendKeys IIf(Count > 0, "{PGDN}", "{PGUP}")
  3.     Dim strKey As String
  4.     If Count > 0 Then
  5.         strKey = "{PGDN}"
  6.     Else
  7.         strKey = "{PGUP}"
  8.     End If
  9.     SendKeys strKey
  10. End Sub
复制代码


直接用注释掉的代码也可以。
作者: mlwbj    时间: 2008-12-4 00:39
怎么显示运行时错误‘70’:拒绝权限。
SendKeys strKey
这一句显示为带黄底的提示。

我查询了一下70的错误

权限被否定(错误 70)
   

试图对写保护的磁盘进行写操作,或要访问加锁文件。此错误有以下的原因和解决方法:

为顺序 Output 或 Append 写,打开一个写保护文件。
用 Input 方式打开文件,或者修改文件的写保护属性。

用顺序 Output 或 Append 方式,打开有写保护的磁盘上的文件。
从磁盘上删除写保护,或者使用 Input 方式文件。

写入已被其他进程锁定的文件。
等其他进程释放后再打开此文件。

试图访问注册表,但用户权限不包括此类注册表访问。
在 32 位 Microsoft Windows 系统上,用户必须有访问当前系统注册表的权限。改变用户权限,或由系统管理员来修改。

详细信息,可选取有问题的项目,并按下 F1 (在Windows中)或HELP(在Macintosh中)键。
作者: mlwbj    时间: 2008-12-4 00:54
直接用注释掉的代码也不行。------还是很感谢你了,[:12]
作者: mlwbj    时间: 2008-12-4 01:15
为什么SendKeys 语句不行呢
作者: Henry D. Sy    时间: 2008-12-4 08:44
是有问题,大家探讨
1. 在非绑定的窗体上放两个标签(上下各放一个),测试通过
2. 在非绑定的窗体上放两个文本框,失败
3. 绑定窗体,失败。
作者: mlwbj    时间: 2008-12-4 22:03
呜,没人帮忙了。大家再接再厉啊。
作者: Henry D. Sy    时间: 2008-12-5 09:42
  1. Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
  2.     On Error Resume Next
  3.     If Count > 0 Then
  4.         DoCmd.GoToRecord , , acPrevious
  5.         SendKeys "{PGDN}"
  6.     Else
  7.         DoCmd.GoToRecord , , acNext
  8.         SendKeys "{PGUP}"
  9.     End If
  10. End Sub
复制代码


用这个代码,如果当其记录是第一条或者新纪录,则出现错误。
发现,滚动记录比用代码跳转记录发生的时间晚
再者,就算没有错误发生也不理想,查阅记录还好,如果编辑记录的话,你还没有编辑完毕记录已经保存了。
作者: mlwbj    时间: 2008-12-5 22:52
谢谢[:12]




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3