Question

VB编程如下,为什么按钮KeyPress无效啊？ 按钮有焦点时按键，Text1.Text 没变化，为什么接收不到按键啊？

Private Sub command1_KeyPress(KeyAscii As Integer)
If KeyAscii > 0 Then Text1.Text = "A"
End Sub
按ENTER键时没反应为什么？

Answer 1

你的代码说的是command1的KeyPress，可是你确定你的程序运行时焦点在command1上么？？？
如果你只是要利用回车键来完成时间的话，可以设置command的default属性为true，这样按下回车键就相当于响应command的click事件，代码可以写在click事件里

Answer 2

代码上看没问题呀，Text1.Text 始终会为"A"呀。

这句代码的意思是只要有按键，Text1.Text 就被赋值为 A。

追问

按下ENTER键时，不为A，说明没接收ENTER键，为什么？

Answer 3

'按下回车键引发了Command1_Click事件。
Private Sub command1_KeyPress(KeyAscii As Integer)
If KeyAscii > 0 Then Text1.Text = "A"
End Sub
Private Sub Command1_Click()
command1_KeyPress (13)
End Sub

追问

为什么引发了Command1_Click事件后，command1_KeyPress就不触发了呢？

追答

'不知道是什么原因，但是你加上下面的代码就可以调用command1_KeyPress的回车键事件了。
Private Sub Command1_Click()
command1_KeyPress (13)
End Sub