例: Ruler property

次の 2 つのスクリプトは関連して機能します。最初のスクリプトは、ユーザーが挿入点を特定のフィールドに置くとルーラーを表示します。2 番目のスクリプトは、ユーザーが挿入点をそのフィールドから移動するとルーラーを非表示にします。

Sub Entering(Source As Field)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  uidoc.Ruler = True
End Sub
Sub Exiting(Source As Field)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  uidoc.Ruler = False
End Sub