Lotus Symphony 1.2
|
如果指定的兩個 Basic Uno 物件為同一 Uno 物件實例,則傳回 True (真)。
Sub ExampleEqualUnoObjects
REM Copy of objects -> same instance
oIntrospection = CreateUnoService( "com.sun.star.beans.Introspection" )
oIntro2 = oIntrospection
print EqualUnoObjects ( oIntrospection, oIntro2 )
REM Copy of structs as value -> new instance
Dim Struct1 as new com.sun.star.beans.Property
Struct2 = Struct1
print EqualUnoObjects ( Struct1, Struct2 )
End Sub