Fonction HasUnoInterfaces

Teste si un objet Uno Basic supporte certaines interfaces Uno.

Renvoie True, si toutes les interfaces Uno spécifiées sont supportées. Renvoie False dans le cas contraire.

Syntaxe :

HasUnoInterfaces( oTest, Nom-Interface-Uno 1 [, Nom-Interface-Uno 2, ...])

Type de renvoie :

Bool

Paramètres :

Nom

Type

Description

oTest

Object

l'objet Uno Basic que vous souhaitez tester.

Uno-Interface-Name 1,
Uno-Interface-Name 2, ...

String

Nom(s) de l'interface Uno


Exemple :


Sub HasInterface
    Dim bHas as Boolean
    Dim oSheet as Object
    oSheet = ThisComponent.Sheets(0) 
    bHas = HasUnoInterfaces( oSheet, "com.sun.star.beans.XIntrospection" )
    Print bHas ' = True
End Sub

Aidez-nous !