mdsk.net
当前位置:首页 >> vB中如何判定文本框里面输入的内容是否是数字? vB... >>

vB中如何判定文本框里面输入的内容是否是数字? vB...

有专门的函数:isnumeric() 例如: Private Sub Command1_Click() If Not IsNumeric(Text1.Text) Then mshbox "不是数字!" End If End Sub

IsNumeric(expression) 必要的 expression 参数是一个 Variant,包含数值表达式或字符串表达式。 说明 如果整个 expression 的运算结果为数字,则 IsNumeric 返回 True;否则返回 False。

s是变量,不该打引号。 下面是用选择语句来处理,可能比较清晰点。 Private Sub Command1_Click() Dim s As String s = Text1 If Len(s) = 1 Then Select Case s Case "a" To "z", "A" To "Z" MsgBox "字母" Case "0" To "9" MsgBox "数字" Case...

strs="abcdefghijklmnopqrstuvwxyz" str_get=text1.text for i=0 to len(str_get) c_str=mid(str_get,i,1) if instr(str_get,c_str)=-1 then msgbox "不全是字母" end if next 关键就是用instr来判断是否字母了!

Private Sub Command1_Click()If Text1 = "1" Then MsgBox "正确"Else MsgBox "错误"End IfEnd Sub

判断是否为数字或字符 Private Sub Command1_Click() If IsNumeric(Text1.tex1) = True Then MsgBox "数字" Else MsgBox "字符" End If End Sub

可以当数据完全输入完毕,在按钮单击事件里,执行处理程序前,加以判断: dim i as integer for i=1 to len(text1.text) if (mid(text1.text,i,1)>="0" and mid(text1.text,i,1)="a" and mid(text1.text,i,1)

Dim 输入限制 As String = "0123456789.abcdefghijklmnopqrstuvwxyz" Dim 输入字符 As Char = e.KeyChar If InStr(输入限制, 输入字符) 0 Or e.KeyChar = ChrW(8) Then If 输入字符 = "." And InStr(TextBox1.Text, 输入字符) 0 Then e.Handled ...

Dim a Private Sub Form_Load() Command1.Caption = "修改" End Sub Private Sub Command1_Click() a = InputBox("按确定后 输入的数字将替换文本框中的内容", "请输入数字", Text1.Text, 10) If a = True Then Text1.Text = Val(a) End Sub

Private Function JudgeUnsignInteger(strNum As String) As Boolean JudgeUnsignInteger = False On Error GoTo check1 Dim A As Double Dim B As Integer A = CDbl(strNum) B = CInt(strNum) If Len(CStr(A)) = Len(CStr(B)) Then If B > 0 Th...

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