実際にマウスをクリックせずに、ボタンをへこましたり戻したりするには (ID:74833)

名前

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

本文 サンプル 'FormのkeyPreview = Trueにしておく Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' End Sub Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) ' End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Call Command1_MouseDown(vbLeftButton, Shift, 0, 0) End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Call Command1_MouseUp(vbLeftButton, Shift, 0, 0) End Sub