Contenuto

# 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 LibreOffice.

### 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

Argomenti correlati

La libreria ScriptForge

Sostienici!