Dim d As Double
d = Val(Text1.Text)
If Trim(Str(d)) <> Text1.Text Then
MsgBox "error"
End If
这样如何？
－－－－－－－－－－－－－
又想了一下这样还是不好，要是输入1.00就当成error了。
Val函数有一套自己处理文本的方法。。这里On Error GoTo也不好用了。
还是要一位一位循环判断是不是0～9和小数点吧。。还要判断小数点个数；还要判断第一位是不是0，如果是0要判断第二位是不是小数点。。。
Private Sub Text1_Change()
if text <>"" then command1.enabled=true
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024