CompatibilityMode-funksjon

Innhold

# 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.

### Syntaks:

          Kompatibilitetsmodus (Valgfri Aktiver som boolsk) Som boolsk

### Returtype:

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.

### Parametre:

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 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.

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

### 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

Alternativ Compatible uttrykk

Rem Uttrykk

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

Basisuttrykk for alternativer

Alternativ Eksplisitt uttrykk

Alternativ VBA støtte-uttrykk

Alternativt ClassModule Uttrykk

Supporter oss!