Операция Is

Проверява дали две променливи на Basic сочат към един и същ екземпляр на обект.

result = oObj1 Is oObj2

Ако oObj1 и oObj2 са псевдоними на един и същ екземпляр на обект, резултатът ще бъде True.

В долния пример първо се дефинира новият тип Student. Извикването на TestObjects създава обекта oStudent1 като нов обект от този тип.

Присвояването oStudent2 = oStudent1 всъщност създава псевдоним на същия обект. Затова резултатът от прилагането на операцията Is е 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

В следващия пример резултатът е False, защото oStudent1 и oStudent2 сочат към два различни екземпляра на обект, всеки от тях – създаден с операцията New.

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