例: On Event ステートメント

Domino フォーム上の次のコードは、NotesTimer クラスの Alarm イベントの使い方を示しています。

REM Globals
Dim elapsedTime As Integer
Dim elapsedTimer As NotesTimer

REM Create a timer with 1-second interval
REM Handler for Alarm event gets call every second
Sub Onload(Source As Notesuidocument)
   Set elapsedTimer = New NotesTimer(1, _
   "Elapsed time since opening document")
   elapsedTime = 0
   On Event Alarm From elapsedTimer _
   Call elapsedTimerHandler
End Sub

REM The handler adds 1 to a global integer
Sub elapsedTimerHandler(Source As NotesTimer)
   elapsedTime = elapsedTime + 1
End Sub

REM This is an action that displays the global integer
Sub Click(Source As Button)
   Messagebox elapsedTime & " seconds",, "Elapsed time"
End Sub