Archiv

TechInfo

NotesTimer - Aktionen im UI automatisch auslösen

By Mike Meister

Unter Verwendung des Lotus Script NotesTimer-Objekts kann innerhalb des UIs eine Aktion zeitgesteuert ausgelöst werden.
Hierzu muss z.B. innerhalb der Globals/Declarations einer Form das Objekt reloadTimer as NotesTimer dimensioniert werden:

Dim reloadTimer As NotesTimer

Unter z.B. Postopen(Source As Notesuidocument) kann dann das Objket initialisiert und dem Event Alarm eine Methode zugewiesen werden.

Sub Postopen(Source As Notesuidocument)

' init timer for automatic reload
Set reloadTimer = New NotesTimer(15, "Reload Portal")
On Event Alarm From reloadTimer Call reloadForm

End Sub

Zuvor muss die Methode reloadForm in den Globals (oder eben "erreichbar") deklariert worden sein:

Sub reloadForm(reloadTimer As NotesTimer)

Call portalUIDoc.refresh()

End Sub

Das Objekt portalUIDoc ist vom Typ NotesuiDocument und wurde global deklariert und beim öffnen des Maske intialisiert.

Das Ergebnis ist eine Maske, die sich alle 15 Sekunden "selbst" aktualisiert.
Euch fallen bestimmt einige nette Einsatzmöglichkeiten ein - bestimmt auch solche mit mehr Komplexität ;-).

Einen Kommentar erstellen

Tags:
Alle Tags