Função IsUnoStruct

Retorna Verdadeiro se o objeto for uma estrutura Uno.

Sintaxe:

IsUnoStruct( Uno type )

Valor de retorno:

Boolean

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