Question

VB程序如下，当文本框有焦点时，正常， 当文本框失去焦点时，文本框不能捕捉按键，请问怎么改？

Dim a As String
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Text1.Text + a + vbCrLf
a = ""
Else
a = a + Chr(KeyAscii)
End If
End Sub
Private Sub Command1_KeyPress(KeyAscii As Integer)
KeyPress(KeyAscii)
End Sub
加上上面的程序也不行！

Answer 1

将窗体的 keypreview 属性设置为 TRUE

如下图：

追问

已经这样设置了，失去焦点时不能捕捉

追答

按钮 不响应回车键。
解决办法：在按钮活动焦点的时候，强制转移焦点。