[Return to contents]

Example LotusScript: Flashing text

Last updated: before December, 1998

When this script is called, the message turns RED, blinks 5 times and then turns black and stops.

Notes:

     "Warn" is a text box with the required message on a view i.e. Please Wait.......
     The text color of the message is Black.
     The fill color of the view is white.
     The flashing color of text is Red.

This script was forwarded from the Approach Discussion community on Lotus Support Website.

Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
        for i = 1 to 5
                source.warn.font.color.setrgb(color_red)
                source.warn.setfocus
                for q = 1 to 50000
                next
                source.warn.font.color.setrgb_white
                source.warn.setfocus
                for q = 1 to 50000
                next
        next
        source.warn.font.color.setrgb(color_black)
End Sub