LibreOffice 24.8 सहयोग
Transfers control to the operating system during macro execution, so that it can process the events in waiting.
DoEvents provides compatibility with VBA. It always returns 0. Using it in LibreOffice is not necessary.
[Call] DoEvents[()] As Integer
Both examples set a progressive counter on the first cell of a newly opened Calc document.
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