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