LOTUSSCRIPT/COM/OLE CLASSES
Examples: Accessing view or folder columns
1. This example displays properties of all columns in all views in the current database.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
REM view is a NotesView object
Forall view In db.Views
Messagebox "View name: " & view.Name
REM column is a NotesViewColumn object
Forall column In view.Columns
position = column.Position
title = column.Title
If title = "" Or title = " " Then
title = "<no title>"
formu = column.Formula
Messagebox position & ", " _
& title & ", " & formu
End Forall
End Forall
End Sub
2. This example displays properties of the By Category view in a database.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Messagebox "Background color: " & view.BackgroundColor
Messagebox "Column Count: " & view.ColumnCount
Messagebox "Header Lines: " & view.HeaderLines
Messagebox "Row Lines: " & view.RowLines
Messagebox "Spacing: " & view.Spacing
Messagebox "Top Level Entries: " & view.TopLevelEntryCount
If view.IsCategorized Then
Messagebox "Categorized"
Else
Messagebox "Not Categorized"
End If
If view.IsConflict Then
Messagebox "Conflict enabled"
Else
Messagebox "Not conflict enabled"
End If
If view.IsHierarchical Then
Messagebox "Hierarchical"
Else
Messagebox "Not hierarchical"
End If
If view.IsModified Then
Messagebox "Modified"
Else
Messagebox "Not modified"
End If
End Sub
See Also
Accessing view or folder columns
Glossary
Feedback on Help?
Help on Help
Open Full Help Window
Glossary
Feedback on Help?
Help on Help
Open Full Help Window