LibreOffice 25.8 Hjælp
Overfører kontrollen til operativsystemet under afvikling af makro, sådan at det kan håndtere ventende hændelser.
DoEvents giver kompatibilitet med VBA. Funktionen returnerer altid 0. Funktionen er ikke nødvendig at bruge i LibreOffice.
        [Call] DoEvents[()] As Integer
    Begge eksempler sætter en progressiv tæller på den første celle af et nyåbnet Calc-dokument.
      Sub DoEventsExample
          Dim i As Long, sheet As Object, cell As Object
          sheet = ThisComponent.Sheets.getByIndex(0) ' ark 1
          cell = sheet.getCellByPosition(0,0) ' celle 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