• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 272
  • Last Modified:

Stock Ticker in VB5

Hi, I need to create a 'stock ticker' type text box. For simplicity, let's say I have a set text string I want to scroll across the screen, like you can with that annoying HTML tag. I have gotten close, but I haven't quite been able to figure out how to do it. Can anybody help, please?
1 Solution
MrusineAuthor Commented:
From Mrusine:

Sorry, I said Text Box when I mean Label - not sure if it makes a difference, but I wanted to clarify.
There is a a control called CoolTicker you can download from download.com.  This has the functionality you are looking for.
try this, its just a form with a timer, a label and a private sub

Private Sub Form_Load()
 Label1 = "This is a ticker tape ....."
 Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
 Call fm_ticker
End Sub

Private Sub fm_ticker()
  Dim TmpStr As String
  Dim n as long

  TmpStr = Label1
  n = Len(TmpStr)
  TmpStr = Right$(TmpStr, n - 1) & Left$(TmpStr, 1)
  Label1 = TmpStr
End Sub
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now