请教：PageDown事件如何写代码？

竹笛

在窗体上，当操作员用PageDown翻到下一记录时，如何产生一个事件？
例如：
当用户按了一下PageDown键时，
提示：msgbox "您按了一下PageDown键"

谢谢！

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

eio

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]

竹笛

谢谢eio！