Aide LibreOffice 7.6
Renvoie True si les deux variables Basic spécifiées représentent la même instance d'objet Uno.
EqualUnoObjects(oObj1, oObj2)
oObj1, oObj2: les variables à tester.
Logique (Bool)
L'exemple ci-dessous renvoie True car oDoc et ThisComponent sont des références au même objet :
Dim oDoc as Object
oDoc = ThisComponent
MsgBox EqualUnoObjects(oDoc, ThisComponent) ' True
L'exemple ci-dessous renvoie False car l'affectation crée une copie de l'objet d'origine. Par conséquent, Struct1 et Struct2 font référence à des instances d'objet différentes.
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