请教键盘捕获问题

KenjiSato

文本框有个 更改 事件，在文本框中每按键就会启动改事件，但如何捕获键入的每个字符？

谢谢！

zhengjialon

引用TXET属性能获取你已经键入的值:
Private Sub 文本2_Change()
MsgBox 文本2.Text
End Sub

cai373

知道

KenjiSato

谢谢,但能否捕获每次键入的字符,不要显示所有的字符?

zhuyiwen

Private Sub Text0_KeyPress(KeyAscii As Integer)
    Debug.Print KeyAscii
    KeyAscii = 0
End Sub

KenjiSato

zhuyiwen,再请教
我把 text0 设了密码掩码后就不行了,我想把输入密码搞成IBM软件的密码模式,按一个键产生2个星号.

Text0.Text = Text0.Text & Chr(KeyAscii)

土豆

KEYPRESS事件里更改文本内容好像会干扰事件进行吧？