チェックボックスへのボタン割り当てについて (ID:119866)

名前

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

本文 keypress keydown keyup などのイベントでキー情報を取得して valueを変更させてください。 Private Sub Check1_KeyPress(Index As Integer, KeyAscii As Integer) Select Case KeyAscii Case 97 If Check1(0).Value = 0 Then Check1(0).Value = 1 Else Check1(0).Value = 0 End If Case 98 If Check1(1).Value = 0 Then Check1(1).Value = 1 Else Check1(1).Value = 0 End If End Select