VB6 让你的Text1可以设置1+2+3，自动计算出结果 CreateObject(ScriptControl)2024年3月25日 22:20
新建From1（窗体），新建Text1（TextBox），新建Command1（按钮CommandButton），代码：
Private Sub Command1_Click()
Dim objSC As Object
Set objSC = CreateObject("ScriptControl")
objSC.language = "vbs"
MsgBox objSC.eval(Text1.Text)
End Sub在Text1中输入1+2+3，点击Command1可以看到：
6
全部回复（0）