Option Explicit
Dim sc As New ScriptControl
Private Sub Command1_Click()
Dim Temp As Integer
sc.Language = "VBSCRIPT"
StrTemp = sc.Eval(Text1.Text)
Text2.Text = Temp
End Sub
執行結果:
當在Text1內輸入 "2+3"之後,
Text2會顯示出 "5"
可是小弟有一個疑問,
吾人如何檢驗使用者輸入Text1的語法是正確的呢???
例如:
"2a+3" OR "2+3=" 時,
電腦會告知<語法錯誤>!!!
有煩大家指點,謝謝!
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(4) 人氣()