Fonction IsUnoStruct

Renvoie True si l'objet donné est une classe struct Uno.

Syntaxe :

IsUnoStruct (nom de type Uno)

Valeur de retour :

Logique (Bool)

Paramètres :

Type UNO : objet UNO

Exemple :

Sub Main

Dim bIsStruct

' Instanciez un service

Dim oSimpleFileAccess

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

bIsStruct = IsUnoStruct( oSimpleFileAccess )

MsgBox bIsStruct ' Affiche False, car oSimpleFileAccess n'est PAS une classe struct

' Instanciez une classe struct Property

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

bIsStruct = IsUnoStruct( aProperty )

MsgBox bIsStruct ' Affiche la valeur True, car aProperty est une classe struct

bIsStruct = IsUnoStruct( 42 )

MsgBox bIsStruct ' Affiche la valeur False, car 42 n'est pas une classe struct

End Sub