Microsoft Excel操作

Size: px

Start display at page:

Download "Microsoft Excel操作"

あまめおとじま
5 years ago
Views:

1 Microsoft Excel 操作 Excel ファイルにアクセスリフレクションを利用したレイトバインディングで Excel ファイルを操作 Visual Basic なら CreatObject 関数を使用して暗黙の遅延バインディングを利用する事に依り簡単にに実現出来る Excel の操作も C# で実現するには少し面倒臭い事に成る事前バインディングでも実装する事も出来るが事前バインディングだと Excel のバージョンの違いを吸収する事が出来ない為出来れば Excel のバージョンに依存しない様に遅延バインディング ( レイトバインディング実行時バインディングとも謂う ) で実現し度いと謂う要求が有る其の様な場合は.NET FCL の中から Activator や Reflection を使用する事に成る下記のサンプルは Excel ファイルを開く丈のプログラムで有る Public Class ExcelOperation Visual Basic Private Sub btnopen_click( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles btnopen.click ' Excel ファイルのパス Dim P As String = Application.StartupPath If Not P.EndsWith( " " ) Then P &= " " P &= "data.xls" ' Excel のクラスのタイプとインスタンスを取得 Dim Ex As Object = CreateObject( "Excel.Application" ) ' ワークブックコレクションオブジェクト Dim Wbs As Object = Ex.workbooks ' Excel ファイルのオープン Dim Wb As Object = Wbs.open( P ) ' Excel ファイルの表示 Ex.visible = True ' 変更の保存を確認しない様に設定 Ex.DisplayAlerts = False ' ワークシートコレクションオブジェクト Dim Wss As Object = Wb.worksheets ' ワークシートオブジェクト Dim Ws As Object = Wss.item( 1 ) -1-

2 ' セル A1 の値の取得 Dim Rn As Object = Ws.Range( "A1" ) Dim A1 As String = Rn.Value.ToString( ) MessageBox.Show( A1, " セル A1 の値 " ) ' セル B1 の値の取得 Rn = Ws.Range( "B1" ) Dim B1 As String = Rn.Value.ToString( ) MessageBox.Show( B1, " セル B1 の値 " ) ' ハイパーリンクコレクションオブジェクト Dim Lns As Object = Ws.Hyperlinks ' ハイパーリンクオブジェクト ( ハイパーリンクの設定 ) Dim Ln As Object = Lns.Add( Rn, B1 ) ' ワークブックの保存 If MessageBox.Show( " 保存しますか?", " 確認 ", _ MessageBoxButtons.YesNo, MessageBoxIcon.Question ) = _ System.Windows.Forms.DialogResult.Yes Then Wb.Save( ) MessageBox.Show( " 保存しました ", " 保存 " ) End If ' 終了 If MessageBox.Show( " エクセルを終了しますか?", " 確認 ", _ MessageBoxButtons.YesNo, MessageBoxIcon.Question ) = _ System.Windows.Forms.DialogResult.Yes Then ' オブジェクトの開放 If Ln IsNot Nothing Then Ln = Nothing If Lns IsNot Nothing Then Lns = Nothing If Rn IsNot Nothing Then Rn = Nothing If Ws IsNot Nothing Then Ws = Nothing If Wss IsNot Nothing Then Wss = Nothing If Wb IsNot Nothing Then ' ワークブックのクローズ Wb.Close( ) Wb = Nothing End If If Wbs IsNot Nothing Then Wbs = Nothing If Ex IsNot Nothing Then ' エクセルの終了 Ex.Quit( ) Ex = Nothing End If End If End Sub End Class -2-

3 using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.Reflection; C# namespace ExcelOperation public partial class ExcelOperation : Form public ExcelOperation( ) InitializeComponent( ); private void btnopen_click( object sender, EventArgs e ) // Excel ファイルのパス string p = Application.StartupPath; if " )) p "; p += "data.xls"; // Excel のクラスのタイプとインスタンスを取得 object ex = CreateObject( "Excel.Application" ); // ワークブックコレクションオブジェクト object wbs = ex.gettype( ).InvokeMember( "Workbooks", BindingFlags.GetProperty, ex, null ); // Excel ファイルのオープン object wb = wbs.gettype( ).InvokeMember( "Open", BindingFlags.InvokeMethod, wbs, new object[ ] p, Type.Missing,Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing ); // Excel ファイルの表示 ex.gettype( ).InvokeMember( "Visible", -3-

