CompatibilityMode() Function

CompatibilityMode() function na kontrol o query runtime mode. Nakakaapekto ito sa lahat ng code na naisakatuparan pagkatapos i-set o i-reset ang runtime mode.

Gamitin ang tampok na ito nang may pag-iingat, limitahan ito sa conversion ng dokumento halimbawa.

      CompatibilityMode(Opsyonal na Paganahin Bilang Boolean) Bilang Boolean
    

CompatibilityMode Ang function ay palaging nagbabalik ng mode na aktibo pagkatapos ng pagpapatupad nito. Iyon ay, kung tinatawag na may argumento, ibinabalik nito ang bagong mode; kung tawagin nang walang argumento, ibinabalik nito ang aktibong mode nang hindi ito binabago.

Paganahin : Nagtatakda o nagtatanggal ng bagong compatibility mode kapag naroroon ang argumento.

CompatibilityMode function na nauugnay sa Opsyon VBASupport 1 , kung saan ito ay palaging bumabalik totoo . Ito ay walang kaugnayan sa Katugmang Pagpipilian direktiba ng compiler.

Ang function na ito ay maaaring makaapekto o makatulong sa mga sumusunod na sitwasyon:

• Saklaw ng mga variable.

• Tumatakbo RmDir utos sa VBA mode. Sa VBA lamang ang mga walang laman na direktoryo ay inalis ng RmDir habang ang LibreOffice Basic ay nag-aalis ng isang direktoryo nang paulit-ulit.

• Pagbabago ng pag-uugali ng Basic Sinabi ni Dir utos. Ang flag ng direktoryo (16) para sa Sinabi ni Dir utos ay nangangahulugan na ang mga direktoryo lamang ang ibinabalik sa LibreOffice Basic, habang sa VBA ang mga normal na file at direktoryo ay ibinabalik.

• Pagkalkula ng mga bahagi ng kulay gamit ang Pula at Asul function na kung saan ay ipinagpapalit (Ang Berde hindi apektado ang pag-andar).

Binigyan ng HINDI walang laman na direktoryo sa file:///home/me/Test

      Sub RemoveDir
      
    MsgBox CompatibilityMode() ' False
      

          CompatibilityMode( True )
          RmDir( "file:///home/me/Test" )
          CompatibilityMode False 
      
      
    MsgBox CompatibilityMode ' False
      End Sub
   

Sa CompatibilityMode( True ) ang programa ay nagtataas ng isang error, kung hindi man ang Pagsubok direktoryo at lahat ng nilalaman nito ay tinanggal.

Binabago Sinabi ni Dir pag-uugali

    Sub VBADirCommand
        CompatibilityMode( Enable := True ) ' Nagpapakita din ng mga normal na file
        Entry$ = Dir( "file:///home/me/Tmp/*.*", 16 )
        Total$ = ""
        While Entry$ <> ""
            Total$ = Total$ + Entry$ + Chr$(13)
            Entry$ = Dir
        Wend
        MsgBox Total$
        CompatibilityMode Enable := False ' Nagpapakita lamang ng mga direktoryo
    End Sub