Função IsUnoStruct

Retorna Verdadeiro se o objeto for uma estrutura Uno.

Sintaxe:

IsUnoStruct( Uno type )

Valor de retorno:

Bool

Parâmetros:

Uno type : Um UnoObject

Exemplo:

Sub Main

Dim bIsStruct

' Criar uma instância para um serviço

Dim oSimpleFileAccess

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

bIsStruct = IsUnoStruct( oSimpleFileAccess )

MsgBox bIsStruct ' Exibe Falso porque oSimpleFileAccess NÃO é uma estrutura

' Cria uma instância para uma estrutura Property

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

bIsStruct = IsUnoStruct( aProperty )

MsgBox bIsStruct ' Exibe Verdadeiro porque aProperty é uma estrutura

bIsStruct = IsUnoStruct( 42 )

MsgBox bIsStruct ' Exibe Falso porque 42 não é uma estrutura

End Sub