掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
キーが何回おされたか知りたい。 (ID:140862)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
下記は単純にキーＡとキーＢが押された回数をカウントして、その回数を表示します。 実際にはクリアするタイミングやその処理、その他の諸々の処理、対応が 必要になると思われます。 Form1 上に Label_a と Label_b を置いて下さい。 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
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.