Examples: NotesUIView class

1. This example examines the current view as it is opened and queries the user if the view is a calendar view.

(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

2. This view action prints the current view.

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