ຟັງຊັນ 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