VB文本框如何实现只能输入1-100数字

Question

如题？VB文本框如何实现只能输入1-100数字
只输入0-100不输入A-Z字母和其他字符！

Answer 1

Private Sub Text1_LostFocus()
If Val(Text1.Text) < 0 Or Val(Text1.Text) > 100 Then MsgBox "请输入1-100的数字"
End Sub

Answer 2

方法1
change事件里限制ASCII除了数字外其他的都禁用
禁用鼠标右键(防止复制)
把文本框内容转为整数型后(默认为字符串型)判断是否属于1~100
如果不属于则报错

方法2
在文本框失去焦点事件里
增加判断输入内容是否为整数~是否为1~100
这种是只要求结果不要求过程的方法

那就用方法1追问

我想用VB6.0获取下面XML文件的数据组
我根据数据组填写到Excel里面
我主要想知道怎么获取这些数据
主要获取数据项目是：
X值
Y值
Z值
name=值（总数量）
以及根据hole_definition="hole1"所得到的hole1值来获取下面的两组数据
一组是：diameter="20"（注：直径）
二组：depth="40"（注：深度）
谢谢你了，麻烦了！希望你能帮助我！

Answer 3

文本框的 maxlength 属性设置最大

一个新的TEXT 都是空的。要是最小要求1那么你可以在提交的时候 检测下。是否为空？

if text1.text=""then追问

我想用VB6.0获取下面XML文件的数据组
我根据数据组填写到Excel里面
我主要想知道怎么获取这些数据
主要获取数据项目是：
X值
Y值
Z值
name=值（总数量）
以及根据hole_definition="hole1"所得到的hole1值来获取下面的两组数据
一组是：diameter="20"（注：直径）
二组：depth="40"（注：深度）
谢谢你了，麻烦了！希望你能帮助我！