IsUnoStruct Function

рджрд┐рдПрдХреЛ рд╡рд╕реНрддреБ Uno struct рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рд╕рддреНрдп рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:

IsUnoStruct( Uno рдкреНрд░рдХрд╛рд░ )

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдмреБрд▓рд┐рдПрди

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

Uno рдкреНрд░рдХрд╛рд░ : A UnoObject

рдЙрджрд╛рд╣рд░рдг:

Sub Main

Dim bIsStruct

'рдПрдЙрдЯрд╛ рд╕реЗрд╡рд╛ рджреГрд╖реНрдЯрд╛рдВрдиреНрдд рдЧрд░реНрдиреБрд╣реЛрд╕реН

Dim oSimpleFileAccess

oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )

bIsStruct = IsUnoStruct( oSimpleFileAccess )

MsgBox bIsStruct 'рдЭреБрдареЛ рдкреНрд░рджрд░реНрд╢рдирд╣рд░реВ рдХрд┐рдирднрдиреЗ oSimple рдлрд╛рдЗрд▓ рдкрд╣реБрдБрдЪ NO struct рд╣реЛ

' рдЙрджрд╛рд╣рд░рдгрд┐рдп рдЧреБрдг struct

Dim aProperty As New com.sun.star.beans.Property

bIsStruct = IsUnoStruct( aProperty )

MsgBox bIsStruct ' рд╕рддреНрдп рдкреНрд░рджрд░реНрд╢рдирд╣рд░реВ рдХрд┐рдирднрдиреЗ aProperty рд╣реЛ

bIsStruct = IsUnoStruct( 42 )

MsgBox bIsStruct ' рдЭреБрдареЛ рдкреНрд░рджрд░реНрд╢рдирд╣рд░реВ рдХрд┐рдирднрдиреЗ рекреи NO struct рд╣реЛ

End Sub