Función IsUnoStruct

Devolve verdadeiro se o obxecto é unha estrutura Uno.

Sintaxe:

IsUnoStruct( tipo de Uno )

Valor de retorno:

Bool

Parámetros:

Uno type : un ObxectoUno.

Exemplo:


Sub Main
Dim bIsStruct
' Crear unha instancia para un servizo
Dim oSimpleFileAccess
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
bIsStruct = IsUnoStruct( oSimpleFileAccess )
MsgBox bIsStruct ' Mostra False porque oSimpleFileAccess non é unha estrutura
' Crear unha instancia para unha estrutura Property
Dim aProperty As New com.sun.star.beans.Property
bIsStruct = IsUnoStruct( aProperty )
MsgBox bIsStruct ' Mostra True porque aProperty é unha estrutura
bIsStruct = IsUnoStruct( 42 )
MsgBox bIsStruct ' Mostra False porque 42 non é unha estrutura
End Sub

Precisamos da súa axuda!