Funzione CompatibilityMode()

La funzione CompatibilityMode() controlla o ricerca il modo del tempo di esecuzione (runtime). Riguarda tutto il codice eseguito dopo aver (re)impostato il modo del tempo di esecuzione.

warning

Utilizzate questa funzione con cautela, limitatela, per esempio, alla conversione di documenti.


Sintassi:


      CompatibilityMode(Optional Enable As Boolean) As Boolean
    

Valore restituito:

CompatibilityMode function always returns the mode that is active after its execution. That is if called with argument, it returns the new mode, if called without argument, it returns active mode without modifying it.

Parametri:

Enable: Sets or unsets new compatibility mode when the argument is present.

note

CompatibilityMode function relates to Option VBASupport 1, in which case it always returns True. It is unrelated to Option Compatible compiler directive.


Questa funzione può interessare o aiutare nelle situazioni sotto specificate:

Esempio:

Specificata una directory NON vuota in file:///home/me/Test


      Sub RemoveDir
      

MsgBox CompatibilityMode() ' False

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

MsgBox CompatibilityMode ' False

End Sub

Con CompatibilityMode( True ) il programma eleva un errore, altrimenti viene eliminata la directory Test e tutto il suo contenuto.

Esempio:

Modifica del comportamento Dir


    Sub VBADirCommand
        CompatibilityMode( Enable := True )   ' Mostra anche file normali
        Entry$ = Dir( "file:///home/me/Tmp/*.*", 16 )
        Total$ = ""
        While Entry$ <> ""
            Total$ = Total$ + Entry$ + Chr$(13)
            Entry$ = Dir
        Wend
        MsgBox Total$
        CompatibilityMode Enable := False ' Shows only directories
    End Sub