|
| |
|
Re: Is there a control to scroll text like a stock ticker?
Posted: 16 Aug 07 11:59 AM
|
Originally posted by Lawrence Reid
We need a way to display announcements. A stock ticker type of display has been requested.
|
|
It's easy enough to create your own.
- Drop a Timer on a Form
- Set the timer to Enabled and the interval to something like 175 (you can make this a higher number to scroll the text slower)
- Add a Label that will be the ticker (and contain the ticker text)
- For the Timer event of the Timer control, add the following code (assuming your ticker label is named Label1)
Sub Timer1Timer(Sender)
If (Label1.Width + Label1.Left) > 0 Then
Label1.Left = Label1.Left - CInt(Form.Width / 15)
Else
Label1.Left = Form.Width
End If
End Sub
That should do it. Have fun.
-Ryan
|
|
|
| |
| |
|