LOTUSSCRIPT /COM/OLE のクラス

例:OnFocus イベント
次に示すのは、フォームの [Subject] フィールドに対する OnFocus イベントです。このイベントはデフォルト値を指定します。

Sub Onfocus(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
If uidoc.FieldGetText("Subject") = "" Then
Call uidoc.FieldSetText("Subject", "New subject")
End If
End Sub

関連項目