LOTUSSCRIPT/COM/OLE CLASSES

Examples: HeaderAlignment property
This agent toggles the alignment.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim vc As NotesViewColumn
 Set db = session.CurrentDatabase
 Set view = db.GetView("Categorized")
 Set vc = view.Columns(1)
 If vc.HeaderAlignment = VC_ALIGN_LEFT Then
   vc.HeaderAlignment = VC_ALIGN_RIGHT
 Elseif vc.HeaderAlignment = VC_ALIGN_RIGHT Then
   vc.HeaderAlignment = VC_ALIGN_CENTER
 Else
   vc.HeaderAlignment = VC_ALIGN_LEFT
 End If
End Sub

See Also