CompatibilityMode()-funksjon

CompatibilityMode()-funksjonen kontrollerer eller spør om kjøretidsmodus. Det påvirker all kode som kjøres etter innstilling eller tilbakestilling av kjøretidsmodus.

Bruk denne funksjonen med forsiktighet, begrens den til for eksempel dokumentkonvertering.

Kompatibilitetsmodus (Valgfri Aktiver som boolsk) Som boolsk

Funksjonen Kompatibilitetsmodus returnerer alltid modusen som er aktiv etter utførelse. Det vil si at hvis den kalles med et argument, returnerer den den nye modusen; hvis den kalles uten et argument, returnerer den den aktive modusen uten å endre den.

Aktiver: Angir eller deaktiverer ny kompatibilitetsmodus når argumentet er tilstede.

CompatibilityMode-funksjonen er relatert til Alternativ VBASupport 1, i så fall returnerer den alltid Sann. Det er ikke relatert til Alternativ kompatibel kompilatordirektivet.

Denne funksjonen kan påvirke eller hjelpe i følgende situasjoner:

• Omfang av variabler.

• Kjører kommandoen RmDir i VBA-modus. I VBA fjernes bare tomme kataloger av RmDir mens Collabora Office Basic fjerner en katalog rekursivt.

• Endre virkemåten til grunnleggende Dir kommando. Katalogflagget (16) for kommandoen Dir betyr at bare kataloger returneres i Collabora Office Basic, mens normale filer og kataloger returneres i VBA.

• Fargekomponentberegning med Rød og Blå funksjoner som byttes (den Grønn-funksjonen påvirkes ikke).

Gitt en IKKE tom katalog på file:///home/me/Test

Sub RemoveDir
    MsgBox CompatibilityMode() ' False

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

    MsgBox CompatibilityMode ' False
End Sub

Med CompatibilityMode( True ) oppretter programmet en feil, ellers slettes Test-katalogen og alt innholdet.

Endring av Dir-atferd

Sub VBADirCommand
    Kompatibilitetsmodus (Aktiver := Sann ) ' Viser også vanlige filer
    Entry$ = Dir( "file:///home/me/Tmp/*.*", 16 )
    Total$ = ""
    While Entry$ <> ""
        Total$ = Total$ + Entry$ + Chr$(13)
        Entry$ = Dir
    Wend
    MsgBox Total$
    CompatibilityMode Enable := Usann ' Viser bare kataloger
End Sub