Office中国论坛/Access中国论坛

标题: 请教：PageDown事件如何写代码？ [打印本页]

作者: 竹笛 时间: 2003-1-7 02:16
标题: 请教：PageDown事件如何写代码？
在窗体上，当操作员用PageDown翻到下一记录时，如何产生一个事件？
例如：
当用户按了一下PageDown键时，
提示：msgbox "您按了一下PageDown键"

谢谢！

[此贴子已经被竹笛于2003-1-6 18:15:32编辑过]

作者: eio 时间: 2003-1-7 03:19
标题: 看看是否合适……
Private Sub Form_Load()
Me.KeyPreview = True '设置窗体按键
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyPageDown Then '判断按键
MsgBox "请不要按PageDown！"
KeyCode = vbKeyPageUp '强行返回
End If
End Sub
[em13][em13][em13][em13][em13][em13][em13]

作者: 竹笛 时间: 2003-1-7 03:57
谢谢eio！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)