4 BindingFlags.SetProperty, ex, new object[ ] true ); // 変更の保存を確認しない様に設定 ex.gettype( ).InvokeMember( "DisplayAlerts", BindingFlags.SetProperty, ex, new object[ ] false ); // ワークシートコレクションオブジェクト object wss = wb.gettype( ).InvokeMember( "WorkSheets", BindingFlags.GetProperty, wb, null ); // ワークシートオブジェクト object ws = wss.gettype( ).InvokeMember( "Item", BindingFlags.GetProperty, wss, new object[ ] 1 ); // セル A1 の値の取得 object rn = ws.gettype( ).InvokeMember( "Range", BindingFlags.GetProperty, ws, new object[ ] "A1" ); string a1 = ( string ) rn.gettype( ).InvokeMember( "Value", BindingFlags.GetProperty, rn, null ); MessageBox.Show( a1, " セル A1 の値 " ); // セル B1 の値の取得 rn = ws.gettype( ).InvokeMember( "Range", BindingFlags.GetProperty, ws, new object[ ] "B1" ); string b1 = ( string ) rn.gettype( ).InvokeMember( "Value", BindingFlags.GetProperty, rn, null ); MessageBox.Show( b1, " セル B1 の値 " ); // ハイパーリンクコレクションオブジェクト object lns = ws.gettype( ).InvokeMember( "Hyperlinks", BindingFlags.GetProperty, ws, null ); // ハイパーリンクオブジェクト ( ハイパーリンクの設定 ) object ln = lns.gettype( ).InvokeMember( "Add", BindingFlags.InvokeMethod, lns, new object[ ] rn, b1 ); // ワークブックの保存 if ( MessageBox.Show( " 保存しますか?", " 確認 ", MessageBoxButtons.YesNo, MessageBoxIcon.Question ) == System.Windows.Forms.DialogResult.Yes ) wb.gettype( ).InvokeMember( "Save", BindingFlags.InvokeMethod, wb, null ); -4-

5 // 終了 if ( MessageBox.Show( " エクセルを終了しますか?", " 確認 ", MessageBoxButtons.YesNo, MessageBoxIcon.Question ) == System.Windows.Forms.DialogResult.Yes ) if ( ln!= null ) MarshalReleaseComObject( ref ln ); if ( lns!= null ) MarshalReleaseComObject( ref lns ); if ( rn!= null ) MarshalReleaseComObject( ref rn ); if ( ws!= null ) MarshalReleaseComObject( ref ws ); if ( wss!= null ) MarshalReleaseComObject( ref wss ); if ( wb!= null ) wb.gettype( ).InvokeMember( "Close", BindingFlags.InvokeMethod, wb, null ); MarshalReleaseComObject( ref wb ); if ( wbs!= null ) MarshalReleaseComObject( ref wbs ); if ( ex!= null ) ex.gettype( ).InvokeMember( "Quit", BindingFlags.InvokeMethod, ex, null ); MarshalReleaseComObject( ref ex ); // COM オブジェクトへの参照の作成と取得 // progid: 作成するオブジェクトのプログラム ID // servername: オブジェクトが作成されるネットワークサーバー名 // returns: 作成された COM オブジェクト public static object CreateObject( string id, string server ) Type t; if ( server == null server.length == 0 ) t = Type.GetTypeFromProgID( id ); else t = Type.GetTypeFromProgID( id, server, true ); return Activator.CreateInstance( t ); // COM オブジェクトへの参照の作成と取得 // progid: 作成するオブジェクトのプログラム ID // returns: 作成された COM オブジェクト public static object CreateObject( string id ) -5-

