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