[求助]如何捕捉 PageUp PageDown 事件？

secowu

如何捕捉 PageUp PageDown 事件？

PageUp

PageDown

相当于记录的向前或向后

我想在这个事件后，进行某些控件的锁定

找了找，不知道应该用哪个事件

多谢！

huanghai

设键预览为TRUE,然后捕获KEYDOWN事件的KEYCODE

secowu

以下是引用huanghai在2006-1-11 9:36:00的发言：
设键预览为TRUE,然后捕获KEYDOWN事件的KEYCODE

好的，谢谢

我试试

secowu

非常感谢小雨提供的范例

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    'MsgBox KeyCode
    Select Case KeyCode
        Case 33, 34
        '如果 KeyCode 是 PAGEUP or PAGEDOWN 那么清除键值
            KeyCode = 0
    End Select
   
End Sub


Private Sub Form_Load()
    Me.KeyPreview = True
End Sub

Private Sub 姓名_KeyPress(KeyAscii As Integer)
    Dim strCharacter As String

    ' Convert ANSI value to character string.
    strCharacter = Chr(KeyAscii)
    ' Convert character to upper case, then to ANSI value.
    KeyAscii = Asc(UCase(strCharacter))
End Sub