LOTUSSCRIPT/COM/OLE CLASSES


Examples: BackgroundColor property
This agent toggles the background color of a view among three colors.

Sub Initialize
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Set db = s.CurrentDatabase
 Set view = db.GetView("Topics")
 If view.BackgroundColor = COLOR_LIGHT_GRAY Then
   view.BackgroundColor = COLOR_YELLOW
   Messagebox "Yellow",, "New color is ..."
 Elseif view.BackgroundColor = COLOR_YELLOW Then
   view.BackgroundColor = COLOR_WHITE
   Messagebox "White",, "New color is ..."
 Else
   view.BackgroundColor = COLOR_LIGHT_GRAY
   Messagebox "Light gray",, "New color is ..."
 End If
End Sub

See Also