在Visual Basic .NET中KeyDown事件无法区分大小写字符码的问题

哦，这个问题我太熟悉了！你现在碰到的情况，根源在于KeyDown事件里的KeyCode属性本质是物理按键的编码——它只关心你按了键盘上的哪个键，完全不区分你有没有按Shift切换大小写。所以'a'和'A'对应的是同一个物理键，返回的KeyCode自然一模一样啦。

为什么会这样？ #

KeyEventArgs.KeyCode是基于键盘硬件的标识符，比如键盘上的A键，不管你按不按Shift，它的KeyCode都是Keys.A。它不会处理输入法、大小写切换这些上层的输入逻辑，所以没法直接区分大小写字母的字符码。

两种解决方案 #

方案1：用KeyPress事件直接获取字符码（推荐） #

如果你核心需求是获取用户输入的**实际字符（含大小写）**的编码，那KeyPress事件是最佳选择。它的KeyPressEventArgs.KeyChar属性会直接返回用户输入的字符，已经处理好了大小写、输入法转换这些细节：

Public Class Form1
    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        ' 将字符转换为对应的ASCII码
        Dim charCode As Integer = Asc(e.KeyChar)
        MsgBox($"输入字符: {e.KeyChar}，字符码: {charCode}", MsgBoxStyle.Information)
    End Sub
End Class

方案2：在KeyDown事件中结合Shift状态判断 #

如果因为某些原因必须使用KeyDown事件（比如需要同时处理特殊按键），那可以通过e.Shift属性判断Shift键是否被按下，进而区分大小写字母的字符码：

Public Class Form1
    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        Dim charCode As Integer

        ' 仅处理字母键的情况
        If e.KeyCode >= Keys.A AndAlso e.KeyCode <= Keys.Z Then
            If e.Shift Then
                ' Shift按下，对应大写字母的ASCII码（65-90）
                charCode = Asc(e.KeyCode.ToString().ToUpper())
            Else
                ' Shift未按下，对应小写字母的ASCII码（97-122）
                charCode = Asc(e.KeyCode.ToString().ToLower())
            End If
            MsgBox($"字符码: {charCode}", MsgBoxStyle.Information)
        Else
            ' 非字母键直接返回KeyCode的数值
            MsgBox($"字符码: {e.KeyCode}", MsgBoxStyle.Information)
        End If
    End Sub
End Class

小提示 #

• KeyPress事件专注于用户输入的字符，适合处理文本输入场景；
• KeyDown事件专注于物理按键的操作，适合处理快捷键、功能键这类场景。

内容的提问来源于stack exchange，提问作者Matteo Figini