转:在绑定数据窗中，如何阻止按PageUp、PageDown及箭头键跳到其它记录？

Macinley

[B]转:在绑定数据窗中，如何阻止按PageUp、PageDown及箭头键跳到其它记录？
和 阻止鼠标的滚轮？[/B]


[URL=http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&RootID=30731&ID=30731][/URL]

zhengjialon

用这个锁定试试，滚轮不会
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim intCtrlDown As Integer
    intCtrlDown = (Shift And acCtrlMask) > 0
    If intCtrlDown And KeyCode = vbKeyZ Then
        MsgBox "现在不可用Ctrl+Z撤消！" & KeyCode, 48
        KeyCode = 0
    ElseIf KeyCode = vbKeyEscape Then
        MsgBox "现在不可用ESC键撤消！" & KeyCode, 48
        KeyCode = 0
    End If
End Sub