LOTUSSCRIPT/COM/OLE CLASSES

Examples: Spacing property
This agent toggles the spacing for a view.

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.Spacing = VW_SPACING_SINGLE Then
   view.Spacing = VW_SPACING_ONE_POINT_25
   Messagebox "1.25",, "New spacing is ..."
 Elseif view.Spacing = VW_SPACING_ONE_POINT_25 Then
   view.Spacing = VW_SPACING_ONE_POINT_50
   Messagebox "1.5",, "New spacing is ..."
 Elseif view.Spacing = VW_SPACING_ONE_POINT_50 Then
   view.Spacing = VW_SPACING_ONE_POINT_75
   Messagebox "1.75",, "New spacing is ..."
 Elseif view.Spacing = VW_SPACING_ONE_POINT_75 Then
   view.Spacing = VW_SPACING_DOUBLE
   Messagebox "Double",, "New spacing is ..."
 Else
   view.Spacing = VW_SPACING_SINGLE
   Messagebox "Single",, "New spacing is ..."
 End If
End Sub

See Also