Operator Is

Sprawdza, czy dwie zmienne Basic odnoszą się do tej samej instancji obiektu.

result = oObj1 Is oObj2

Jeśli oObj1 i oObj2 są odniesieniami do tej samej instancji obiektu, wynikiem będzie True.

Poniższy przykład najpierw definiuje nowy typ Student. Wywołanie TestObjects tworzy obiekt oStudent1 jako nowy obiekt tego typu.

Przypisanie oStudent2 = oStudent1 faktycznie kopiuje odwołanie do tego samego obiektu. Stąd wynikiem zastosowania operatora Is jest 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

Poniższy przykład zwraca wartość False, ponieważ oStudent1 i oStudent2 to odwołania do dwóch różnych instancji obiektów, z których każda została utworzona za pomocą operatora New.

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