6 return CreateObject( id, null ); // COM オブジェクトの参照カウントが 0 に成る迄 // Marshal.ReleaceComObject に依る COM オブジェクトの解放処理 // objcom:com オブジェクト private void MarshalReleaseComObject ( ref object objcom ) try int i = 1; if ( objcom!= null && System.Runtime.InteropServices.Marshal.IsComObject(objCom)) // 参照カウントが 0 に成る迄 do // ランタイム呼び出し可能ラッパーの参照カウントをデクリメント i = System.Runtime.InteropServices.Marshal.ReleaseComObject( objcom ); while ( i > 0 ); finally objcom = null; 使用した COM オブジェクトの参照を適切に解放しなければプロセスが残ると謂う現象が起こる例えば遅延バインディングに利用した object 型の変数を複数回使用すると参照カウントが通常より多くカウントされ通常の解放処理では総ての参照を解放出来ない場合が有る此れはランタイム呼出可能ラッパーが COM インターフェイスポインタが割り当てられる度にインクリメントされる参照カウントを保持して了うのが原因で有る System.Runtime.InteropServices.Marshal.ReleaseComObject メソッドはランタイム呼出可能ラッパーの参照カウントをデクリメントするので参照カウントが 0 に成る迄複数回呼び出すと解決する同じ COM インターフェイスがアンマネージコードからマネージコードに複数回渡された場合参照カウントは毎回インクリメントされ System.Runtime.InteropServices.Marshal.ReleaseComObject メソッドを呼び出すと残りの参照の数が返されるランタイム呼出可能ラッパーの参照カウントが 0 に成るとランタイムはアンマネージ COM オブジェクトの総ての参照が解放される猶此の後でオブジェクトを使用すると System.NullReferenceException の例外がスローされる上記のプログラムでランタイム呼出可能ラッパーの参照カウントをデクリメントする部分而巳を下記に示す (Visual Basic の場合も此の様に仕てオブジェクトの解放を行う事を推奨する ) -6-

7 Visual Basic If Ex IsNot Nothing Then MarshalReleaseComObject( Ex ) ' COM オブジェクトの参照カウントが 0 に成る迄 ' Marshal.ReleaceComObject に依る COM オブジェクトの解放処理 ' objcom:com オブジェクト Private Sub MarshalReleaseComObject ( ByRef objcom As Object ) Try Dim I As Integer = 1 If (objcom IsNot Nothing) AndAlso _ ( System.Runtime.InteropServices.Marshal.IsComObject( objcom )) Then ' 参照カウントが 0 に成る迄 Do ' ランタイム呼び出し可能ラッパーの参照カウントをデクリメント I = System.Runtime.InteropServices.Marshal.ReleaseComObject( objcom ) Loop While ( I > 0 ) End If Finally objcom = Nothing End Try End Sub C# if ( ex!= null ) MarshalReleaseComObject( ref ex ); // COM オブジェクトの参照カウントが 0 に成る迄 // Marshal.ReleaceComObject に依る COM オブジェクトの解放処理 // objcom:com オブジェクト private void MarshalReleaseComObject ( ref object objcom ) try int i = 1; if ( objcom!= null && System.Runtime.InteropServices.Marshal.IsComObject( objcom )) // 参照カウントが 0 より大きい間 do // ランタイム呼び出し可能ラッパーの参照カウントをデクリメント i = System.Runtime.InteropServices.Marshal.ReleaseComObject( objcom ); while ( i > 0 ); finally objcom = null; -7-

8 C# で CreateObject メソッドの作成前述の様に C# で Visual Basic の CreateObject 関数と同じ事をするには Type クラスの GetTypeFromProgId メソッドで型を取得し Activator クラスの CreateInstance メソッド等に依りインスタンスを作成する下記に Visual Basic の CreateObject 関数と粗同様の機能を有するメソッドの部分而巳を示す ( 勿論 Visual Basic でも CreateObject 関数を使わず此の方法でインスタンスを生成する事が出来る ) C# // COM オブジェクトへの参照の作成と取得 // progid: 作成するオブジェクトのプログラム ID // servername: オブジェクトが作成されるネットワークサーバーの名前 // returns: 作成された COM オブジェクト public static object CreateObject ( string progid, string servername ) Type t; if ( servername == null servername.length == 0 ) t = Type.GetTypeFromProgID( progid ); else t = Type.GetTypeFromProgID( progid, servername, true ); return Activator.CreateInstance( t ); // COM オブジェクトへの参照の作成と取得 // progid: 作成するオブジェクトのプログラム ID // returns: 作成された COM オブジェクト public static object CreateObject ( string progid ) return CreateObject ( progid, null ); 但し C# では Visual Basic とは異なり暗黙の遅延バインディングが出来ないので取得した COM オブジェクトのプロパティやメソッドを呼び出すには Type クラスの InvokeMember メソッドを使用する必要が有る ( 前記参照 ) -8-

