例: HiddenChars property

次のアクションスクリプトは隠し文字を表示します。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  uidoc.HiddenChars = True
End Sub

このアクションスクリプトは、隠し文字を切り替えて、隠し文字が表示されていなければそれを表示し、表示されていれば非表示にします。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  'toggle property
  uidoc.HiddenChars = Not uidoc.HiddenChars
End Sub