tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルTextBoxを指定しての計算
記事No1933
投稿日: 2005/07/23(Sat) 10:54
投稿者JIN
[OSのVer]:Windows    [VBのVer]:VB.NET  
はなさんこんにちは。
早速質問させて頂きます
データー入力用のTextBox3個(Data1,2,3)、係数入力用のTextBox3個(係数1,2,3)
計算式を書くTextBoxを準備して計算式をData1/係数1や(Data2+Data3)*係数2/係数3
などに変更し計算させたいと考えていますが、この計算式をTextBoxから取りだすことは
できるのですが、計算させることができません。
皆さんの力を貸してください。宜しくお願いします。

[ツリー表示へ]
タイトルRe: TextBoxを指定しての計算
記事No1934
投稿日: 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

[ツリー表示へ]
タイトルRe^2: TextBoxを指定しての計算
記事No1935
投稿日: 2005/07/24(Sun) 14:49
投稿者JIN
[OSのVer]:Windows    [VBのVer]:VB.NET  
花さんありがとうございます。
やりたいと思っていた動作をしていますので、もう少し改良して使わせて頂きます。
本当にありがとう御座いました。またよろしくお願いします。

[ツリー表示へ]