IsUnoStruct-funktion
Returnerer sand hvis det givne objekt er en UNO struct.
Syntaks:
IsUnoStruct(UNO-type)
Returværdi:
Bool
Parametre:
Uno-type : Et UNO-objekt
Eksempel:
Sub Main
Dim bIsStruct
' Instantiater en service
Dim oSimpleFileAccess
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
bIsStruct = IsUnoStruct( oSimpleFileAccess )
MsgBox bErStruct REM Viser Falsk fordi oSimpleFileAccess ikke er en struct
' Instantier en egenskabs-struct
Dim aProperty As New com.sun.star.beans.Property
bIsStruct = IsUnoStruct( aProperty )
MsgBox bErStruct ' Viser Sand fordi aEgenskab er a struct
bIsStruct = IsUnoStruct( 42 )
MsgBox bErStruct ' Viser Falsk fordi 42 ikke er en struct
End Sub