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」上月底您的處理程序。 ..note第一行的末尾：

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。