Approach User Support homepage Approach User Support
Answers to Frequently Asked Questions about Lotus Approach
Examples LotusScripts
Example databases
Links to other Lotus Approach support services

[Return to contents]

Example LotusScript: "Freezing" the screen while executing a LotusScript

Last updated: 18 Jun 2003

(Based on a post by David Legge)

Easy! Just use the command:

 currentwindow.redraw = False

   ... and will stop the window from redrawing automatically.

The trick is that you REALLY REALLY need to make sure it gets unfrozen again!

To do this set currentwindow.redraw = True at a point where the code is guaranteed to execute otherwise the window will be frozen forever.
Best to place it in an error trap, so that if anything goes wrong it will
unfreeze the screen:

Sub Mysub(......)etc
 'Error trap
 On Error Goto Trap
currentwindow.redraw = False

' YOUR CODE

ExitSub:
 currentwindow.redraw = True
 Exit Sub

Trap:
 Msgbox "Error " & Format$(Err, "####") & " in Mysub" _
 & Chr(10) & Error$, 16, "Trapped Error"
 Resume ExitSub
End Sub

[Return to contents]

© Copyright, JohnBrown, Trademarks, Disclaimer, Acknowledgements.