9 Type オブジェクト型のメンバを動的に呼び出す Type オブジェクトで表された型のインスタンスの作成メソッドの呼出プロパティフィールドの設定と取得の方法に付いて説明する此処では下記の様なクラスが宣言されて居る物とする Namespace MyNamespace Public Class TestClass ' フィールド Private PrivateField As Integer Public StringArray( ) As String Visual Basic ' プロパティ Public Property PublicProperty( ) As Integer Get Return PrivateField End Get Set( ByVal Value As Integer ) PrivateField = Value End Set End Property ' インデクサ Default Public Property Item( ByVal index As Integer ) As String Get Return index.tostring( ) End Get Set( ByVal Value As String ) End Set End Property ' コンストラクタ Public Sub New( ByVal val As Integer ) PrivateField = val StringArray = New String( ) "1", "2", "3" End Sub Public Sub New( ) PrivateField = 0 StringArray = New String( ) "1", "2", "3" End Sub ' メソッド Public Overloads Function PublicMethod( _ ByVal num1 As Integer, ByVal num2 As Integer ) As String -9-

10 Return ( num1 - num2 ).ToString( ) End Function Public Overloads Function PublicMethod( _ ByVal num1 As Integer ) As String Return num1.tostring( ) End Function Public Overloads Function PublicMethod( ) As String Return PublicMethod( 0 ) End Function ' 静的メソッド Public Overloads Shared Function StaticMethod( _ ByVal num1 As Integer, ByVal num2 As Integer ) As Integer Return num1 + num2 End Function Public Overloads Shared Function StaticMethod( _ ByVal num1 As Integer, ByVal num2 As Integer, _ ByRef num3 As Integer ) As Integer Dim sum As Integer = num1 + num2 + num3 num3 = num1 - num2 - num3 Return sum End Function End Class End Namespace C# namespace MyNamespace public class TestClass // フィールド private int PrivateField; public string[ ] StringArray; // プロパティ public int PublicProperty get return PrivateField; set PrivateField = value; // インデクサ public string this[ int index ] get return index.tostring( ); set -10-

11 // コンストラクタ public TestClass( int val ) PrivateField = val; StringArray = new string[ ] "1", "2", "3" ; public TestClass( ) PrivateField = 0; StringArray = new string[ ] "1", "2", "3" ; // メソッド public string PublicMethod( int num1, int num2 ) return ( num1 - num2 ).ToString( ); public string PublicMethod( int num1 ) return num1.tostring( ); public string PublicMethod( ) return PublicMethod( 0 ); // 静的メソッド public static int StaticMethod( int num1, int num2 ) return num1 + num2; public static int StaticMethod( int num1, int num2, ref int num3) int sum = num1 + num2 + num3; num3 = num1 - num2 - num3; return sum; Type.InvokeMember メソッドを使用した方法 Type オブジェクトのメンバを呼び出すには InvokeMember メソッドを使用する InvokeMember メソッドに依りインスタンスの作成メソッドの呼出プロパティフィールドの設定と取得が総て出来る -11-

