LibreOffice 25.2 Βοήθεια
Μεταφέρει τον έλεγχο στο λειτουργικό σύστημα κατά την εκτέλεση της μακροεντολής, ώστε να μπορεί να επεξεργάζεται τα συμβάντα σε αναμονή.
Το DoEvents παρέχει συμβατότητα με τη VBA. Επιστρέφει πάντα 0. Η χρήση του στο LibreOffice δεν είναι απαραίτητη.
[Call] DoEvents[()] As Integer
Και τα δύο παραδείγματα ορίζουν έναν προοδευτικό μετρητή στο πρώτο κελί ενός νεοανοιγμένου εγγράφου Calc.
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