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.

note

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


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 !