12 下記に InvokeMember メソッドを用いて TestClass クラスのメンバを呼び出す例を示す Visual Basic ' Imports System.Reflection がソースファイルの一番上に書かれて居る物とする Dim num As Integer Dim str As String ' TestClass クラスの Type オブジェクトを取得 Dim t As Type = GetType( MyNamespace.TestClass ) '=================== ' インスタンスの作成 '=================== ' TestClass のインスタンス生成 (target = New MyNamespace.TestClass( 100 ) と同等 ) Dim target As Object = t.invokemember( BindingFlags.CreateInstance, _ New Object( ) 100 ) '=============== ' メソッドの実行 '=============== ' PublicMethod メソッドを実行 (str = target.publicmethod( 12 ) と同等 ) str = CStr( t.invokemember( "PublicMethod", _ BindingFlags.InvokeMethod, _ target, _ New Object( ) 12 )) ' 静的メソッド StaticMethod を実行 (num = MyNamespace.TestClass.StaticMethod( 1, 2 ) と同等 ) num = CInt( t.invokemember( "StaticMethod", _ BindingFlags.InvokeMethod, _ New Object( ) 1, 2 )) ' ref パラメータで返される値を取得 (num = MyNamespace.TestClass.StaticMethod(1, 2, 0) と同等 ) Dim objs( ) As Object = 1, 2, 0 num = CInt( t.invokemember( "StaticMethod", _ BindingFlags.InvokeMethod, _ objs )) Console.WriteLine(objs(2)) ' ref パラメータで受け取った値を表示 -12-

13 ' パラメータ名でパラメータを指定 (str = target.publicmethod( num2:=5, num1:=7 ) と同等 ) str = CStr( t.invokemember( "PublicMethod", _ BindingFlags.InvokeMethod, _ Nothing, target, _ New Object( ) 5, 7, _ New String( ) "num2", "num1" )) '======================= ' プロパティの設定と取得 '======================= ' PublicProperty プロパティを設定 (target.publicproperty = 100 と同等 ) t.invokemember( "PublicProperty", _ BindingFlags.SetProperty, _ target, _ New Object( ) 100 ) ' PublicProperty プロパティを取得 (num = target.publicproperty と同等 ) num = CInt( t.invokemember( "PublicProperty", _ BindingFlags.GetProperty, _ target, _ Nothing )) ' インデクサの指定したインデックスの要素を設定 (target(1) = "two" と同等 ) t.invokemember( "Item", _ BindingFlags.SetProperty, _ target, _ New Object( ) 1, "two" ) ' インデクサの指定したインデックスの要素を取得 (str = target(1) と同等 ) str = CStr( t.invokemember( "Item", _ BindingFlags.GetProperty, _ target, _ New Object( ) 1 )) '======================= ' フィールドの設定と取得 '======================= ' PrivateField フィールドを設定 (target.privatefield = 0 と同等 ) ' 但し通常プライベートフィールドにはアクセス不可 -13-

14 t.invokemember( "PrivateField", _ BindingFlags.Public Or BindingFlags.NonPublic Or _ BindingFlags.Instance Or BindingFlags.SetField, _ target, _ New Object( ) 0 ) ' PrivateField フィールドを取得 (num = target.privatefield と同等 ) ' 但し通常プライベートフィールドにはアクセス不可 num = CInt( t.invokemember( "PrivateField", _ BindingFlags.Public Or BindingFlags.NonPublic Or _ BindingFlags.Instance Or BindingFlags.GetField, _ target, _ Nothing )) ' 配列 StringArray フィールドの 0 番目の値を設定 (target.stringarray(0) = " ゼロ " と同等 ) t.invokemember( "StringArray", _ BindingFlags.SetField, _ target, _ New Object( ) 0, " ゼロ " ) ' 配列 StringArray フィールドの 0 番目の値を取得 (str = target.stringarray(0) と同等 ) str = CStr( t.invokemember( "StringArray", _ BindingFlags.GetField, _ target, _ New Object( ) 0 )) C# // using System.Reflection; がソースファイルの一番上に書かれて居る物とする int num; string str; // TestClass クラスの Type オブジェクトを取得 Type t = typeof( MyNamespace.TestClass ); //=================== // インスタンスの作成 //=================== // TestClass のインスタンスを作成 (target = new MyNamespace.TestClass(100) と同等 ) object target = t.invokemember( BindingFlags.CreateInstance, -14-

