ເນື້ອໃນ

# ຟັງຊັນ EqualUnoObjects

ສົ່ງຄືນ True ຖ້າຕົວປ່ຽນ Basic ທັງສອງທີ່ລະບຸແທນອິນສະແຕນຊ໌ຂອງວັດຖຸ Uno ດຽວກັນ.

### ໄວຍາກອນ:

EqualUnoObjects(oObj1, oObj2)

### ປະເພດຄ່າທີ່ສົ່ງກັບ:

Bool

### ພາຣາມິເຕີ:

ຊື່ | ປະເພດ | ຄຳອະທິບາຍ
--- | --- | ---
oObj1 | Object | ວັດຖຸ Basic Uno ທຳອິດ.
oObj2 | Object | ວັດຖຸ Basic Uno ທີສອງ.

### ຕົວຢ່າງ:

ຕົວຢ່າງຂ້າງລຸ່ມນີ້ສົ່ງຄືນ True ເພາະທັງ oDoc ແລະ ThisComponent ແມ່ນການອ້າງອີງເຖິງວັດຖຸດຽວກັນ:

        Dim oDoc as Object
        oDoc = ThisComponent
        MsgBox EqualUnoObjects(oDoc, ThisComponent) ' True

ຕົວຢ່າງຂ້າງລຸ່ມນີ້ສົ່ງຄືນ False ເພາະການກຳນົດຄ່າເປັນການສ້າງສຳເນົາຂອງວັດຖຸເດີມ. ດັ່ງນັ້ນ Struct1 ແລະ Struct2 ຈຶ່ງອ້າງອີງເຖິງອິນສະແຕນຊ໌ວັດຖຸທີ່ຕ່າງກັນ.

        Dim Struct1 as new com.sun.star.beans.PropertyValue
        Dim Struct2 as Variant
        Struct1.Name = "John"
        Struct2 = Struct1
        MsgBox EqualUnoObjects(Struct1, Struct2) ' False
        Struct2.Name = "Judy"
        MsgBox Struct1.Name ' John
        MsgBox Struct2.Name ' Judy

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

ຟັງຊັນ IsObject

ອັອບເຈັກ, ຟັງຊັນ ແລະ ບໍລິການຂອງ UNO