タイトル : Re: TextBoxを指定しての計算 投稿日 : 2005/07/23(Sat) 13:17 投稿者 : 花ちゃん
こういう事でしょうか? Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Scr As Object = CreateObject("ScriptControl") Scr.Language = "VBScript" TextBox1.Text = 2 TextBox2.Text = "+" TextBox3.Text = 3 Label1.Text = Scr.Eval(TextBox1.Text & TextBox2.Text & TextBox3.Text) System.Runtime.InteropServices.Marshal.ReleaseComObject(Scr) Scr = Nothing End Sub 又は '参照の追加で、Microsoft.Jscript と Microsoft.Vsa を追加しておいて下さい。 Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Label1.Text = Microsoft.JScript.Eval.JScriptEvaluate( _ TextBox1.Text & TextBox2.Text & TextBox3.Text, _ Microsoft.JScript.Vsa.VsaEngine.CreateEngine) End Sub |