鼠标滚轮实现翻页效果

mlwbj

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

End Sub



谢谢大家的帮助。

Henry D. Sy

是不是转动滚动条
不是太明白你的意思。

mlwbj

就是转动鼠标滚轮，实现页面上下翻动。

mlwbj

恩，就是带动滚动条上下滚动。

Henry D. Sy

原帖由 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

怎么显示运行时错误‘70’：拒绝权限。
SendKeys strKey
这一句显示为带黄底的提示。

我查询了一下70的错误

权限被否定（错误 70）
   

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

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

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

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

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

详细信息，可选取有问题的项目，并按下 F1 （在Windows中）或HELP（在Macintosh中）键。

mlwbj

直接用注释掉的代码也不行。------还是很感谢你了，[:12]

mlwbj

为什么SendKeys 语句不行呢

Henry D. Sy

是有问题，大家探讨
1. 在非绑定的窗体上放两个标签（上下各放一个），测试通过
2. 在非绑定的窗体上放两个文本框，失败
3. 绑定窗体，失败。

mlwbj

呜，没人帮忙了。大家再接再厉啊。