18.01.2013 Views

LotusScript for Visual Basic Programmers - IBM Redbooks

LotusScript for Visual Basic Programmers - IBM Redbooks

LotusScript for Visual Basic Programmers - IBM Redbooks

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

End Forall<br />

End Sub<br />

Messagebox "Default view"<br />

If view.IsFolder Then Messagebox "Folder"<br />

Following is an explanation of the code:<br />

We process all the views in the db database. The view’s properties, such as<br />

parent, LastModified, Created and UniversalID are processed using the<br />

syntax object.property. IsFolder is a property of the view, which is defined<br />

as a folder.<br />

Forall view In db.Views<br />

Messagebox "View name: " & view.Name & Chr(10) _<br />

& "Parent: " & view.Parent.Title & Chr(10) _<br />

& "Last modified: " & view.LastModified & Chr(10) _<br />

& "Created: " & view.Created & Chr(10) _<br />

& "Universal ID: " & view.UniversalID<br />

If view.IsDefaultView Then _<br />

Messagebox "Default view"<br />

If view.IsFolder Then Messagebox "Folder"<br />

End Forall<br />

Note In Lotus Notes Release 4.5, a new front-end class will be available,<br />

NotesUIView. This class can only be used in <strong>LotusScript</strong>. In an opened<br />

view, you can use this class to access the current view.<br />

Chapter 8: Accessing Notes Views 143

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!