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

Aidez-nous !