Guida di LibreOffice 24.8
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 LibreOffice.
[Call] DoEvents[()] As Integer
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