Contenu

# 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

Rubriques connexes

La bibliothèque ScriptForge

Aidez-nous !