大家看看这个问题,KEYPRESS后TEXTBOX的值的变化问题

Question

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim stext         
End Sub我想使STEXT的值等于连续输入的相加值,比如,我输入了一个5后,再输入一个3,哪结果就是53;如果输入了一个  王字,再输入一个五字,结果就是  王五
我的目的是实现增量查询

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim stext
 stext=Text1.Text & Chr(KeyAscii)
         
End Sub

Answer 2

楼上的方法怎么样？可以实现了吗？？？后面的chr(keyascii)会不会输入汉字时有影响。。

Answer 3

怎么会这么麻烦？
stext=text1.text难道不是你的结果？