オブジェクト参照をテストする

オブジェクト参照の比較と、値 NOTHING のオブジェクト参照変数のテストを行うには、Is 演算子を使用します。この場合、オブジェクト参照が同じオブジェクトを参照している場合、および両方のオブジェクト参照が値 NOTHING を持っている場合、式は True として評価されます。それ以外の場合は False として評価されます。

次の例では、オブジェクト参照をテストしています。

Class MyClass
 ' ...
End Class

Dim x As MyClass
Dim y As MyClass
Dim z As New MyClass
Dim other As New MyClass

Set x = z
If (x Is z) Then  
   Print "Both x and z refer to the same object."
If (y Is NOTHING) Then 
   Print "y is NOTHING. It refers to no object."
If (z Is other) Then
   Print "This should not print; z and other are" & _
  " different objects."
End If

制御ステートメントの流れの中で Is 演算子を使用することもできます。例えば、次のように Do ステートメントの中で使用します。

Dim a As New MyClass, b As MyClass
' ...
Do While b Is NOTHING      ' The condition b is NOTHING.
                           ' Condition is either True or False.
' ...
  Set b = a
Loop