15 new object[ ] 100 ); //=============== // メソッドの実行 //=============== // PublicMethod メソッドを実行 (str = target.publicmethod(12) と同等 ) str = ( string ) t.invokemember( "PublicMethod", BindingFlags.InvokeMethod, target, new object[ ] 12 ); // 静的メソッド StaticMethod を実行 (num = MyNamespace.TestClass.StaticMethod(1, 2) と同等 ) num = ( int ) t.invokemember( "StaticMethod", BindingFlags.InvokeMethod, new object[ ] 1, 2 ); // ref パラメータで返される値を取得 (num = MyNamespace.TestClass.StaticMethod(1, 2, ref 0) と同等 ) object[ ] objs = new object[ ] 1, 2, 0 ; num = ( int ) t.invokemember( "StaticMethod", BindingFlags.InvokeMethod, objs ); Console.WriteLine( objs[ 2 ]); // ref パラメータで受け取った値を表示 // パラメータ名でパラメータを指定する (str = target.publicmethod(num2:=5, num1:=7) と同等 ) str = ( string ) t.invokemember( "PublicMethod", BindingFlags.InvokeMethod, target, new object[ ] 5, 7, new string[ ] "num2", "num1" ); //======================= // プロパティの設定と取得 //======================= // PublicProperty プロパティを設定 (target.publicproperty = 100 と同等 ) t.invokemember( "PublicProperty", BindingFlags.SetProperty, target, new object[ ] 100 ); -15-

16 // PublicProperty プロパティを取得 (num = target.publicproperty と同等 ) num = ( int ) t.invokemember( "PublicProperty", BindingFlags.GetProperty, target, null ); // インデクサの指定したインデックスの要素を設定 (target[1] = "two" と同等 ) t.invokemember( "Item", BindingFlags.SetProperty, target, new object[ ] 1, "two" ); // インデクサの指定したインデックスの要素を取得 (str = target[1] と同等 ) str = ( string ) t.invokemember( "Item", BindingFlags.GetProperty, target, new object[ ] 1 ); //======================= // フィールドの設定と取得 //======================= // PrivateField フィールドを設定 (target.privatefield = 0 と同等 ) // 但し通常プライベートフィールドにはアクセス不可 t.invokemember( "PrivateField", BindingFlags.Public BindingFlags.NonPublic BindingFlags.Instance BindingFlags.SetField, target, new object[ ] 0 ); // PrivateField フィールドを取得 (num = target.privatefield と同等 ) // 但し通常プライベートフィールドにはアクセス不可 num = ( int ) t.invokemember ("PrivateField", BindingFlags.Public BindingFlags.NonPublic BindingFlags.Instance BindingFlags.GetField, target, null ); // 配列 StringArray フィールドの 0 番目の値を設定 (target.stringarray[0] = " ゼロ " と同等 ) t.invokemember( "StringArray", BindingFlags.SetField, target, new object[ ] 0, " ゼロ " ); -16-

17 // 配列 StringArray フィールドの 0 番目の値を取得 (str = target.stringarray[0] と同等 ) str = ( string ) t.invokemember( "StringArray", BindingFlags.GetField, target, new object[ ] 0 ); MethodInfo ConstructorInfo PropertyInfo FieldInfo クラスを使用した方法上記の様に Type.InvokeMember メソッドを使う以外に MethodInfo ConstructorInfo クラスの Invoke メソッドを使ってメソッドやコンストラクタを呼び出したり PropertyInfo FieldInfo クラスの SetValue GetValue メソッドを使ってプロパティやフィールドの値を取得設定する事も出来る猶 MemberInfo オブジェクトを取得する方法に付いては此方のサイトで説明されて居る此等の方法を使用した簡単な例を下記に示す Visual Basic ' Imports System.Reflection' がソースファイルの一番上に書かれて居る物とする ' TestClass クラスの Type オブジェクトを取得 Dim t As Type = GetType( MyNamespace.TestClass ) ' インスタンスの作成 Dim ci As ConstructorInfo = _ t.getconstructor( New Type( ) GetType( Integer )) Dim target As Object = ci.invoke( New Object( ) 5 ) ' メソッドの実行 Dim mi As MethodInfo = t.getmethod( "PublicMethod", New Type( ) ) Dim str As String = CStr( mi.invoke( target, New Object( ) )) ' プロパティの設定と取得 Dim pi As PropertyInfo = t.getproperty( "PublicProperty" ) pi.setvalue( target, 1, Nothing ) Dim num As Integer = CInt( pi.getvalue( target, Nothing )) ' フィールドの設定と取得 Dim fi As FieldInfo = t.getfield( "PrivateField", _ BindingFlags.Public Or BindingFlags.NonPublic Or _ BindingFlags.Instance ) fi.setvalue( target, -1 ) num = CInt( fi.getvalue( target )) C# // using System.Reflection; がソースファイルの一番上に書かれて居る物とする // TestClass クラスの Type オブジェクトを取得 Type t = typeof( MyNamespace.TestClass ); -17-

