Scrolling Text

[TheOx2K]

Hi I am trying to get a textbox or somthing alike that can continusly scroll the same msg from left to right.

I have VB6 is there anyway that i could do a userform and then copy that into access.

Any ideas would be of help.

 

[doulostheou]

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 message has been edited by doulostheou (edited 04-15-2002).]

 

[TheOx2K]

Thanks a lot for that. I have tried so many different way and have not had much luck.

Thank You.