按下shift，然后自动向上？（避免长按）

Question

一些帮助...如何在按下 shift 时使其成为可能，

然后系统瞬间自动释放，

因此即使它仍然被用户在键盘上按下，

但是 vb.net 系统已经释放了 shift 键？

为了避免长按或按住键...

---

我已经很想不通了，因此在进行了一些认真的研究后决定在这里发布一个问题，如果您知道一些技巧可以使这成为可能，请回复...

Answer 1

您可以处理 KeyDown 事件并检查是否按下了Shift。

e.KeyCode = Keys.Shift

您可以使用 user32.dll 库并发送密钥版本。 &H10 是 Shift 密钥代码。 Here 是所有密钥代码的列表（将 0x 替换为 &H）。 &H2 表示释放。如果您想按，请输入&H0。

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)

keybd_event(&H10, 0, &H2, 0)

您可能想要处理整个表单的 KeyDown 事件。

Form.KeyPreview = True

这是一个例子。

Public Class Form1
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Me.KeyPreview = True
    End Sub

    Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Shift Then
            Form1.keybd_event(&H10, 0, &H2, 0)
        End If
    End Sub
End Class