例: View property

次のビューアクションは、現在のビューのプロパティを一部表示します。

Sub Click(Source As Button)
  Dim ws As New NotesUIWorkspace
  Dim uiview As NotesUIView
  Dim view As NotesView
  Dim msg As String
  Set uiview = ws.CurrentView
  Set view = uiview.View
  If view.IsCategorized Then
    msg = "Categorized view" & Chr(13)
  Else
    msg = "Not categorized" & Chr(13)
  End If
  If view.IsDefaultView Then
    msg = msg & "Default view" & Chr(13)
  Else
    msg = msg & "Not the default view" & Chr(13)
  End If
  msg = msg & "Last modified: " & view.LastModified
  Messagebox msg,, uiview.ViewName
End Sub