Question

在vb中，如何在文本框中输入文字后使原本设置为无效的命令按钮变为有

Answer 1

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要判断第二位是不是小数点。。。

Answer 2

Private Sub Text1_Change()
if text <>"" then command1.enabled=true

End Sub