CompatibilityMode-funksjon

Innhold
Innholdsliste 🔎︎

# CompatibilityMode() Function

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.

### Syntaks:

          Kompatibilitetsmodus (Valgfri Aktiver som boolsk) Som boolsk

### Returverdi:

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

### Parametre:

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

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

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 LibreOffice Basic fjerner en katalog rekursivt.

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

- Color components calculation with the Red and Blue functions which are interchanged (The Green function is not affected).

### Eksempel:

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.

### Eksempel:

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

Lignende emner

Option Compatible Statement

Rem Statement

Modifisering av variabelomfang i Bruk av prosedyrer og funksjoner med funksjonen CompatibilityMode().

Option Base Statement

Option Explicit Statement

Option VBASupport Statement

Option ClassModule Statement