vb.net – 如何捕获Ctrl Alt RShftKey

发布时间：2020-12-17 00:18:46 所属栏目：大数据来源：网络整理

导读：有一段时间我试图在常见的VBNET密钥处理程序下捕获Ctrl Alt右移键. 这是我的测试： If e.Control And e.Alt And e.KeyCode = Keys.Space Then MsgBox("CTRL + ALT + SPACE") ' This work End If If e.Control And e.Shift And e.KeyCode = Keys.F10 Then Msg

有一段时间我试图在常见的VBNET密钥处理程序下捕获Ctrl Alt右移键.
这是我的测试：

If e.Control And e.Alt And e.KeyCode = Keys.Space Then
        MsgBox("CTRL + ALT + SPACE") ' This work
    End If

    If e.Control And e.Shift And e.KeyCode = Keys.F10 Then
        MsgBox("CTRL + SHIFT + F10") ' This work
    End If

    If e.Control And e.Alt And e.KeyCode = Keys.ShiftKey Then
        MsgBox("CTRL + ALT + SHIFT") ' This work
    End If

    If e.Alt And e.Shift And e.KeyCode = Keys.LWin Then
        MsgBox("ALT + SHIFT + LEFT WINDOWS") ' This work
    End If

    If e.Control And e.Alt And e.KeyCode = Keys.RShiftKey Then
        MsgBox("CTRL + ALT + RIGHT SHIFT") ' This don't work
    End If

Windows 7,WinForms,VB2008,.NET framework 2.0

为什么我在描述的情况下无法捕捉Ctrl Alt右移键？
或者,如何捕获Ctrl Alt右移键组合？

使用标准VB.NET方法无法检测Shifts之间的差异.
您必须为此挂钩Windows API：

<System.Runtime.InteropServices.DllImport("user32.dll")> _
    Private Shared Function GetAsyncKeyState(vKey As Keys) As Short
    End Function

    Private Sub Form2_KeyDown(sender As Object,e As KeyEventArgs) Handles Me.KeyDown

        If e.Control And e.Alt And e.Shift Then

            If Convert.ToBoolean(GetAsyncKeyState(Keys.LShiftKey)) Then
                MsgBox("CTRL + ALT + LEFT SHIFT")
            ElseIf Convert.ToBoolean(GetAsyncKeyState(Keys.RShiftKey)) Then
                MsgBox("CTRL + ALT + RIGHT SHIFT")
            End If

        End If

    End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!