dfkt.net
当前位置:首页 >> 怎样为VB窗体中的所有文本框限制只输入数字? >>

怎样为VB窗体中的所有文本框限制只输入数字?

text1.visible=false是不可见text1.enabled=false是不可用至于第一个,我不懂你说的意思运行时要输入数据,应该用inputbox()函数,可以自查.输出,text1.text=你要输出的内容如dim x as integer x=100text1.text=x或text1.text="x的值为:"+x

Private Sub Command1_Click()Dim x as double[或其它整型数字变量类型] x=Text1.text End Sub 这样就行了,当你输入任意非数字类型字符时就会拒绝执行.

Private Sub Text1_Change()'有点懒 If IsNumeric(Text1) = False Then MsgBox "不是e68a84e8a2ad3231313335323631343130323136353331333332396130数字,请输入数字", 0, "提示" Text1.SetFocus Text1.SelStart = Len(Text1)

用NumericUpDown 或者MaskedTextBox设置Mask = 9999.99

VB中文本框要限制输入字符数,可以选中这个文本框后,在它的“属性”面板中设置它的MaxLength属性为10,就设定了这个文本框中最多可以输入10个字符.也可以用代码进行这项设置:Text1.MaxLength=10 如果设置MaxLength属性为0(默认值),就是不人为限制它的最多字符数,其最大值由VB系统确定:在MaxLength不设定的默认情况下,单行TextBox和多行TextBox分别能输入的最大字符数是: 单行:2048,多行:32K

使用正规表达式 以js脚本为例:this.value=this.value.replace(/[^0-9]\D*$/,"")

Private Sub Text1_Change() If Text1.Text <> "" And IsNumeric(Text1.Text) = False Then MsgBox "只能输入数字!" Text1.Text = "" Exit Sub End If End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) '这个是text1,懂得这个,其它的也一样Select Case KeyAsciiCase 0 To 47KeyAscii = 0Case 59 To 64KeyAscii = 0Case 110 To 255KeyAscii = 0End SelectEnd Sub

添加以下事件即可.Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0End Sub

添加以下事件即可.privatesubtext1_keypress(keyasciiasinteger) ifkeyascii<48orkeyascii>57thenkeyascii=0 endsub

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