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=" 時,
電腦會告知＜語法錯誤＞!!!
有煩大家指點,謝謝!
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=" 時,
電腦會告知＜語法錯誤＞!!!
有煩大家指點,謝謝!
請先 登入 以發表留言。