"alle abschnitter erweitern" per schaltfläche ?

[Silent_Bob]

guten morgen,

sagt mal, gibt es eine möglichkeit in einer maske alle erstellten abschnitte per schaltfläche auf und wieder zuklappen zu lassen? (ohne die tastenkombination shift & + oder schift & - zu benutzen?)

[Performance]

yep - mach dir eine shared action mit
Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   
   Set uidoc = ws.CurrentDocument
   Call uidoc.ExpandAllSections
   '''''oder
        Call uidoc.CollapseAllSections
End Sub

cu

[Axel]

Hi,

oder per Formeln

komprimieren mit @Command( [SectionCollapseAll] )

expandieren mit @Command( [SectionExpandAll] )


Axel

[Silent_Bob]

ich hab in der hilfe unter den @commands immer bei "edit" oder "view" geguckt...
"section"! toll, da bin ich natürlich nicht drauf gekommen.

ich danke euch