ເນື້ອໃນ

# ຟັງຊັນ DoEvents

ສົ່ງການຄວບຄຸມຄືນໃຫ້ລະບົບປະຕິບັດການໃນລະຫວ່າງການເຮັດວຽກຂອງມາໂຄຣ, ເພື່ອໃຫ້ມັນສາມາດປະມວນຜົນເຫດການທີ່ກຳລັງລໍຖ້າຢູ່.

DoEvents ມີໄວ້ເພື່ອຄວາມເຂົ້າກັນໄດ້ກັບ VBA. ມັນຈະສົ່ງຄືນຄ່າ 0 ສະເໝີ. ການໃຊ້ມັນໃນ LibreOffice ແມ່ນບໍ່ຈຳເປັນ.

### ໄວຍາກອນ:

            [Call] DoEvents[()] As Integer

### ຕົວຢ່າງ:

ທັງສອງຕົວຢ່າງຈະຕັ້ງຄ່າຕົວນັບທີ່ເພີ່ມຂຶ້ນໃນຫ້ອງທຳອິດຂອງເອກະສານ Calc ທີ່ຫາກໍ່ເປີດໃໝ່.

          Sub DoEventsExample
              Dim i As Long, sheet As Object, cell As Object
              sheet = ThisComponent.Sheets.getByIndex(0) ' ແຜ່ນງານທີ 1
              cell = sheet.getCellByPosition(0,0) ' ຫ້ອງ A1
              For i = 1 To 20000
                  cell.setString(Str(i))
                  DoEvents
              Next i
          End Sub ' DoEventsExample

          Sub DoEvents_example
              Dim i As Long, ui As Object
              GlobalScope.BasicLibraries.LoadLibrary("ScriptForge")
          	Set ui = CreateScriptService("SFDocuments.Calc", ThisComponent)
              For i = 1 To 20000
                  ui.SetValue("A1", i)
                  DoEvents
              Next i
              ui.Dispose()
          End Sub ' DoEvents_example

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຄັງສຳນວນ ScriptForge

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!