表紙 > VB.NET サンプル >

VB.NET 2002, VB.NET 2003, VB2005

メソッドやプロパティが存在するか調べる

１．メソッドが存在するか調べる例

以下の例ではsenderにFocusメソッドが存在するか調べ、存在する場合にはFocusメソッドを呼び出す。

 

If Not IsNothing(sender.GetType.GetMethod("Focus")) Then     sender.GetType.GetMethod("Focus").Invoke(sender, Nothing) End If

　

２．プロパティが存在するか調べる例

以下の例ではsenderにBackColorプロパティが存在するか調べ、存在する場合にはBackColorプロパティにColor.Redを設定する。

 

If Not IsNothing(sender.GetType.GetProperty("BackColor")) Then     sender.GetType.GetProperty("BackColor").SetValue(sender, Color.Red, Nothing) End If

３．メンバが存在するか調べる例

以下の例ではsenderにEnabledという名前のメンバが存在するか調べる。

 

If IsNothing(sender.GetType.GetMember("Enabled")) Then     MsgBox("Enabledは存在しません。") Else     MsgBox("Enabledは存在します。") End If

メモ：メソッドやプロパティ以外に、イベントやフィールドなどもメンバであることに注意してください。

VB6ではCallByNameを使って試しにメンバを呼び出してみてエラーになるかならないかで調べるしかありません。