关于Vb 代码

为什么我运行时是要按确定后才能在文本框出现按下的字母？

应该要先在文本框出现字母 再弹出提示框的

代码：
Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= 97 And KeyAscii <= 122 Then
MsgBox "你按下了小写字母" & Chr(KeyAscii) & "!"

End If

If KeyAscii >= 65 And KeyAscii <= 90 Then
MsgBox "你按下了大写字母" & Chr(KeyAscii) & "!"

End If
End Sub
请问哪出错啦？谢谢！

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode >= vbKeyA And KeyCode <= vbKeyZ And Shift <> 1 Then
MsgBox "你按下了小写字母" & LCase(Chr(KeyCode)) & "!"
End If
If KeyCode >= vbKeyA And KeyCode <= vbKeyZ And Shift = 1 Then
MsgBox "你按下了大写字母" & Chr(KeyCode) & "!"
End If
End Sub

KeyPress是你按下键时就发生的事件，比text显示得早。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息