| 1 | Dim SC1 As New MSScriptControl.ScriptControl |
| 2 | SC1.Language = "vbscript" |
| 3 | Dim Y, Z As String |
| 4 | Y = "A+B+C*10" |
| 5 | SC1.ExecuteStatement("A=5") |
| 6 | SC1.ExecuteStatement("B=10") |
| 7 | SC1.ExecuteStatement("C=10") |
| 8 | TextBox1.Text = SC1.Eval(Y) |
用 MSScriptControl
'執行strScriptCode
1960: Dim objScript As New MSScriptControl.ScriptControl
1965: objScript.Language = "JScript"
1970: objScript.AllowUI = False
1975: strTMP1 = ""
1980: If strScriptCode <> "" Then
1985: intErrMsgTYPE = 2
1990: objScript.Eval(strScriptCode)
1995: End If
剛剛用 msn 和朋友提到如何將 文字型態轉成計算式
結果傳給我這篇
似乎這樣就可以了
果然是 只有想不到 沒有做不到
文章標籤
全站熱搜
