Funzione EqualUnoObjects

Restituisce True se le due variabili Basic specificate rappresentano la stessa istanza dell'oggetto Uno.

Sintassi:

EqualUnoObjects(oObj1, oObj2)

Return type:

Bool

Parametri:

Name

Type

Description

oObj1

Object

the first Basic Uno object.

oObj2

Object

the second Basic Uno object.


Esempio:

L'esempio seguente restituisce True in quanto entrambe le variabili oDoc e ThisComponent sono riferimenti allo stesso oggetto:


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

L'esempio seguente restituisce False in quanto l'assegnazione crea una copia dell'oggetto di partenza. Quindi Struct1 e Struct2 si riferiscono ad istanze diverse dell'oggetto.


    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