Examples: NotesUIView class
- 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
- 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
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.