方法: 2 つのオブジェクトが同一であるかどうか判別する (Visual Basic)

[アーティクル]
08/09/2011

Visual Basic では、ポインターが同一である場合、つまり双方の変数がメモリ内で同一のクラスインスタンスを指している場合は、2 つの変数参照は同一であると見なされます。たとえば、Windows フォームアプリケーションで、現在のインスタンス (Me) が Form2 などの特定のインスタンスと同一であるかどうかを判別する際に比較することができます。

Visual Basic には、ポインターを比較する 2 つの演算子が用意されています。 Is 演算子 (Visual Basic) では、オブジェクトが同じである場合 True が返されます。IsNot 演算子 (Visual Basic) では、オブジェクトが異なる場合 True が返されます。

2 つのオブジェクトが同じであるかどうかの確認

2 つのオブジェクトが同じであるかどうかを確認するには

Boolean 式を設定して 2 つのオブジェクトをテストします。
テストを実行する式では、2 つのオブジェクトにオペランドとして Is 演算子を使用します。

Is は、両方のオブジェクトが同じクラスインスタンスを指している場合 True を返します。

2 つのオブジェクトが同一でないかどうかの確認

2 つのオブジェクトが同一でないかどうかを確認する場合があります。しかし、If Not obj1 Is obj2 のように Not と Is を組み合わせて使用するのは大変面倒なことです。このような場合に、IsNot 演算子を使用できます。

2 つのオブジェクトが同一でないかどうかを確認するには

Boolean 式を設定して 2 つのオブジェクトをテストします。
テストを実行する式では、2 つのオブジェクトにオペランドとして IsNot 演算子を使用します。

IsNot は、両方のオブジェクトが同じクラスインスタンスを指していない場合に True を返します。

使用例

1 組の Object 変数が同じクラスインスタンスを指しているかどうかをテストする例を、次に示します。

Dim objA, objB, objC As Object
objA = My.User
objB = New ApplicationServices.User
objC = My.User
MsgBox("objA different from objB? " & CStr(objA IsNot objB))
MsgBox("objA identical to objC? " & CStr(objA Is objC))

前の例では、次の出力が表示されます。

objA different from objB? True

objA identical to objC? True