Question

Visual Basic 怎么设置键盘的某一个英文字母按键按下去之后的反应？

比如按下"D"键之后会弹出窗口说你按下去了

Answer 1

Private Sub Form_KeyPress(KeyAscii As Integer)
If UCase(Chr(KeyAscii)) = "D" Then MsgBox "你你你居然按下去了！！！"
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Answer 2

'作者：星空无月(xkwy)
Private Sub Form_KeyPress(KeyAscii As Integer)
        MsgBox "你按下的按键是：" & Chr(KeyAscii)
End Sub

★注：窗体要能接收该事件，即当前输入焦点是窗体

追问

我不要这样的，我只是要固定的按键按下之后的情况

追答

那要么就在每一个可能获得焦点的相应事件下都写上该代码。

否则可以用比较高深的API，但是这个我并不太了解

追问

Private Sub form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbkeyd Then
MsgBox "你已按下D键！", , "ok"
End If
End Sub

我已经解决了，这些代码很难吗？只是你没听懂吧！

追答

试问：
①当你按下E键程序会有反应吗？
②新建一个窗体，再添加一个命令按钮，使用你的代码，你按下D键试试你的程序会有反应吗？