簡易関数電卓JsCalc Visual Basic 2010

　Visual Basic の WebBrowser コントロールを使って、簡単な関数電卓を作ってみました。
JScript の eval 関数を使ってちょっと手抜きしてみました。(^_^;
　もともとは、下記参考URLで、VBとJScriptの変数の値のやり取りをいろいろ考えていて、結局、もとの問題の答えは分かりませんでしたが、副産物として得ました。
　まず、Form1 に TextBox1, Button1, WebBrowser1 を順に設置します。

　コードは以下の通りです。

Public Class Form1
    Private Sub Form1_Load(
        ByVal sender As System.Object, ByVal e As System.EventArgs
    ) Handles MyBase.Load
        'ここは、 'Form1.vb[デザイン]でプロパティを設定してもよいです。
        Me.Text = "JsCalc"
        Me.AcceptButton = Button1    '[Enter]キーでも計算可能にする
        Button1.Text = "＝"
    End Sub

    Private Sub Button1_Click(
        ByVal sender As System.Object, ByVal e As System.EventArgs
    ) Handles Button1.Click

        Dim expr As String = TextBox1.Text
        WebBrowser1.DocumentText = "<script>document.write(eval('" + expr + "'));</script>"
        TextBox1.Focus()
    End Sub
End Class

※参考URL
http://q.hatena.ne.jp/1316481166
http://q.hatena.ne.jp/1257512488

●簡易関数電卓JsCalc　Visual Basic 2010 (2)
●簡易関数電卓JsCalc　Visual Basic 2010 (3)