Hi,
you could do something like this:
drop a container onto your form and name it cntMove.
set cntMove.Anchor to 14.
drop a label into this container and name it lblMove
set lblMove.Autosize to .T.
set lblMove.Tag to "moveright" (for YoYo-Scrolling only)
drop a timer into this container and name it tmrMove
set tmrMove.Interval to 20
put the following Code into tmrMove.Timer for ENDLESS-Scrolling
WITH This.Parent.lblMove
.Left = .Left + 1
IF .Left > .Parent.Width
.Left = .Width * (-1)
ENDIF
ENDWITH
put the following code into tmrMove.Timer for YoYo-Scrolling
WITH This.Parent.lblMove
DO CASE
CASE .Tag = [moveleft]
.Left = .Left - 1
IF .Left + .Width < 1
.Tag = [moveright]
ENDIF
CASE .Tag = [moveright]
.Left = .Left + 1
IF .Left > .Parent.Width
.Tag = [moveleft]
ENDIF
ENDCASE
ENDWITH
>Hi everyone,
>
>I want to do something like this.
>
>When we watching a 'Finance News Report' on TV, a Message-bar will running on the bottom of screen.
>To display some information as NY INDEX, HONG KONG HSI,........
>
>How can i do this effect ?
>
>Many thanks
Best Regards
-Tom
Debugging is twice as hard as writing the code in the first place.
Therefore, if you write the code as cleverly as possible, you are,
by definition, not smart enough to debug it.
Oh, and BTW: 010101100100011001010000011110000101001001101111011000110110101101110011