18 // インスタンスの作成 ConstructorInfo ci = t.getconstructor( new Type[ ] typeof( int )); object target = ci.invoke( new object[ ] 5 ); // メソッドの実行 MethodInfo mi = t.getmethod( "PublicMethod", new Type[ ] ); string str = ( string ) mi.invoke( target, new object[ ] ); // プロパティの設定と取得 PropertyInfo pi = t.getproperty( "PublicProperty" ); pi.setvalue( target, 1, null ); int num = ( int ) pi.getvalue( target, null ); // フィールドの設定と取得 FieldInfo fi = t.getfield( "PrivateField", BindingFlags.Public BindingFlags.NonPublic BindingFlags.Instance ); fi.setvalue( target, -1 ); num = ( int ) fi.getvalue( target ); CreateInstance メソッドに依るインスタンスの作成更にインスタンスの作成は AppDomain.CreateInstance メソッド Assembly.CreateInstance メソッドや Activator.CreateInstance メソッド ( 配列を作成する時は Array.CreateInstance メソッド ) 等を使用する事でも可能で有る ( 一般的に良く使われて居るのは Activator.CreateInstance メソッドで有る ) 補足此処で紹介した様にコンパイル時に型が不明で有るオブジェクトを Object 型変数に代入し実行時に其のメソッドやプロパティ等を呼び出す方法を遅延バインディングと呼ぶ ( 此れに対してコンパイル時に型が明確に宣言された変数にオブジェクトが代入される時は事前バインディングされる ) Visual Basic.NET 以降では Option Strict ステートメントを Off にする事に依り ( 又はコンパイラオプションに "/optionstrict+" を指定 ) 暗黙の遅延バインディングを使用出来るので InvokeMember メソッドを使ってメソッドやプロパティを呼び出す必要が無く成る Visual Basic の暗黙の遅延バインディングに依りメソッドやプロパティを呼び出す例を下記に示す Visual Basic 'Imports System.Reflection がソースファイルの一番上に書かれて居る物とする Dim num As Integer Dim str As String ' TestClass クラスの Type オブジェクトを取得 Dim t As Type = GetType( MyNamespace.TestClass ) -18-

19 ' TestClass のインスタンスを作成 Dim target As Object = t.invokemember( BindingFlags.CreateInstance, _ New Object( ) 100 ) ' PublicMethod メソッドを実行 num = target.publicmethod( 12 ) ' プロパティの設定と取得 (PublicProperty プロパティを設定 ) target.publicproperty = 100 ' インデクサの指定したインデックスの要素を取得 str = target( 1 ) C# // using System.Reflection; がソースファイルの一番上に書かれて居る物とする int num; string str; // TestClass クラスの Type オブジェクトを取得 Type t = GetType( MyNamespace.TestClass ); // TestClass のインスタンスを作成 object target = t.invokemember( BindingFlags.CreateInstance, new object[ ] 100 ) // PublicMethod メソッドを実行 num = target.publicmethod( 12 ); // プロパティの設定と取得 (PublicProperty プロパティを設定 ) target.publicproperty = 100; // インデクサの指定したインデックスの要素を取得 str = target( 1 ) -19-

ICONファイルフォーマット

ICONファイルフォーマットグラフィックス画像フォーマットエンコーダパラメータ様々なフォーマットで画像を保存 Bitmap クラスを用いる事でビットマップ JPEG GIF PNG 等様々なフォーマットの画像を読み込み操作する事が出来る更に Bitmap クラスや Graphics コンテナを用いて描画処理等を施したイメージをファイルに保存する事も出来る此の時読み込めるフォーマット同様に保存するフォーマットを選択する事が出来る