Hilfe für LibreOffice 24.8
Gibt True zurück, wenn es sich bei dem angegebenen Objekt um eine Uno-Struct handelt.
IsUnoStruct( Uno type name )
Boolean
Uno type: Ein Uno-Objekt
Sub Main
Dim bIsStruct
' Eine Instanz eines Dienstes erstellen
Dim oSimpleFileAccess
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
bIsStruct = IsUnoStruct( oSimpleFileAccess )
MsgBox bIsStruct ' Zeigt False an, da oSimpleFileAccess KEINE Struct ist
' Eine Instanz einer Property-Struct erstellen
Dim aProperty As New com.sun.star.beans.Property
bIsStruct = IsUnoStruct( aProperty )
MsgBox bIsStruct ' Zeigt True an, da aProperty eine Struct ist
bIsStruct = IsUnoStruct( 42 )
MsgBox bIsStruct ' Zeigt False an, da 42 KEINE Struct ist
End Sub