VB题目请教!!

来源:百度知道 编辑:UC知道 时间:2024/09/28 10:11:13
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
Text2.Text = Chr(KeyAscii)
End If
End Sub

哪里错了!!! 运行后在文本框1中输入字母加数字只显示最后一个数字
为什么运行后在文本框1中输入字母加数字 只显示最后1个数字

要想都显示,应该把Text2.Text = Chr(KeyAscii)
改为Text2.Text = Text2.Text + Chr(KeyAscii)

KeyAscii >= 48 And KeyAscii <= 57
Ascii值在48和57之间的只有0——9 这10个数字,所以文本框不可能接收你输入的字母。

楼上的回答很清楚了,不需要再过多解释