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

你已经失去了＆＃34; Handes Me.KeyDown ＆＃34;最后你的处理程序...注意第一行的结尾：

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

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