捕捉键盘上面的字符的问题！

Question

各位大侠：
    当我在textbox控件里面输入字符的时候，我怎么去捕捉每输入一个字符的值呢？

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Debug.Print "字符：" & Chr(KeyAscii) & "数值：" & KeyAscii
End Sub

Answer 2

怎么样将我输入的字符自动变成大写？输入一个字符自动显示大写（abc变成ABC）

Answer 3

我想要的结果是:比喻我要输入abc,首先我输入第一个字母a,这时textbox上面显示A,然后我输入b,这时textbox上面显示AB,然后我输入c,这时textbox上面显示ABC

Answer 4

Private Sub Text1_KeyPress(KeyAscii As Integer)
    text1.text=ucase(text1.text)
End Sub

Answer 5

哦不好意思。刚才那个没效果， 这样才对。 已测
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub