Scroll Text In Your Status Bar

You can use this code to set a scrolling text in status bar.
' In the Global (Declaration)

Dim Progress As Integer
Dim companyname As String
Dim disptimer As notestimer




Sub Postopen(Source As Notesuidocument)
companyname="Lotus Corporation"
progress=50
Set disptimer=New notestimer(1,"Progress")
On Event alarm From disptimer Call elapsedtimer
End Sub


'In the form events add the below function

Sub elapsedtimer(source As notestimer)
Print ".";Space(progress);"Copyright ? 1999 " & companyname
progress=progress-2
If progress<0 Or progress=0 Then
progress=150
End If
End Sub
This was first published in November 2000

Dig deeper on Lotus Notes 8

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close