LOTUSSCRIPT /COM/OLE のクラス

例:LockHolders プロパティ
次のビューアクションは、「Main Document」というフォームのロック所有者を表示します。

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase

REM Exit if locking is not enabled
If Not db.IsDesignLockingEnabled Then
Print "Design locking not enabled"
Exit Sub
End If

REM Get selected document
Dim form As NotesForm
Set form = db.GetForm("Main Document")

REM Display lock holders
holders = form.LockHolders
If holders(0) = "" Then
Messagebox "None",, "Lock holders"
Else
Forall h In holders
msg$ = msg$ & h & Chr(13)
End Forall
Messagebox msg$,, "Lock holders"
End If
End Sub

関連項目