Windows / ScriptControl


差分表示

  • 最後の更新で追加された行はこのように表示します。
  • 最後の更新で削除された行はこのように表示します。

RCS information

head: 1.2
branch:
locks: strict
 wiki: 1.2
access list:
symbolic names:
keyword substitution: kv
total revisions: 2; selected revisions: 2
description:
----------------------------
revision 1.2 locked by: wiki;
date: 2005-10-10 12:18:45+09;  author: wiki;  state: Exp;  lines: +24 -0
Modified by 61.195.23.220(PPPax470.aichi-ip.dti.ne.jp)
----------------------------
revision 1.1
date: 2005-10-10 11:35:08+09;  author: wiki;  state: Exp;
Created by 61.195.23.220(PPPax470.aichi-ip.dti.ne.jp)
----------------------------

diff revision 1.1 -> 1.2

--- Windows/ScriptControl.txt 2005-10-10 11:35:08+09 1.1
+++ Windows/ScriptControl.txt 2005-10-10 12:18:45+09 1.2
@@ -3,3 +3,27 @@
 Windows2000、XPでは標準で入っている。
 
 久しぶりにこれ使ったソフトでも作ってみたいものだ。
+
+おぼえ(VB.netで使用するサンプル) from http://dobon.net/vb/dotnet/programing/eval.html
+
+ '計算式
+ Dim exp As String = "(1+6)*5/(7-4)"
+ 
+ Dim t As Type = _
+     Type.GetTypeFromProgID("MSScriptControl.ScriptControl")
+ Dim obj As Object = Activator.CreateInstance(t)
+ t.InvokeMember("Language", _
+     System.Reflection.BindingFlags.SetProperty, _
+     Nothing, _
+     obj, _
+     New Object() {"vbscript"})
+ 'Eval関数で計算を実行して結果を取得
+ Dim result As Double = CDbl( _
+     t.InvokeMember("Eval", _
+         System.Reflection.BindingFlags.InvokeMethod, _
+         Nothing, _
+         obj, _
+         New Object() {exp}))
+ 
+ '結果を表示
+ Console.WriteLine(result)

ナビゲーション

プロフィール

Photo Hondarer  My status

自分に正直に、目指す物を目指すかたちで、全ての人が幸せになれるシステムを削り出す職人でありたい。

Powered by
HndWiki 023204