请问怎样检测文本框输入的字符串是不是"000,000000"格式,解决后马上给分!

zhangwh6882 2002-08-27 03:17:48
如题
...全文
60 点赞 收藏 11
写回复
11 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
tomora 2002-08-29
上面的问题是“,”而不是“.”!!!
回复
tomora 2002-08-28
format可以吗???我觉得好像不对.....
回复
keyterxian 2002-08-28
用Format函数
If Format(Text1.Text, "000.00000") Then
MsgBox "RIGHT FORMAT"
Else
MsgBox "WRONG FORMAT"
End If
回复
chenyu5188 2002-08-28
用format()涵数啊~!!
回复
yjmking 2002-08-27
同意使用Format函数,既简单,又实用
回复
ww_wyc 2002-08-27
用Format函数呀:例如
If Format(Text1.Text, "000.00000") Then
MsgBox "对 "
Else
MsgBox "错"
End If
回复
twtetgso 2002-08-27
用Masked Edit 控件
回复
huxiangming 2002-08-27
判别a$是否为000,000,000格式。

If a$ = Format(a$, "#,##0") Then
MsgBox " 是,,格式"
Else
MsgBox " 不是,,格式"
End If
回复
intersun 2002-08-27
用Format函数可以吗?
Format(string,"000,000000")
回复
kangshu 2002-08-27
Private Function funCheck(ByVal str As String) As Boolean
Dim sStr As String
Dim iPoint As Integer

sStr = str
For i = 0 To Len(sStr) - 1
If iPoint <> 3 Then
If IsNumeric(Left(sStr, 1)) Then
funCheck = True
Else
funCheck = False
Exit Function
End If
Else
If Left(sStr, 1) = "," Then
funCheck = True
Else
funCheck = False
Exit Function
End If
End If
iPoint = iPoint + 1
sStr = Right(sStr, Len(sStr) - 1)
Next
End Function
回复
gaoqi5037 2002-08-27
用Masked Edit 控件吧

它可以限定输入格式
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7487

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2002-08-27 03:17
社区公告
暂无公告