Contenuto

# Funzione EqualUnoObjects

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

### Sintassi:

EqualUnoObjects(oObj1, oObj2)

### Parametri:

oObj1, oObj2: le variabili da controllare.

### Valore restituito:

Bool

### 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

Argomenti correlati

Funzione IsObject