LOTUSSCRIPT/COM/OLE CLASSES
Examples: IsDesignLockingEnabled property
1. This agent displays whether design locking is enabled for the current database.
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. This view agent toggles design locking for the current database.
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
Véase también
IsDesignLockingEnabled property
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario