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 プロパティ
用語集
ヘルプに対するフィードバック
ヘルプの使い方
ヘルプを開く
用語集
ヘルプに対するフィードバック
ヘルプの使い方
ヘルプを開く