LOTUSSCRIPT/COM/OLE CLASSES


Examples: HeaderFontPointSize property
This agent toggles the font point size from 8 through 14.

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(0)
 vc.HeaderFontPointSize = vc.HeaderFontPointSize + 1
 If vc.HeaderFontPointSize > 14 Then
   vc.HeaderFontPointSize = 8
 End If
 Messagebox vc.HeaderFontPointSize,, "New point size"
End Sub

See Also