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