掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
キーが何回押されたかその２ (ID:140888)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
前回keyDOWNを教えていただき、 Dim A_count As Integer Dim B_count As Integer Private Sub Form() A_count = 0 B_count = 0 End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 0 Then Select Case KeyCode Case vbKeyA A_count = A_count + 1 Label_A.Caption = "Ａの回数 ： " & A_count Case vbKeyB B_count = B_count + 1 Label_B.Caption = "Ｂの回数 ： " & B_count End Select End If End Sub を教えて頂き大変助かっているのですが【shift】+Ａを１回押したらＡが１減算したいのですが vbkeya+vbkeyshiftと定義しているのですがうまくいきません。各ホームページを細かくみたのですが、明確なのがなく、教えていただけませんでしょうか？すみません
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.