tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。