Module
Enhavo
Indekso 🔎︎

# IsUnoStruct Function

Liveras la valoron True se la donita objekto estas Uno-struck (strukturo).

## Sintakso:

    IsUnoStruct( Uno type )

## Liverota valoro:

Bool

## Parametroj:

Uno type : A UnoObject

## Ekzemplo:

    Sub Main
    Dim bIsStruct
    ' Generi servon
    Dim oSimpleFileAccess
    oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
    bIsStruct = IsUnoStruct( oSimpleFileAccess )
    MsgBox bIsStruct ' Vidigas 'False' ĉar oSimpleFileAccess ne estas struct
    ' Generi atributan struct (strukturon)
    Dim aProperty As New com.sun.star.beans.Property
    bIsStruct = IsUnoStruct( aProperty )
    MsgBox bIsStruct ' Vidigas 'True' ĉar aProperty estas struct
    bIsStruct = IsUnoStruct( 42 )
    MsgBox bIsStruct ' Vidigas False ĉar 42 NE estas struct
    End Sub