e.KeyCode 不想为我工作

Question

所以我正在尝试编写一些简单的代码，在按下 "g" 键时打开或关闭某些内容。我会让你看一下代码，希望它是正对着我的东西...

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs)
    If e.KeyCode = Keys.G Then
        If Label2.Text = "Off" Then
            Label2.Text = "On"
            Label2.ForeColor = Color.Green
        Else
            Label2.Text = "Off"
            Label2.ForeColor = Color.Red
        End If
    End If
End Sub

Answer 1

您不知何故丢失了处理程序末尾的“Handes Me.KeyDown”...请注意第一行的末尾：

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    If e.KeyCode = Keys.G Then
        If Label2.Text = "Off" Then
            Label2.Text = "On"
            Label2.ForeColor = Color.Green
        Else
            Label2.Text = "Off"
            Label2.ForeColor = Color.Red
        End If
    End If
End Sub

此外，请确保您已将 Form 的 KeyPreview 属性设置为 True。

e.KeyCode 不想为我工作

e.KeyCode Doesn't want to work for me

vb.net

keypress