左右別コントロールボタン押下時のキーイベントを取得するには？ (ID:89007)

名前

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

本文 あー、でも、こんな具合のなら、なんとか出来るみたい。 …全然ダメダメかも。 'Form1 Option Explicit Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Private Const VK_LCONTROL = &HA2 Private Const VK_RCONTROL = &HA3 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Shift And vbCtrlMask Then If GetKeyState(VK_LCONTROL) And 128 Then Debug.Print "L" ElseIf GetKeyState(VK_RCONTROL) And 128 Then Debug.Print "R" End If End If End Sub