[AccessD] bit quite today ? Scrolling Marquee

Steven W. Erbach serbach at new.rr.com
Fri Oct 3 19:46:33 CDT 2003


Liam,

FWIW, here's something you could try.

1) Place an unbound Text Box on the form and name it something like txtMarquee.
2) Set the form's Timer Interval to, say, 200 milliseconds.
3) In the form's Load event procedure put this line of code:
    txtMarquee = "Eat at Joe's...Eat at Joe's...Eat at Joe's..."
4) In the form's Timer event procedure put this code:
   Dim str As String
   str = txtMarquee
   txtMarquee = Right(str, Len(str) - 1) & Left(str, 1)
5) Save and run the form.

Regards,

Steve Erbach
Scientific Marketing
Neenah, WI

"The press must learn that misguided use of a computer is no more amazing than drunk driving of an automobile." - Ken Thompson (co-inventor of UNIX), 1984
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20031003/30d3747f/attachment-0001.html>


More information about the AccessD mailing list