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

Støt os venligst!