IBM Lotus Symphony
|
Returnerer True, hvis de to angivne Basic UNO-objekter repræsenterer samme UNO-objektforekomst.
EqualUnoObjects( oObj1, oObj2 )
Boolean
// Kopi af objekter -> samme forekomst
oIntrospection = CreateUnoService( "com.sun.star.beans.Introspection" )
oIntro2 = oIntrospection
Print EqualUnoObjects( oIntrospection, oIntro2 )
// Kopi af strukturer som værdi -> ny forekomst
Dim Struct1 As new com.sun.star.beans.Property
Struct2 = Struct1
Print EqualUnoObjects( Struct1, Struct2 )