From 267c6f2ac71f92999e969232431ba04678e7437e Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Mon, 15 Apr 2024 07:54:39 +0200 Subject: Adding upstream version 4:24.2.0. Signed-off-by: Daniel Baumann --- .../source/text/sbasic/shared/03104600.xhp | 70 ++++++++++++++++++++++ 1 file changed, 70 insertions(+) create mode 100644 helpcontent2/source/text/sbasic/shared/03104600.xhp (limited to 'helpcontent2/source/text/sbasic/shared/03104600.xhp') diff --git a/helpcontent2/source/text/sbasic/shared/03104600.xhp b/helpcontent2/source/text/sbasic/shared/03104600.xhp new file mode 100644 index 0000000000..5a0e3d9584 --- /dev/null +++ b/helpcontent2/source/text/sbasic/shared/03104600.xhp @@ -0,0 +1,70 @@ + + + + + + + EqualUnoObjects Function + /text/sbasic/shared/03104600.xhp + + + Sun Microsystems, Inc. + + + + +

+ + EqualUnoObjects function + +

EqualUnoObjects Function

+ Returns True if the two specified Basic variables represent the same Uno object instance. +

+ + EqualUnoObjects(oObj1, oObj2) + +

+ oObj1, oObj2: the variables to be tested. +

+ Bool +

+ The example below returns True because both oDoc and ThisComponent are references to the same object: + + Dim oDoc as Object + oDoc = ThisComponent + MsgBox EqualUnoObjects(oDoc, ThisComponent) ' True + + The example below returns False because the assignment creates a copy of the original object. Hence Struct1 and Struct2 refer to different object instances. + + 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 + + +

+ + -- cgit v1.2.3