如何在制作代码时使用键盘按钮

Question

我想制作一个代码

pressing w button ; label1.text="u pressed w"

pressing thd down arrow ; label1.text="u pressed down arow"

我在案件中试过但没有发生任何事情

Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    Select Case e.KeyCode
        Case Keys.W
            MessageBox.Show("Move forward")
        Case Keys.A
            MessageBox.Show("Move left")
        Case Keys.S
            MessageBox.Show("Move back")
        Case Keys.D
            MessageBox.Show("Move right")
    End Select
End Sub

Answer 1

更改...

Select Case e.KeyCode

为...

Select Case e.KeyValue

它应该有用。