例: NotesUIView class

次の例は、現在のビューを開かれたときに調べて、ビューが [カレンダー] ビューであるかどうかをユーザーに問い合わせます。

(Globals) (Declarations)
%INCLUDE "lsconst.lss"
Sub Queryopen(Source As Notesuiview, Continue As Variant)
  Dim view As NotesView
  Set view = Source.View
  If view.IsCalendar Then
    If Messagebox ("Do you want to continue?", _
    MB_ICONQUESTION, _
    "Calendar view") = IDNO Then
      Continue = False
    End If
  End If
End Sub

次のビューアクションは、現在のビューを印刷します。

Sub Click(Source As Button)
  Dim wks As New NotesUIWorkspace
  Dim view As NotesUIView
  Set view = wks.CurrentView
  Call view.Print()
End Sub