Funkcija CompatibilityMode()

Funkcija CompatibilityMode() nadzira oz. vrne izvajalni način. Vpliva na vso izvršeno kodo po (po)nastavitvi izvajalnega načina.

To funkcionalnost uporabljajte previdno, omejite jo npr. na pretvorbo dokumentov.

CompatibilityMode(Optional Enable As Boolean) As Boolean

Funkcija CompatibilityMode vedno vrne način, ki je dejaven po njeni izvršitvi. Če je klicana z argumentom, vrne novi način; če je klicana brez argumenta, pa vrne trenutno dejavni način, ne da bi ga spreminjala.

Enable: določi ali prekliče določitev načina združljivosti, kadar je prisoten argument.

Funkcija CompatibilityMode se nanaša na Option VBASupport 1, zaradi česar vedno vrne True. Ni povezana z ukazom prevajalniku Option Compatible.

Ta funkcija lahko vpliva ali je v pomoč v sledečih situacijah:

• Določanje obsega spremenljivk.

• Izvajanje ukaza RmDir v načinu VBA. V VBA se z ukazom RmDir odstranijo le prazne mape, medtem ko Collabora Office Basic odstrani mapo na rekurziven način.

• Sprememba vedenja ukaza Basic Dir. Zastavica mape (16) za ukaz Dir pomeni, da se v Collabora Office Basic vrnejo le mape, v VBA pa navadne datoteke in mape.

• Izračun barvnih komponent s funkcijami Red in Blue, ki sta izmenljivi (na funkcijo Green to ne vpliva).

Primer: NE prazna mapa file:///domov/jaz/Preizkus

Sub RemoveDir
    MsgBox CompatibilityMode() ' False

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

    MsgBox CompatibilityMode ' False
End Sub

Z ukazom CompatibilityMode( True ) program vrne napako, sicer pa je mapa Test izbrisana z vso svojo vsebino.

Spreminjanje vedenja ukaza Dir

Sub VBADirCommand
    CompatibilityMode( Enable := True )   ' Pokaže tudi navadne datoteke
    Entry$ = Dir( "file:///home/me/Tmp/*.*", 16 )
    Total$ = ""
    While Entry$ <> ""
        Total$ = Total$ + Entry$ + Chr$(13)
        Entry$ = Dir
    Wend
    MsgBox Total$
    CompatibilityMode Enable := False ' Pokaže samo mape
End Sub