.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: View property
This view action displays a few properties of the current view.

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

See Also