Fonction DoEvents

Transfère le contrôle au système d'exploitation lors de l'exécution de la macro, afin qu'il puisse traiter les événements en attente.

DoEvents assure la compatibilité avec VBA. Il renvoie toujours 0. Il n'est pas nécessaire de l'utiliser dans LibreOffice.

Syntaxe :


        [Call] DoEvents[()] As Integer

Exemple :

Les deux exemples définissent un compteur progressif sur la première cellule d'un document Calc nouvellement ouvert.


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

La bibliothèque ScriptForge