Funzione CompatibilityMode()

La funzione CompatibilityMode() controlla o richiede informazioni sul modo in fase di esecuzione (runtime). Ha effetto su tutto il codice eseguito dopo l'impostazione o la reimpostazione del modo della fase di esecuzione.

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

CompatibilityMode(Optional Enable As Boolean) As Boolean

La funzione CompatibilityMode restituisce sempre il modo attivo dopo la sua esecuzione. Quindi, se chiamata con argomento, restituisce il nuovo modo; se chiamata senza argomento, restituisce il modo attivo senza modificarlo.

Enable: attiva o disattiva il nuovo modo di compatibilità nel caso in cui l'argomento sia presente.

La funzione CompatibilityMode è collegata all'opzione VBASupport 1, che in tal caso restituisce sempre True. Non è invece collegata alla direttiva del compilatore Option Compatible.

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

• Ambito delle variabili

• Avvio del comando RmDir nel modo VBA. In VBA solo le directory vuote vengono rimosse da RmDir, mentre Collabora Office Basic le rimuove in modo ricorsivo.

• Cambio del comportamento Dir di Basic. Il flag di directory (16) per il comando Dir indica che vengono restituite solo directory in Collabora Office Basic, mentre in VBA vengono restituiti normali file e directory.

• Nel calcolo delle componenti dei colori le funzioni Red e Blue sono interscambiabili (La funzione Green non viene influenzata).

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 genera un errore, altrimenti la directory Test viene eliminata con il suo contenuto.

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 ' Mostra solo le directory
End Sub