ຕົວດຳເນີນການ Is

ທົດສອບວ່າຕົວປ່ຽນ Basic ສອງຕົວອ້າງອີງເຖິງອິນສະແຕນຊ໌ (instance) ຂອງອັອບເຈັກດຽວກັນຫຼືບໍ່.

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