LibreOfficeDev 25.8 Hjelp
Tester om et Basic Uno-objekt støtter visse Uno-grensesnitt.
Returnerer Sann, hvis alle oppgitt Uno-grensesnitt støttes, ellers returneres Usann.
HasUnoInterfaces( oTest, Uno-Interface-Name 1 [, Uno-Interface-Name 2, ...])
Bool
| Navn | Type | Beskrivelse | 
|---|---|---|
| oTest | Object | Basic Uno-objektet du vil teste. | 
| Uno-Grensesnittsnavn 1,  | String | Uno Grensesnittsnavn | 
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