Auto-scrolling Text....

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am trying to make a form where it is basically an "About" form that would
list some details of this particular application. Is it possible to make a
box where the texts scroll upwards by themselves?

What I am trying to do is to have an area on the form where it lists the
version update history (constantly updated) and it will scroll by itself
(like a credits roll in a movie) and then eventually as it gets to the end,
just repeat. Is there a default control in Access that has this function? Or
is there an ActiveX control plug in that I have to use?

I've tried textboxes, but each only allow 2048 characters and labels don't
have scroll bars. It was then I thought I remembered seeing someone else's
database (programmed in Access) seem to have something similar to this
function built into his/her splash screen.

Thanks for tips/suggestions.
 
I found this. It is a little messy but might give you a place to start.

===========================
Option Compare Database
Public selPosition As Integer
Public selTotal As Integer

Private Sub Form_Current()
Me.field1 = "Now is the time for all good men to come to the aid of
their country. And do it quick. Now is the time for all good men to
come to the aid of their country. And do it quick.Now is the time for
all good men to come to the aid of their country. And do it quick.Now
is the time for all good men to come to the aid of their country. And
do it quick.Now is the time for all good men to come to the aid of
their country. And do it quick.Now is the time for all good men to come
to the aid of their country. And do it quick."

selPosition = 10
selTotal = Len(Me.field1)
Me.field1.SetFocus

End Sub

Private Sub Form_Timer()
selPosition = selPosition + 10
Me.field1.SelStart = selPosition
End

Then set the timer interval to move it at the rate you want.

As I said this is just a start. So far have not found a scroll example.
I have seen them but cannot find one right now.
 
Back
Top