IsUnoStruct Function
Devuelve True si l'oxetu dáu ye una estructura Unu.
Sintaxis:
IsUnoStruct( nome de tipu Unu )
Valor de torna:
Lóxicu
Parámetros:
Tipu Uno: Un oxetuUno
Exemplu:
Sub Main
Dim bIsStruct
' Crear un casu d'un serviciu
Dim oSimpleFileAccess
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
bIsStruct = IsUnoStruct( oSimpleFileAccess )
MsgBox bIsStruct ' Amuesa Falso porque oSimpleFileAccess ye una estructura NON
' Crear un casu de struct Property
Dim aProperty As New com.sun.star.beans.Property
bIsStruct = IsUnoStruct( aProperty )
MsgBox bIsStruct ' Amuesa True porque aProperty ye una estructura
bIsStruct = IsUnoStruct( 42 )
MsgBox bIsStruct ' Displays False because 42 is NON struct
End Sub