IBM Lotus Symphony


Funktionen IsUnoStruct [Runtime]

Returnerer True, hvis det angivne objekt er en UNO-struktur.

Syntaks:

IsUnoStruct( UNO-type )

Returværdi:

Boolean

Parametre:

Uno-type: Et UNO-objekt

Eksempel:

Sub Main

Dim bIsStruct

' Opret en forekomst af en service

Dim oSimpleFileAccess

oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )

bIsStruct = IsUnoStruct( oSimpleFileAccess )

MsgBox bIsStruct ' Viser False, fordi oSimpleFileAccess IKKE er en Struct

' Opret en forekomst af en egenskabs-Struct

Dim aProperty As New com.sun.star.beans.Property

bIsStruct = IsUnoStruct( aProperty )

MsgBox bIsStruct ' Viser True, fordi aProperty er en Struct

bIsStruct = IsUnoStruct( 42 )

MsgBox bIsStruct ' Viser False, fordi 42 IKKE er en Struct

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker