キーが何回おされたか知りたい。

解決

大変困っています 2008-11-20 00:09:00 No: 140860 IP: 192.*.*.*

初心者で申し訳ありません。私は仕事である種類の数をカウンターで押し数えているのですがカウンターが２０個もあり場所をとり大変なので、ｖｂ６を使ってノートパソコンでカウントしようと考えています。内容はAのボタンが何回おされたか、Bのボタンが何回おされたか。。と２０通り作ろうとＶＢ入門書を買いKeypressなどプロシージャを組んだのですが、まったくうまくいきません。どなたかお知恵をおかしくださし（ｔｔ）。。。

編集削除

shazbot 2008-11-20 17:55:52 No: 140861 IP: 192.*.*.*

できないところがどこなのかが、ちょっとわかりかねますが・・・
http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard21.htm
このへんとか見てみてはどうでしょう？

編集削除

１１月 2008-11-20 20:00:56 No: 140862 IP: 192.*.*.*

下記は単純にキーＡとキーＢが押された回数をカウントして、その回数を表示します。
実際にはクリアするタイミングやその処理、その他の諸々の処理、対応が
必要になると思われます。

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

編集削除

大変助かりました 2008-11-20 23:49:03 No: 140863 IP: 192.*.*.*

shazbotさん、１１月さん、ありがとうございました。。解決でき、それとともに感動しました。shazbotさん色々な例がわかりました。１１月さんズバリのプローシージャーずっと苦しんでいたので助かりました。本当にありがとうございました。

編集削除