vb怎么设计几个键盘按钮事件

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

select case KeyCode
case vbKeyF1
case vbKeyReturn
case ....
end select

end Sub

怎么会看不明白呢，也就是你需要什么按钮事件就在那写就行了。
比方说你需要F1按钮事件就
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

select case KeyCode
case vbKeyF1
这里写你要写的东西
end select

end Sub

onkeypress下用SELECT case