Funktion IsUnoStruct

Gibt True zurück, wenn es sich bei dem angegebenen Objekt um eine Uno-Struct handelt.

Syntax:

IsUnoStruct( Uno type name )

Rückgabewert:

Bool

Parameter:

Uno type: Ein Uno-Ubjekt

Beispiel:


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

Bitte unterstützen Sie uns!