例: IsDesignLockingEnabled property (NotesDatabase - LotusScript®)

次のエージェントは、現在のデータベースで設計ロックが有効であるかどうかを表示します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  If db.IsDesignLockingEnabled Then
    Messagebox "Design locking is enabled",, "Enabled"
  Else
    Messagebox "Design locking is disabled",, "Disabled"
  End If
End Sub

次のビューエージェントは、現在のデータベースの設計ロックを切り替えます。

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  If db.IsDesignLockingEnabled Then
    db.IsDesignLockingEnabled = False
    Messagebox "Design locking is disabled",, "Disabled"
  Else
    db.IsDesignLockingEnabled = True
    Messagebox "Design locking is enabled",, "Enabled"
  End If
End Sub