Funkce CompatibilityMode()

Funkce CompatibilityMode() určuje či zjišťuje režim běhu programů. Ovlivňuje, jak se bude po nastavení nebo zrušení tohoto režimu vykonávat veškerý kód.

Používejte tuto funkci opatrně, například ji omezte na převody dokumentů.

CompatibilityMode(Optional Enable As Boolean) As Boolean

Funkce CompatibilityMode vždy vrátí režim, který je aktivní po jejím provedení. Tj. zavoláte-li ji s argumentem, vrátí nový režim, v opačném případě vrátí aktivní režim a nezmění jej.

Enable: Je-li tento argument zadán, nastaví nebo zruší nastavení nového režimu kompatibility.

Funkce CompatibilityMode se vztahuje k možnosti Option VBASupport 1, pro kterou vždy vrátí True. Nesouvisí s direktivou kompilátoru Option Compatible.

Tato funkce může ovlivnit následující situace:

• Viditelnost proměnných.

• Spouštění příkazu RmDir v režimu VBA. V něm funkce RmDir odstraní pouze prázdné adresáře, zatímco Collabora Office Basic odstraní adresář rekurzivně.

• Změna chování příkazu Basicu Dir. Příznak pro adresáře (16) u příkazu Dir znamená, že se v jazyku Collabora Office Basic vrátí pouze adresáře, kdežto v režimu VBA se vrátí adresáře i běžné soubory.

• Výpočet složek barvy pomocí funkcí Red a Blue, které jsou odlišné. (Funkce Green není ovlivněna.)

Za předpokladu, že adresář file:///home/me/Test není prázdný

Sub RemoveDir
    MsgBox CompatibilityMode() ' False

    CompatibilityMode( True )
    RmDir( "file:///home/me/Test" )
    CompatibilityMode False

    MsgBox CompatibilityMode ' False
End Sub

S CompatibilityMode(True) nastane v programu chyba, v opačném případě bude smazání adresář Test a veškerý jeho obsah.

Změna chování funkce Dir

Sub VBADirCommand
    CompatibilityMode( Enable := True )   ' Zobrazí také běžné soubory
    Entry$ = Dir( "file:///home/me/Tmp/*.*", 16 )
    Total$ = ""
    While Entry$ <> ""
        Total$ = Total$ + Entry$ + Chr$(13)
        Entry$ = Dir
    Wend
    MsgBox Total$
    CompatibilityMode Enable := False ' Zobrazí pouze adresáře
End Sub