Question

关于VB中文本框输入数字的判断

程序目的是判断文本框输入是否是数字，如果是数字，则标签栏显示的是输入的数字，我的代码如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
Label1.Caption = Text1.Text
Else
End If
End Sub
可结果显示的是输入数字只能截取一部分数字，最后个位数字不能显示，例如输入255，显示25，输入566，显示56.输入一位数字，则不显示，请问这是什么原因呢？
只需在文本框change事件里写Label1.Caption = Text1.Text，问题就解决了。谢谢大家的回答

Answer 1

Private Sub Text1_Change()
If Asc(Right(Text1.Text, 1)) >= 48 And Asc(Right(Text1.Text, 1)) <= 57 Then
Label1.Caption = Label1.Caption & Right(Text1.Text, 1)
End If
End Sub

应该是这样的你的程序错误
if KeyAscii >= 48 And KeyAscii <= 57 Then
Label1.Caption = Text1.Text
如果刚输入的是数字执行之后标签里会显示文本中的所有字符

Answer 2

KeyPress是按下去，输入了还没处理呢就进了你的函数。。 text1.text还没写入当前输入的key，建议用keyup

Answer 3

KeyPress是按下就发生
Text1.Text
还没更新的吧
试试
Private
Sub
Text1_KeyUp(KeyCode
As
Integer,
Shift
As
Integer)
If
KeyCode
>=
48
And
KeyCode
<=
57
Then
’字母区上数字1-9
Label1.Caption
=
Text1.Text
Else
End
If
End
Sub

Answer 4

KeyPress是按下就发生 Text1.Text
还没更新的吧 试试
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode >= 48 And KeyCode <= 57 Then ’字母区上数字1-9
Label1.Caption = Text1.Text
Else
End If
End Sub

Answer 5

Label1.Caption = Text1.Text
改为
Label1.Caption+ = Text1.Text
试试看