Aktivieren Sie zum Anzeigen der LibreOfficeDev Hilfeseiten JavaScript in ihrem Browser.

Funktion DoEvents

Übergibt die Kontrolle während der Makroausführung an das Betriebssystem, damit es die wartenden Ereignisse verarbeiten kann.

note

DoEvents bietet Kompatibilität mit VBA. Es gibt immer 0 zurück. Die Verwendung in LibreOfficeDev ist nicht erforderlich.


Syntax:


        [Call] DoEvents[()] As Integer
    

Beispiel:

Beide Beispiele setzen einen progressiven Zähler auf die erste Zelle eines neu geöffneten Calc-Dokuments.


      Sub DoEventsExample
          Dim i As Long, sheet As Object, cell As Object
          sheet = ThisComponent.Sheets.getByIndex(0) ' Tabelle 1
          cell = sheet.getCellByPosition(0,0) ' Zelle 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