ເນື້ອໃນ

# ຕົວດຳເນີນການ 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

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຟັງຊັນ EqualUnoObjects

ຟັງຊັນ IsObject

ຄຳສັ່ງ Type

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!