Scrolling text

[Dave Titan]

Anyone know where this scrolling text tool is???

Can't believe I can't find it at this stage!!

 

[Rich]

Is there one?

 

[ColinEssex]

Hi

Here's an example of scrolling text code that came up last year.

You can write a scrolling text box in access. To test this, make a blank form with a text box on it named TextBox.

100 seems to work pretty well for the TimerInterval.

Include the following code:

Option Compare Database
Option Explicit
Public Message As String

Private Sub Form_Open(Cancel As Integer)
Message = " Type your message here. If it is not longer than this text box, make sure you add additional spaces. "
End Sub

Private Sub Form_Timer()
TextBox = Message
'Get first character
Dim FChar As String
FChar = left(Message, 1)
'Remove first character
Message = Mid$(Message, 2, Len(Message) - 1)
'Put 1st character at the end of the message.
Message = Message + FChar
End Sub


This example was from a post by doulostheou - thanks to them for that - I only copied it.


Col

 

[Mile-O]

There's also an ActiveX Control called Marquee, or something - I think that can be used for scrolling text in the same way as a marquee on a web-page.

Don't quote me on that though.

 

[Mile-O]

Alos, here's a link to a database tha show's you how to control scrolling in the Form's caption, in a label on a form, and in the Access status bar.

Scrolling DB

Just click on the Attachment link.

 

[Dave Titan]

Thanks for all that, will get to work on it! I'm sure my next question will involve Flash. But not today