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个数字
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个数字,所以文本框不可能接收你输入的字母。
楼上的回答很清楚了,不需要再过多解释