LOTUSSCRIPT /COM/OLE のクラス
例:IsDesignLockingEnabled プロパティ
1. 次のエージェントは、現在のデータベースで設計ロックが有効であるかどうかを表示します。
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
2. 次のビューエージェントは、現在のデータベースの設計ロックを切り替えます。
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
関連項目
IsDesignLockingEnabled プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集