vb中如何限制文本框输入的数据

如何在vb文本框中限制输入数值的大小~

Private Sub Text1_Change()
On Error Resume Next
If Val(Trim(Text1.Text)) > 100 Then
MsgBox "输入数字过大，请重新输入"
Text1.Text = ""
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 33 Then
If KeyAscii = vbKey0 Then
Else
KeyAscii = 0
MsgBox "请输入数字！"
End If
End If
End Sub

在文本框的失去焦点的事件里进行判断就ok.. 给你写个源码就清楚了.o(∩_∩)o...

Private Sub Text1_LostFocus()
If IsDate(Text1.Text) = True Then
MsgBox "是日期型数据"
Else
MsgBox "不是日期型数据,你得重新输入"
Text1.SetFocus
End If
End Sub

Private Sub Text1_Change()
Text1.MaxLength = 2
End Sub

---

阿克塞哈萨克族自治县15162371018： vb 文本框输入限制 - ？
符蕊加奇： 你可以先限制输入纯数字,然后在keypress事件里面对输入后的数值进行判断 例如文本框控件名Text1 private sub text1_keypress(....) if val(text1)>100 and val(text1)<0 then keyascii = 0 ' 可能也是keycode,根keypress括号里面的变量一致即可

阿克塞哈萨克族自治县15162371018： 怎样在一个vb的程序中的文本输入框中限制所输入的内容? - ？
符蕊加奇： 个人认为 如果在“失去焦点”的事件中触发,会在不希望的时候也触发 选用Change较好 Private Sub Text1_Change() If Not IsNumeric(Text1.Text) ThenMsgBox ＂不是数字型的!＂Text1.Text = ＂＂ ElseIf Val(Text1.Text) < 0 Or Val(Text1.Text) > 2000 Then MsgBox ＂范围越界!＂Text1.Text = ＂＂ End If End Sub 搞定~

阿克塞哈萨克族自治县15162371018： VB中让一个文本框只能输入一个数字该怎么设置 - ？
符蕊加奇： Private Sub Text1_KeyPress( KeyAscii As Integer) '按键限制 select case KeyAscii case 8 '退格键 '可以不输入处理代码 case 13 '回车键 '可以不输入处理代码 case 27 'ESC键 '可以不输入处理代码 case 48 to 57 '输入的是数字 case else KeyAscii=0 '不是以上的全部取消按键 end select 输入长度限制可以通过设置TEXT控件的MaxLength属性来限制 楼上的方法同样可行.

阿克塞哈萨克族自治县15162371018： 如何在vb文本框中限制输入数值的大小？
符蕊加奇： Private Sub Text1_Change() On Error Resume Next If Val(Trim(Text1.Text)) > 100 Then MsgBox ＂输入数字过大,请重新输入＂ Text1.Text = ＂＂ End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 33 Then If KeyAscii <= vbKey9 And KeyAscii >= vbKey0 Then Else KeyAscii = 0 MsgBox ＂请输入数字!＂ End If End If End Sub

阿克塞哈萨克族自治县15162371018： VB 文本框如何限定只能输入整数!!! - ？
符蕊加奇： 在If KeyAsciivbKeyBack And (KeyAsciivbKey9) Then ... 前面加入语句: if keyascii = 45 then exit sub 这样就可以输入负号了,当然就可以输入负数了

阿克塞哈萨克族自治县15162371018： VB中能不能将文本框的输入数值限定为一个范围 - ？
符蕊加奇： 比如,你要对Text1的输入进行限制.可以使用下面代码: Private Sub Text1_Change() If Val(Trim(Text1.Text)) < 0 Or Val(Trim(Text1.Text)) > 255 Then Text1.Text = ＂＂ End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) '禁止输入非数字字符 If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub

阿克塞哈萨克族自治县15162371018： VB中输入文本框限制 - ？
符蕊加奇： 你前2步 肯定是用 ascii 做的,那你第三步同样用ascii做在 keyDown(up..) 事件中,当检测到按下小数点后(这里可以用个变量表示),你就开始判断下一次按下的数字这个数字你不需要管,然后就是判断 按下小数点后第二次按键的ascii 判断啊,=5或者=0 其他的提示用户按理说 你会前 2个,第3个应该可以弄出来,在按键过程加几个 标识状态的变量,然后加以判断,试一下,你可以的

阿克塞哈萨克族自治县15162371018： vb高手,如何限制一个文本框只能输入不超过四位数的非负整数? 假设是文本框text1,里面 - ？
符蕊加奇： 大侠多给点分啊,过年加班三倍工资,农民工的工资不能拖欠.Private Sub Text1_KeyPress(KeyAscii As Integer)If Len(Text1.Text) >= 4 Then KeyAscii = 0If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End Sub

阿克塞哈萨克族自治县15162371018： VB中,如何限制一个文本框中只能输入数字? - ？
符蕊加奇： 比如该文本框是text1,加一段:Private Sub Text1_change()'非数字校验~~~~~~~~~~~~~~~~~~ If IsNumeric(Text1.Text) = False Then MsgBox ＂请输入数字!＂, 48, ＂错误提示＂ Text1.Text =＂＂ Text1.SetFocus Exit Sub End If.......endsub

阿克塞哈萨克族自治县15162371018： vb怎样控制一个文本框的输入数值不能是零,且不能为空 - ？
符蕊加奇： 在你使用文本框数据的过程中加入判断代码,如:Private Sub Command1_Click() If Len(Trim(Text1.Text)) = 0 Then MsgBox ＂不能为空!＂ Text1.SetFocus Exit Sub End If If Trim(Text1.Text) = 0 Then MsgBox ＂不能为零!＂ Text1.SetFocus Exit Sub End If'这里写你要执行的代码 End Sub