EqualUnoObjects Function

แƒแƒ‘แƒ แƒฃแƒœแƒ”แƒ‘แƒก แƒญแƒ”แƒจแƒ›แƒแƒ แƒ˜แƒข แƒ›แƒœแƒ˜แƒจแƒ•แƒœแƒ”แƒšแƒแƒ‘แƒแƒก, แƒ—แƒฃ แƒแƒ  แƒแƒฆแƒœแƒ˜แƒจแƒœแƒฃแƒšแƒ˜ แƒซแƒ˜แƒ แƒ˜แƒ—แƒแƒ“แƒ˜ แƒแƒ‘แƒ˜แƒ”แƒฅแƒขแƒ˜ Uno แƒฌแƒแƒ แƒ›แƒแƒ“แƒ’แƒ”แƒœแƒ”แƒœ Uno-แƒก แƒ”แƒ แƒ—แƒ˜ แƒ“แƒ แƒ˜แƒ’แƒ˜แƒ•แƒ” แƒจแƒ”แƒ›แƒ—แƒฎแƒ•แƒ”แƒ•แƒแƒก.

Syntax:

EqualUnoObjects( oObj1, oObj2 )

Return value:

Bool

Example:


    ' Copy of objects -> same instance
    oIntrospection = CreateUnoService( "com.sun.star.beans.Introspection" )
    oIntro2 = oIntrospection
    print EqualUnoObjects( oIntrospection, oIntro2 )
    ' Copy of structs as value -> new instance
    Dim Struct1 as new com.sun.star.beans.Property
    Struct2 = Struct1
    print EqualUnoObjects( Struct1, Struct2 )

Please support us!