具体怎么操作呢?
Private Sub Text1_Change()
Dim i As Integer, a As Integer
Dim c As String
Dim s As String
For i = 1 To Len(Text1)
c = Mid(Text1, i, 1)
a = Asc(c)
If a >= 97 And a <= 122 Then
s = s & c
ElseIf a >= 48 And a <= 57 Then
s = s & c
ElseIf a >= 65 And a <= 90 Then
s = s & c
End If
Next i
Text1 = s
End Sub
本回答被提问者采纳
VB怎么控制textbox 只能输入正整数???
MsgBox "请输入一个正整数。", vbCritical, "错误"Cancel = True KeyAscii=0 end if End Sub 你那错误有几个，1.Text1_Validate函数是获得当前焦点，在你输入后当前焦点变为下一个，即空格，所以你会出错 2.IsNumeric(Text1)应该为IsNumeric(Text1.text)这样才能获得text1的值，...
怎样让vb的textbox只能输入正整数
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii <> 8 Then Dim re Set re = CreateObject("VBScript.RegExp")re.IgnoreCase = True re.Global = True re.Pattern = "^([1-9](\\d+)?)?$"If Not re.test(Text1.Text & Chr(KeyAscii)) Then KeyAscii = 0 End If End If...
在vb中,如何使文本框中只允许输入数字
新建一个标准EXE程序。绘制界面，添加一个 Textbox控件，改名为 txbNumber。编写代码。在代码窗口中，添加 txbNumber_KeyPress事件。查ASCII码表，得到0的ASCII码是48。输入以下语句： If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 这条语句用来判断输入的字符是否在0-9的范围，如果不在这个范...
[VB]怎么限制textbox里面只能输入规定的字符
numeric是管那个的,只能让他输入数字,你也可以编程实现,就是只有Textbox有change事件,就检测他,如果有错误,就调用出错,接着恢复到刚才的状态,如果不出错,就记录下状态,备下一次发生chane事件使用 不知道这样说能不能懂,好久不用VB了,不会写VB中的语用了...惭愧!
VB中旳文本框怎么限制输入旳字符数,
VB中旳文本框要限制输入旳字符数，可以选中这个文本框后，在它的“属性”面板中设置它的MaxLength属性为10，就设定了这个文本框中最多可以输入10个字符。也可以用代码进行这项设置：Text1.MaxLength=10 如果设置MaxLength属性为0（默认值），就是不人为限制它的最多字符数，其最大值由VB系统确定：在...
VB中如何让几十个TEXTBOX中只能输入数字,小数点,进行计算用,
用控件数组，如果是点击按钮就判断的话就用for循环来判断，例如先在窗体上放置一个Text1，然后复制它再粘贴到同一个窗体上，当提示是否创建控件数组时选择是，再复制三次，这样窗体上就有5个文本框了，text1就变成了Text1(0)，Text1(1)，Text1(2)，Text1(3)，Text1(4)，添加一个确定按钮，写...
vb中,如何限制输入的文本框的内容只能是数字数或者字母?
KeyAscii = 0 End If End Sub Private 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 "不是整数，...
在VB中怎样让TEXT里只能输入数字和英文?
给你个思路，用IsNumeric（）函数进行判断输入的是否为数字 用Asc()函数求出输入的字符ASCⅡ码，如果ASCⅡ码在97和122之间（包括97和122,为小写英文字母a——z)；或者ASCⅡ码在65和90之间（包括65和90，为大写英文字母A——Z），则为英文字母。
vb里如何让textbox只能输入数字和英文?
Option Explicit Private Sub Text1_Change()Dim i As Integer, a As Integer Dim c As String Dim s As String For i = 1 To Len(Text1)c = Mid(Text1, i, 1)a = Asc(c)If a >= 97 And a <= 122 Then s = s & c ElseIf a >= 48 And a <= 57 Then s = s & c...
vb.net 让相应的textbox中只能输入“中文字符、英文、数字”
每个textbox都有KeyPress事件（event），每次用户输入一个字符时检测，如不满足则清空 我现在不在vs下，你可以找到这个面板，绑定相应的函数 比如只能显示数字 Private Sub NumBox_KeyPress(KeyAscii As Integer) If Not IsNumeric(NumBox.Text) Then NumBox.Text = "" End IfEnd Sub只能显示...
