msww.net
当前位置:首页 >> VB中的TExt控件怎么才能让用户只能输入数字而不能... >>

VB中的TExt控件怎么才能让用户只能输入数字而不能...

Private Sub Text1_Change() If IsNumeric(Text1.Text) = False Then MsgBox "文本框输入了非法字符!", 16, "错误!" Text1.Text = "" Text1.SetFocus End If End Sub

Const xStr As String = "0123456789" '先声明一个常量,并把你想禁用或允许输入的内容赋值给它 Private Sub Text1_KeyPress(KeyAscii As Integer) '只能输入数字 KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0) End Sub Pr...

有三种方法: 1.text1.enable=false 2.text1.locked=true 3. Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub

如果是在输完之后判断,则可以用if val(text1.text)0 then 如果是每输入一个就判断,那么要用键盘事件,判断assii码,30H到39H之间的就是数字(即48到57之间)

思路:当text中输入字符超过2个时,强制取左边2位 代码如下: Private Sub Text1_Change() If Len(Text1.Text) > 2 Then Text1.Text = Left(Text1.Text, 2) End If End Sub

Private Sub Text1_Change() '文本框更改事件If Not IsNumeric(Text1.Text) Then '判断文本框内是否为数字MsgBox "请输入数字", vbCritical '若非数字,所错Text1.SelStart = Len(Text1.Text) - 1 '并自动选中刚刚输入的字符Text1.SelLength = 1 ...

这样写:在text的change事件中,Private sub Text1_change()if not isnumric(text1) thenmsgbox "只能输入数字"text1=""end ifend sub

VB中旳文本框要限制输入旳字符数,可以选中这个文本框后,在它的“属性”面板中设置它的MaxLength属性为10,就设定了这个文本框中最多可以输入10个字符。 也可以用代码进行这项设置: Text1.MaxLength=10 如果设置MaxLength属性为0(默认值),就...

两种方法可处理: 1、textbox获得焦点时,锁定字母键,只开放数字键(或小键盘)。 2、命令按钮中加入一段测试控制程序,点击命令按钮后,先测试textbox中是否为你要求的数字类型,如果有字母的话,则跳出“输入错误”对话框,textbox中是你要求的...

Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii vbKeyBack And KeyAscii < 48 Or KeyAscii > 57 And KeyAscii 13 Then KeyAscii = 0 End If End Sub

网站首页 | 网站地图
All rights reserved Powered by www.msww.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com