| |
|
|
| | Как вариант:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyPageDown Or KeyCode = vbKeyPageUp Then KeyCode = 0
End Sub
'вместо этого можно присвоить в конструкторе свойству 'Перехват нажатия клавиш' - 'да'
Private Sub Form_Load()
KeyPreview = True '
End Sub
|
| |
| |
|
