本文目录
- 如何才能让VB里的TEXT控件只能输入数字
- vb文本框只允许输入18位数字，怎么写代码
- VB 在TEXT文本框中只允许输入数字0～9 如何实现
- 怎么在VB的窗体里设置只能输入数字的文本框
- vb语言中,要使文本框中只能输入6位数字,应设置文本框的什么属性
- vb中限制一个文本框只能输入数字和一个小数点和退格键
- VB 文本框只能输入数字
- vb中，如何限制输入的文本框的内容只能是数字数或者字母
- VB文本框如何实现只能输入1-100数字
- vb文本框怎样设置只能输入数字
如何才能让VB里的TEXT控件只能输入数字
首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable，这样在该文本框中就不能使用中文输入法了。然后对文本框的KeyPress事件添加以下代码Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Then e.Handled = False Else e.Handled = True End IfEnd Sub其中e.KeyChar是键盘输入的键对应的字符，IsDigit函数可以判断是否为0到9的数字，Chr(8)为退格键，当e.Handled为True时，程序认为该KeyPress事件已经被处理过了，文本框的内容也就不会发生变化了对于限制其他的类型，只要对 Chr()更改就行了。如只需要输入英文字母的条件是：(e.KeyChar 》= Chr(65) and e.KeyChar 《=Chr(90)) or(e.KeyChar 》= Chr(97) and e.KeyChar 《=Chr(122))
vb文本框只允许输入18位数字，怎么写代码
选择其它对象时，文本框将失去焦点，因此可以用LostFocus事件来执行你要的操作：12345678Private Sub Text1_LostFocus()if len(text1.text)《》18 then msgbox “必须是18位！“end ifif isnumeric(text1.text)=false then msgbox “只能输入数字！“end ifEnd Sub
VB 在TEXT文本框中只允许输入数字0～9 如何实现
’手机号码文本框失去焦点时判断合法性Private Sub txtMobile_Validate(Cancel As Boolean) If Not IsMobile(txtMobile.Text) And Len(txtMobile.Text) 》 0 Then MsgBox “手机号码不合法，请重新输入！“ Cancel = True txtMobile.SetFocus End IfEnd Sub’电子邮箱文本框失去焦点时判断合法性Private Sub txtEmail_Validate(Cancel As Boolean) If Not IsValidEmail(txtEmail.Text) And Len(txtEmail.Text) 》 0 Then MsgBox “电子邮箱不合法，请重新输入！“ Cancel = True txtEmail.SetFocus End IfEnd Sub’**************************************************’函数名：IsMobile’作 用：判断是否手机号码’参 数：ParNumber----要检查的手机号码’返回值：True ----手机号码合法’ False ----手机号码不合法’**************************************************Public Function IsMobile(ByVal ParNumber As String) As Boolean ’外地手机加0就是12位 If Len(ParNumber) 《》 11 And Len(ParNumber) 《》 12 Then IsMobile = False Exit Function End If ’130~139、150~159、180~189 If Left(ParNumber, 2) = “13“ Or Left(ParNumber, 3) = “013“ Or Left(ParNumber, 2) = “15“ Or Left(ParNumber, 3) = “015“ Or Left(ParNumber, 2) = “18“ Or Left(ParNumber, 3) = “018“ Then IsMobile = True Else IsMobile = False End IfEnd Function’**************************************************’函数名：IsValidEmail’作 用：检查Email地址合法性’参 数：Email ----要检查的Email地址’返回值：True ----Email地址合法’ False ----Email地址不合法’**************************************************Public Function IsValidEmail(ByVal Email As String) As Boolean Dim names, Name, i, c IsValidEmail = True names = Split(Email, “@“) If UBound(names) 《》 1 Then IsValidEmail = False Exit Function End If For Each Name In names If Len(Name) 《= 0 Then IsValidEmail = False Exit Function End If For i = 1 To Len(Name) c = LCase(Mid(Name, i, 1)) If InStr(“abcdefghijklmnopqrstuvwxyz_-.“, c) 《= 0 And Not IsNumeric(c) Then IsValidEmail = False Exit Function End If Next If Left(Name, 1) = “.“ Or Right(Name, 1) = “.“ Then IsValidEmail = False Exit Function End If Next If InStr(names(1), “.“) 《= 0 Then IsValidEmail = False Exit Function End If i = Len(names(1)) - InStrRev(names(1), “.“) If i 《》 2 And i 《》 3 And i 《》 4 Then IsValidEmail = False Exit Function End If If InStr(Email, “..“) 》 0 Then IsValidEmail = False End IfEnd Function
怎么在VB的窗体里设置只能输入数字的文本框
Private Sub Command1_Click()Dim x as double x=Text1.text End Sub 这样就行了，当你输入任意非数字类型字符时就会拒绝执行。
vb语言中,要使文本框中只能输入6位数字,应设置文本框的什么属性
Private Sub Form_Load()
Text1.MaxLength = 6 ’文本最大长度6
End Sub
Private Sub Text1_Change()
If Len(Text1.Text) = 6 And IsNumeric(Text1.Text) Then ’文本长度为6，并且是数字时Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii 《 48 And KeyAscii 《》 8 Or KeyAscii 》 57 Then KeyAscii = 0 ’禁止非数字输入(backspace除外)
End Sub
扩展资料：
注释方式：
在VB中，注释有2种方式。
1、以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。如果在其他语句行后使用Rem关键字，则必须使用冒号（:）与语句隔开。
2、使用一个撇号（’）来代替Rem关键字。若使用撇号，则在其他语句行使用时不必加冒号。
特征衡量：在 Visual Basic 中，可通过属性、方法和事件来说明和衡量一个对象的特征。
参考资料来源：百度百科-Visual Basic
vb中限制一个文本框只能输入数字和一个小数点和退格键
Private Sub Text1_KeyPress(KeyAscii As Integer)If InStr(Text1.Text, “.“) 《》 0 Then If (Chr(KeyAscii) 》 “9 “ Or Chr(KeyAscii) 《 “0 “) And KeyAscii 《》 48 And KeyAscii 《》 8 Then KeyAscii = 0 End IfElse If (Chr(KeyAscii) 》 “9 “ Or Chr(KeyAscii) 《 “0 “) And Chr(KeyAscii) 《》 “.“ And KeyAscii 《》 48 And KeyAscii 《》 8 Then KeyAscii = 0 End IfEnd IfEnd Sub
在窗体中建立一个text1的文本框，输入如上命令即可实现。
VB 文本框只能输入数字
只能用笨办法。。。。PrivateSubCommand1_Click()DimsizeasIntegerDimchasStringsize=len(Text1.Text)ifsize《》10thenmsgbox“请输入10位数字“endifFori=0tosizech=mid(text1.text,i,1)ifch=“0“orch=“1“orch=“2“orch=“3“orch=“4“orch=“5“orch=“6“orch=“7“orch=“8“orch=“9“orch=“0“then’好麻烦。。。。msgbox“请输入10位数字“EndIfNextEndSub
vb中，如何限制输入的文本框的内容只能是数字数或者字母
Private Sub Text1_Change()’有点懒 If IsNumeric(Text1) = False Then MsgBox “不是数字，请输入数字“, 0, “提示“ Text1.SetFocus Text1.SelStart = Len(Text1) SendKeys “{BACKSPACE}“ End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) Like ““ = False Then MsgBox “不是字母，请输入字母“, 0, “提示“ KeyAscii = 0 End IfEnd SubPrivate Sub Text3_Change() If IsNumeric(Text3) = False Then MsgBox “不是数字，请输入数字“, 0, “提示“ Text3.SetFocus Text3.SelStart = Len(Text3) SendKeys “{BACKSPACE}“ ElseIf Val(Text3) - CLng(Text3) 《》 0 Then’有点懒 MsgBox “不是整数，请输入整数“, 0, “提示“ End IfEnd Sub
VB文本框如何实现只能输入1-100数字
Private Sub Text1_LostFocus() If Val(Text1.Text) 《 0 Or Val(Text1.Text) 》 100 Then MsgBox “请输入1-100的数字“End Sub
vb文本框怎样设置只能输入数字
可以定义一个键盘事件Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii 《 Asc(“0“) Or KeyAscii 》 Asc(“9“) ThenMsgBox “Enter a number“KeyAscii = 0End IfEnd Sub
