Indhold

# 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

Relaterede emner

Biblioteket ScriptForge