DoEvents-funktion

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.

Syntaks:


        [Call] DoEvents[()] As Integer

Eksempel:

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

Biblioteket ScriptForge