Follow these instructions and paste in this LotusScript code to easily allow you to show or hide layers in a Lotus Notes database.
- Create a layer.
- Add a hidden 'layer state' field.
- Set the Hide/When formula for the paragraph containing the layer to layerStateFld = "0."
- Create a Hotspot action that calls the following sub routine.
Static Sub showAndHideLayer(stateFld$) '-- Show or Hide a layer '-- stateFld$ - name of the field referenced by the layer's hide formula '-- Dim doc As NotesDocument Dim layers List As String Dim layerState$ If Not ( Iselement(layers(stateFld$)) ) Then '-- first time user clicked the show/hide icon for this layer layers(stateFld$) = "0" End If '-- ws is NotesUIWorkspace, declared in Form-Globals and set in Form-Initialize Set doc = ws.CurrentDocument.Document layerState$ = layers(stateFld$) '-- change the layers display state 1=show 0=hide If(layerState$ = "0") Then Call doc.ReplaceItemValue(stateFld$,"1") Else Call doc.ReplaceItemValue(stateFld$,"0") End If '-- save the layers new state layers(stateFld$) = doc.GetItemValue(stateFld$)(0) Call uidoc.RefreshHideFormulas End Sub
Do you have comments on this tip? Let us know.
Related information from SearchDomino.com:
This tip was submitted to the SearchDomino.com tip library by member Jane Griscti. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.