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