Opérateur Is

Teste si deux variables Basic font référence à la même instance d'objet.

result = oObj1 Is oObj2

Si oObj1 et oObj2 sont des références à la même instance d'objet, le résultat sera True.

L'exemple ci-dessous définit d'abord un nouveau type Student. L'appel de TestObjects crée l'objet oStudent1 en tant que nouvel objet de ce type.

L'affectation oStudent2 = oStudent1 copie en fait la référence au même objet. Par conséquent, le résultat de l'application de l'opérateur Is est True.

    Type Student
        FirstName as String
        Program as String
    End Type
    
    Sub TestObjects
        Dim oStudent1 as new Student
        Dim oStudent2 as Variant
        oStudent2 = oStudent1
        MsgBox Student1 Is Student2 ' True
    End Sub
  

L'exemple ci-dessous renvoie False car oStudent1 et oStudent2 sont des références à deux instances d'objet différentes, chacune créée avec l'opérateur New.

    Sub TestObjects_v2
        Dim oStudent1 as new Student
        Dim oStudent2 as new Student
        MsgBox oStudent1 Is oStudent2 ' False
    End Sub