例: ビューやフォルダの列にアクセスする

次の例では、現在のデータベースにあるすべてのビューのすべての列のプロパティを出力します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim views As Variant
  Dim columns As Variant
  Set db = session.CurrentDatabase
  REM view is a NotesView object
  views = db.Views
  Forall view In views
    REM column is a NotesViewColumn object
    columns = view.Columns
    Forall column In columns
      position = column.Position
      title = column.Title
      If title = "" Or title = " " Then 
        title = "<no title>"
      End If
      formu = column.Formula
      Messagebox position & ", " _
      & title & ", " & formu,, view.Name
    End Forall
  End Forall
End Sub

次の例では、データベースの [By Category] ビューのプロパティを表示します。

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