如何替换IF中的表达式

[fenqing]

Private Sub Command1_Click()
If Text1.Text Then
MsgBox "test"
End If
End Sub

Private Sub Form_Load()
a = 1
End Sub


在 Text1 里输入 a=1 ，然后点击 command1 ，报错，说类型不匹配

[daviddivad]

if val(text1.text)>0 then

or

if cbool(text1.text) then

[qiqunet]

Private Sub Command1_Click()
If Text1.Text<>"" Then
MsgBox "test"
End If
End Sub

[daviddivad]

您可以利用Microsoft Script Control来实现这个功能。

首先，你需要在工程里引用一下Microsoft Script Control。然后加入一下代码：

Private Sub command1_click()

Dim scr As New ScriptControl
Dim mycode As String

scr.Language = "vbscript"
mycode = "public function Test()" + vbCrLf
mycode = mycode + "if " + text1.text + "then" + vbcrlf
mycode = mycode + "MsgBox ""test""" + vbCrLf
mycode = mycode + "End if" + vbcrlf
mycode = mycode + "end function"

scr.AddCode (mycode)
scr.Eval ("Test()")

End Sub

[fenqing]

还有其他办法吗？难道VB内部没有把字符串转换成表达式的函数?
cbool是把表达式转换成字符串用的

[zlpanzy]

还需外部过程