LibreOffice 25.2 Hjelp
Overfører kontroll til operativsystemet under utføring av makroar, slik at det kan handsama ventande hendingar.
DoEvents gjev kompatibilitet med VBA. Han returnerer alltid 0. Det er ikkje nødvendig å bruka han i LibreOffice.
        [Call] DoEvents[()] As Integer
    Begge eksempla sett ein progressiv teljar på den første cella i eit nyopna 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