ຟັງຊັນ CompatibilityMode()

ຟັງຊັນ CompatibilityMode() ໃຊ້ເພື່ອຄວບຄຸມ ຫຼື ສອບຖາມໂໝດການເຮັດວຽກ (runtime mode). ມັນມີຜົນຕໍ່ລະຫັດທັງໝົດທີ່ເຮັດວຽກຫຼັງຈາກທີ່ມີການຕັ້ງຄ່າ ຫຼື ຕັ້ງຄ່າໂໝດການເຮັດວຽກໃໝ່.

ໃຊ້ຄຸນສົມບັດນີ້ດ້ວຍຄວາມລະມັດລະວັງ, ເຊັ່ນ ຈຳກັດໄວ້ພຽງແຕ່ສຳລັບການແປງເອກະສານ.

      CompatibilityMode(Optional Enable As Boolean) As Boolean
    

ຟັງຊັນ CompatibilityMode ຈະສົ່ງຄືນໂໝດທີ່ມີຜົນໃຊ້ງານຫຼັງຈາກການເຮັດວຽກສະເໝີ. ນັ້ນຄື, ຖ້າຮຽກໃຊ້ພ້ອມອາກິວເມັນ, ມັນຈະສົ່ງຄືນໂໝດໃໝ່; ຖ້າຮຽກໃຊ້ໂດຍບໍ່ມີອາກິວເມັນ, ມັນຈະສົ່ງຄືນໂໝດທີ່ກຳລັງໃຊ້ງານຢູ່ໂດຍບໍ່ມີການແກ້ໄຂ.

Enable: ຕັ້ງຄ່າ ຫຼື ຍົກເລີກໂໝດເຂົ້າກັນໄດ້ໃໝ່ເມື່ອມີອາກິວເມັນ.

ຟັງຊັນ CompatibilityMode ກ່ຽວຂ້ອງກັບ Option VBASupport 1, ເຊິ່ງໃນກໍລະນີນັ້ນມັນຈະສົ່ງຄືນຄ່າ True ສະເໝີ. ມັນບໍ່ກ່ຽວຂ້ອງກັບຄຳສັ່ງຄອມໄພເລີ Option Compatible.

ຟັງຊັນນີ້ອາດມີຜົນ ຫຼື ຊ່ວຍໃນສະຖານະການຕໍ່ໄປນີ້:

• ຂອບເຂດຂອງຕົວປ່ຽນ (Scoping of variables).

• ການໃຊ້ຄຳສັ່ງ RmDir ໃນໂໝດ VBA. ໃນ VBA, RmDir ຈະລຶບໄດ້ສະເພາະໂຟນເດີທີ່ວ່າງເປົ່າເທົ່ານັ້ນ, ໃນຂະນະທີ່ LibreOffice Basic ຈະລຶບໂຟນເດີແບບ Recursive (ລວມທັງຂໍ້ມູນພາຍໃນທັງໝົດ).

• ການປ່ຽນພຶດຕິກຳຂອງຄຳສັ່ງ Basic Dir. ແຟລັກ directory (16) ສຳລັບຄຳສັ່ງ Dir ໝາຍເຖິງຈະສົ່ງຄືນສະເພາະໂຟນເດີເທົ່ານັ້ນໃນ LibreOffice Basic, ໃນຂະນະທີ່ໃນ VBA ຈະສົ່ງຄືນທັງໄຟລ໌ປົກກະຕິ ແລະ ໂຟນເດີ.

• ການຄຳນວນສ່ວນປະກອບຂອງສີດ້ວຍຟັງຊັນ Red ແລະ Blue ເຊິ່ງ ຖືກສະຫຼັບກັນ (ຟັງຊັນ Green ຈະບໍ່ໄດ້ຮັບຜົນກະທົບ).

ສົມມຸດວ່າມີໂຟນເດີທີ່ບໍ່ວ່າງເປົ່າຢູ່ທີ່ file:///home/me/Test

      Sub RemoveDir
      
    MsgBox CompatibilityMode() ' False
      

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

ດ້ວຍ CompatibilityMode( True ) ໂປຣແກຣມຈະແຈ້ງຂໍ້ຜິດພາດ, ຖ້າບໍ່ດັ່ງນັ້ນ ໂຟນເດີ Test ແລະ ເນື້ອໃນທັງໝົດພາຍໃນຈະຖືກລຶບ.

ການແກ້ໄຂພຶດຕິກຳຂອງ Dir

    Sub VBADirCommand
        CompatibilityMode( Enable := True )   ' ສະແດງໄຟລ໌ປົກກະຕິລວມນຳ
        Entry$ = Dir( "file:///home/me/Tmp/*.*", 16 )
        Total$ = ""
        While Entry$ <> ""
            Total$ = Total$ + Entry$ + Chr$(13)
            Entry$ = Dir
        Wend
        MsgBox Total$
        CompatibilityMode Enable := False ' ສະແດງສະເພາະໂຟນເດີ
    End Sub