HCL Domino - Examples: IsExpanded property - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

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

LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsExpanded property
1. This agent displays the expansion status of each section in a rich text item.

Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Dim dc As NotesDocumentCollection Set dc = db.UnprocessedDocuments Dim doc As NotesDocument Set doc = dc.GetFirstDocument Dim rti As NotesRichTextItem Set rti = doc.GetFirstItem("Body") Dim rtnav As NotesRichTextNavigator Set rtnav = rti.CreateNavigator If Not rtnav.FindFirstElement(RTELEM_TYPE_SECTION) Then Messagebox "Body item does not contain a section,",, _ "Error" Exit Sub End If Dim rts As NotesRichTextSection Do Set rts = rtnav.GetElement If rts.IsExpanded Then Messagebox "Section is expanded",, rts.Title Else Messagebox "Section is not expanded",, rts.Title End If Loop While rtnav.FindNextElement End Sub

2. This agent toggles the expansion status of each section in a rich text item.

Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Dim dc As NotesDocumentCollection Set dc = db.UnprocessedDocuments Dim doc As NotesDocument Set doc = dc.GetFirstDocument Dim rti As NotesRichTextItem Set rti = doc.GetFirstItem("Body") Dim rtnav As NotesRichTextNavigator Set rtnav = rti.CreateNavigator If Not rtnav.FindFirstElement(RTELEM_TYPE_SECTION) Then Messagebox "Body item does not contain a section,",, _ "Error" Exit Sub End If Dim rts As NotesRichTextSection Do Set rts = rtnav.GetElement If rts.IsExpanded Then rts.IsExpanded = False Else rts.IsExpanded = True End If Loop While rtnav.FindNextElement(RTELEM_TYPE_SECTION, 1) Call doc.Save(True, True) End Sub

See Also

IsExpanded property

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents