如何转换变量翻一番（键值）中的KeyDown在Visual Basic

Question

我有这样的代码：

Private Sub key(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown 
    If e.KeyValue = Keys.Enter Then 
     If FuSt = False Then 
      FuSt = True 
      My.Computer.Audio.Play(My.Settings.Full) 
     Else 
      FuSt = False 
      My.Computer.Audio.Play(DIRECOTRY) 
     End If 
    End If 
    If e.KeyValue = b1 Then 
     My.Computer.Audio.Play(SoundsDir & "1.wav") 
    End If 
End Sub 

但是，当我想玩B1（Z键在键盘上），我有这样的错误：

Conversation from "z" to Double is incorrect (Somethink like that)

你能帮我吗？

Answer 1

将键分配给变量b1尝试如下所述。

Keys是一个枚举。

Dim b1 As Keys 
b1 = Keys.Z 

像汉斯帕桑特评论，如果你想使用KeyPress事件（推荐），试试下面的代码。

Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress 
     If e.KeyChar = Char.ToLower(ChrW(Keys.Z)) Then 
      MsgBox("Z selecetd") 
     End If 
    End Sub 

，或者如果你想要去的KeyDown事件，试试下面的代码。

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown 
    If e.KeyCode.Equals(Keys.Z) Then 
     MsgBox("Z selecetd") 
    End If 
End Sub