キーが何回押されたかその２ (ID:140890)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 【shift】を押していない時が If Shift = 0 Then なのですから 【shift】を押した時は If Shift = 1 Then を想像出来るかと。 コンピューターは２進数（０と１）を使う事からもゼロに対するのはイチ。 電気のスイッチ（パソコンの電源スイッチ）にも ０／１ と言う表示が あったりしますね。 ０ は切り（ＯＦＦ）で１は入り（ＯＮ） 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 '### ここから追加 If Shift = 1 Then Select Case KeyCode Case vbKeyA A_count = A_count - 1 Label_A.Caption = "Ａの回数 ： " & A_count End Select End If '### ここまで End Sub