プロが教えるわが家の防犯対策術!

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

A 回答 (3件)

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

    • good
    • 0

Form_KeyDown だけでなく、KeyUp, KeyPress のイベントも試してみてください。

VB6固有のよくある問題です。コントロールを沢山使うと、急にキーイベントが取れなくなる事があります。裏でひっかかているのでしょう。
    • good
    • 0

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



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

では!?
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!