nevcry |
2013-08-05 13:48 |
OnMessage 快捷键控制问题..
使用OnMessage事件函数后 发现有些功能键没有值输出. Private Sub Player1_OnMessage(ByVal nMessage As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) Select Case nMessage Case WM_KEYDOWN Label2.Caption = wParam Select Case wParam Case vbKeyF4 Unload Me Case vbKey2 case vbkeyleft '方向键左 case vbkeyright '方向键右 case vbkeyup '方向键上 case vbkeydown '方向键下 End Select Case WM_KEYUP msgbox "按键弹起" End Select OnMessage 函数中 wParam 的值 就键盘上的 方向键 和 ALT 键,回车键,TAB键没有值输出 为什么呢?
|
|