1

我正在制作一个使用热键的应用程序。在设置表单中，用户可以通过单击按钮（外观设置为按钮的复选框）设置热键，然后将按钮文本设置为该键。

问题是我找不到向用户显示密钥名称的方法。当用户点击返回键（例如）时，它会显示“13”。如何在没有巨大的 if / switch 语句的情况下向用户显示键名？

我当前的代码：

Private Sub SelectkeyBtn_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles SelectkeyBtn.KeyDown
    If SelectkeyBtn.Checked = True Then
        SelectkeyBtn.Text = e.KeyData
        SelectkeyBtn.Checked = False
    End If
End Sub

编辑

我发现这个vb.net get name of key from e.keydata它帮助了我。

我的代码现在看起来像这样：

<DllImport("User32.dll")> _
Public Shared Function ToAscii(ByVal uVirtKey As Integer, ByVal uScanCode As Integer, ByVal lpbKeyState As Byte(), ByVal lpChar As Byte(), ByVal uFlags As Integer) As Integer
End Function

<DllImport("User32.dll")> _
Public Shared Function GetKeyboardState(ByVal pbKeyState As Byte()) As Integer
End Function

Public Shared Function GetAsciiCharacter(ByVal uVirtKey As Integer) As Char
    Dim lpKeyState As Byte() = New Byte(255) {}
    GetKeyboardState(lpKeyState)
    Dim lpChar As Byte() = New Byte(1) {}
    If ToAscii(uVirtKey, 0, lpKeyState, lpChar, 0) = 1 Then
        Return Convert.ToChar((lpChar(0)))
    Else
        Return New Char()
    End If
End Function

Private Sub SelectkeyBtn_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles SelectkeyBtn.KeyDown
    If SelectkeyBtn.Checked = True Then
        SelectkeyBtn.Text = GetAsciiCharacter(e.KeyData)
        SelectkeyBtn.Checked = False
    End If
End Sub

当我按下键盘上的某个键（如 a、z、f、e、1、+、/..

当我按 DELETE、F2、NUMLOCK 等时，按钮文本为空..（见截图） 在此处输入图像描述

大卫，

4

0 回答 0