Função DoEvents
Transfere o controle para o sistema operacional durante a execução da macro, para que ele possa processar os eventos em fila de espera.
DoEvents fornece compatibilidade com VBA. Ele sempre retorna 0. Não é necessário usá-lo no Collabora Office.
[Call] DoEvents[()] As IntegerAmbos os exemplos definem um contador progressivo na primeira célula de um documento Calc recém-aberto.
Sub DoEventsExample
Dim i As Long, sheet As Object, cell As Object
sheet = ThisComponent.Sheets.getByIndex(0) ' Planilha 1
cell = sheet.getCellByPosition(0,0) ' célula A1
For i = 1 To 20000
cell.setString(Str(i))
DoEvents
Next i
End Sub ' DoEventsExampleSub 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