Guida di Collabora Office 24.04

Funzione DoEvents

Trasferisce il controllo al sistema operativo durante l'esecuzione della macro, in modo che questo possa elaborare gli eventi durante l'attesa.

DoEvents fornisce compatibilità con VBA. Restituisce sempre 0. Non è necessario usarlo in Collabora Office.

Sintassi:

[Call] DoEvents[()] As Integer

Esempio:

Entrambi gli esempi impostano un contattore progressivo nella prima cella di un nuovo documento di Calc appena aperto.

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

Sosteneteci!