Событие Keypress не работает?

Question

Im кодирование в vb6 и для удовольствия подумал, что я буду играть с событием keypress, чтобы все двигалось. Я пришел к быстрому осознанию того, что ОЧЕНЬ ограниченное количество клавиш ответит на ключевые события пресса. Я хотел использовать клавиши со стрелками, но кажется, что для них есть зарезервированные команды (VBKeyUp, VBKeyDown, VBKeyRight, VBKeyLeft), они просто ничего не делают. есть ли объяснение для этого или у них просто нет поддержки? Использование кода im используется ниже.

Private Sub ListView67_KeyPress(KeyAscii As Integer) 
If KeyAscii = vbKeyUp Then 
Command1_Click 
End If 

If KeyAscii = vbKeyDown Then 
Command4_Click 
End If 

If KeyAscii = vbKeyRight Then 
Command2_Click 
End If 

If KeyAscii = vbKeyLeft Then 
Command3_Click 
End If 

End Sub 

Answer 1

Используйте KeyDown событие вместо KeyPress

Private Sub ListView67_KeyDown(KeyCode As Integer, Shift As Integer) 
If KeyCode = vbKeyUp Then 
Command1_Click 
End If 

If KeyCode = vbKeyDown Then 
Command4_Click 
End If 

If KeyCode = vbKeyRight Then 
Command2_Click 
End If 

If KeyCode = vbKeyLeft Then 
Command3_Click 
End If 

End Sub