Question

VB文本框属性

如何从属性设置文本框只能输入数字，非要写代码？

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Chr(KeyAscii) '多分枝用Select case 语句比较好
Case "0" To "9" '如果按键在 0-9 之间 或者
Case ".", "-", Chr(8) '按下小数点，负号，或者删除键BackScape键则不执行特殊操作，想让输入哪些字符，可以加入这儿
Case Else
KeyAscii = 0 '取消本次按键事件。
Beep '提示输入错误
End Select
End Sub

Answer 2

只能输入数字的话：
text1.text=val(text1.text) '你可以输入任意字符，数字，但它最终会自动转化成数字

Answer 3

有个Masked Edit的控件可以设置格式码限止输入的字符类型，如 Mask="#######" 可以限止为数字，但是输入的字符数也被限止了。我也没用过，不太了解，自己去研究研究。

Answer 4

输入这些字符不会报错的。用了这么多年VB了。这和文本框没关系。我刚用VB测试过,绝对没有出现你说的这种情况。
可能是你代码哪里出错了,认真检查一下。

Answer 5

If Not IsNumeric(Text1.Text) Then todo something