Ticker

[Jacinda]

Hi, I would like to set up a ticker on the footer of a form for my production
team.

The data would be updated from the front office, and viewed on their screen...
It's just a blank form, with orders that are due on the top, I wanted to
have a unbound scrolling ticker in the footer for special notes/
announcements etc.

I found the code below, but I think I'm missing something because it is not
"scrolling"

So from the ground up, can someone explain what I need to have on the back
end and on the front end...

thanks

if pos < len(allbidstextbox) then
pos = pos +1
if pos > 1 then
frontEnd = mid(allbidstextbox, pos-1)
else
frontEnd = vbNUllString
end if
else
pos = 1
frontEnd = vbNUllString
end if
tickertextbox = Mid(allbidstextbox, pos) & frontEnd

 

[Marshall Barton]

Hi, I would like to set up a ticker on the footer of a form for my production
team.

The data would be updated from the front office, and viewed on their screen...
It's just a blank form, with orders that are due on the top, I wanted to
have a unbound scrolling ticker in the footer for special notes/
announcements etc.

I found the code below, but I think I'm missing something because it is not
"scrolling"

So from the ground up, can someone explain what I need to have on the back
end and on the front end...

if pos < len(allbidstextbox) then
pos = pos +1
if pos > 1 then
frontEnd = mid(allbidstextbox, pos-1)
else
frontEnd = vbNUllString
end if
else
pos = 1
frontEnd = vbNUllString
end if
tickertextbox = Mid(allbidstextbox, pos) & frontEnd

Where did you put that code? I think it should do what you
want if you put it in the form's Timer event and set the
TimerInterval property to something around 300
(milliseconds).