EqualUnoObjects Function

Nagbabalik totoo kung ang dalawang tinukoy na Basic na variable ay kumakatawan sa parehong Uno object instance.

Syntax:

EqualUnoObjects(oObj1, oObj2)

Mga Parameter:

oObj1, oObj2: ang mga variable na susuriin.

Ibinalik na halaga:

Bool

Halimbawa:

Nagbabalik ang halimbawa sa ibaba totoo dahil pareho oDoc at ThisComponent ay mga sanggunian sa parehong bagay:


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

Nagbabalik ang halimbawa sa ibaba Mali dahil ang pagtatalaga ay lumilikha ng isang kopya ng orihinal na bagay. Kaya naman Istruktura1 at Istruktura2 sumangguni sa iba't ibang bagay na pagkakataon.


    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 Function