Contenu

# Fonction EqualUnoObjects

Renvoie True si les deux variables Basic spécifiées représentent la même instance d'objet Uno.

### Syntaxe :

EqualUnoObjects(oObj1, oObj2)

### Paramètres :

oObj1, oObj2: les variables à tester.

### Valeur de retour :

Logique (Bool)

### Exemple :

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

Rubriques connexes

Fonction IsObject