VB2010 文字列の計算式で演算関数も対応するには？ (ID:148119)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 With CreateObject("ScriptControl") .Language = "JScript" MsgBox(.Eval("150+12*Math.pow(10,2)")) End With とか With CreateObject("ScriptControl") .Language = "VBScript" MsgBox(.Eval("150+12*10^2")) End With ならできますが、それでは駄目ですか? どうしても「Pow」にしたいなら、自作関数として組み入れるとか。 プロジェクトのプロパティで、[アプリケーション]-[アセンブリ情報]の [アセンブリをCOM参照可能にする]を有効にしておいてください。 Public Class Andy Public Function Pow(a As Object, b As Object) As Object Return a ^ b End Function End Class Module Module1 Sub Main() With CreateObject("ScriptControl") .Language = "VBScript" .AddObject("Andy", New Andy(), True) MsgBox(.Eval("150+12*Pow(10,2)")) End With End Sub End Module