Lotus Symphony 1.2


EqualUnoObjects 函數 [執行時期]

如果指定的兩個 Basic Uno 物件為同一 Uno 物件實例,則傳回 True (真)。

語法:

EqualUnoObjects ( oObj1, oObj2 )

回覆值:

Bool

範例:

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


其他文件 | 商標