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

名前

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

本文 質問者の環境が、現行バージョン(VB.NET 2003)と仮定して。 Private Declare Function GetKeyboardState Lib "user32" ( _ ByVal KeyState() As Byte _ ) As <MarshalAs(UnmanagedType.Bool)> Boolean Private Sub Form1_KeyUpDown(ByVal sender As Object, _ ByVal e As KeyEventArgs) Handles MyBase.KeyDown, MyBase.KeyUp Label1.Text = "" Label2.Text = "" If e.Control Then Dim KeyState(255) As Byte GetKeyboardState(KeyState) If CBool(KeyState(Keys.LControlKey) And &H80) Then Label1.Text = "左Ctrl" End If If CBool(KeyState(Keys.RControlKey) And &H80) Then Label2.Text = "右Ctrl" End If End If End Sub