LOTUSSCRIPT /COM/OLE のクラス

例:OnBlur イベント
次に示すのは、フォームの [Subject] フィールドに対する OnBlur イベントです。このイベントでは、ユーザーが値の入力を求められます。

Sub Onblur(Source As Field)
 Dim ws As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Set uidoc = ws.CurrentDocument
 If uidoc.FieldGetText("Subject") = "" Then
   uidoc.GotoField("Subject")
   Print "Subject cannot be blank"
 Else
   Print "Subject:""" & uidoc.FieldGetText("Subject") & """"
 End If
End Sub

関連項目