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 LibreOfficeDev.

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