Keydownイベントについて

質問

VB6.0について質問です。
FormでKeydownイベントが動きません。
どのような原因が考えられますか？
コードは以下のように記述しています。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF8
cmd_F8.Value = True
Case vbKeyF9
cmd_close.Value = True
End Select
End Sub

回答No.1

investyou · ベストアンサー

formのkeyPreviewがfalseになっていませんか？

回答No.3

vbotoko

Form_KeyDown　だけでなく、KeyUp, KeyPress のイベントも試してみてください。VB6固有のよくある問題です。コントロールを沢山使うと、急にキーイベントが取れなくなる事があります。裏でひっかかているのでしょう。

回答No.2

noname#22222

コードにも問題がありませんか

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
　　Select Case KeyCode
　　　　Case vbKeyF8
　　　　　　cmd_F8.Value = True
　　　　　　cmd_close.Value = False　<-- 不要かも！
　　　　　　　KeyCode = 0　<-- オマジナイ！
　　　　Case vbKeyF9
　　　　　　cmd_F8.Value = False　<-- 不要かも！
　　　　　　cmd_close.Value = True
　　　　　　　KeyCode = 0　<-- オマジナイ！
　　　　Case Else
　　End Select
End Sub

※オマジナイはしていた方がよいかも！

それに

cmd_close.Enabled = False

では！？