５．ScriptControl コントロールを使って文字列式を計算する

１．ScriptControl コントロールを使って文字列式を計算する ２．　 ３．　 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API：なし その他　：プロジェクト→コンポーネントで Microsoft Script Control 1.0 (Msscrpt.ocx) にチェックを入れ、 　　　　：表示されたコントロールをフォームに貼り付けて下さい。

１．ScriptControl コントロールを使って文字列式を計算する

Option Explicit Private Sub Command1_Click() 'ScriptControl1をFormに貼り付けた場合 　　Label1.Caption = "答えは= " & ScriptControl1.Eval("((10+20)*2)\2+30+20-50") & " です" End Sub Private Sub Command1_Click() 'ScriptControl1を使用しない場合(Form に貼り付けない場合) 　　Dim Scr As Object 　　Set Scr = CreateObject("ScriptControl") 　　'使用中のスクリプト言語の名前を設定します 　　Scr.Language = "VBScript" 　　'式を評価し、結果を返します。 　　Label1.Caption = "答えは= " & Scr.Eval("((10+20)*2)\2+30+20-50") & " です" 　　Set Scr = Nothing End Sub これで、テキストボックス等に入力した式を計算してくれます。

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)