LibreOfficeDev 25.8 Hjälp
Testar om ett Basic Uno-objekt stöder vissa Uno-gränssnitt.
Returnerar True om alla Uno-gränssnitt som nämnts stöds, annars returneras False.
HasUnoInterfaces( oTest, Uno-gränssnittsnamn 1 [, Uno- gränssnittsnamn 2, ...])
Bool
| Name | Type | Description | 
|---|---|---|
| oTest | Object | the Basic Uno object that you want to test. | 
| Uno-Interface-Name 1,  | String | Uno interface name(s) | 
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