Moving text on status bar

[betto]

Hi there...
How can i get a moving text on a status bar control?
Does anybody know some code????

betto
[email protected]

[kedaman]

If you mean how to scroll the text you can set a timer to run this:

Private Sub Timer1_Timer()
    StatusBar.Panels(1).Text = Mid(StatusBar.Panels(1).Text, 2) & Left(StatusBar.Panels(1).Text, 1)
End Sub

[betto]

it's almost...
I meant throw the status bar... from right to left.
Besides it's in style 1 ... it's with simpletext property.

i got it.. but i used a big space " "
or larger, later i started to cut it... but it's not seem to me something elegant..

Do you know something better???

[kedaman]

You may throw a panel from right to left, if you put a panel before it (with no bevel) to go smaller and smaller...
Hope this wasn't what you didn't want

[betto]

I made this:

Private Sub Form_Load()
StatusBar1.SimpleText = "[email protected]"
End Sub

Private Sub Timer1_Timer()
StatusBar1.SimpleText = " " & StatusBar1.SimpleText
If Len(StatusBar1.SimpleText) > 250 Then
    StatusBar1.SimpleText = "[email protected]"
End If
End Sub

but it reaches only the half of status bar in style 1.

I dont exactly how long the status bar is... and if it have a middle panel.. because the text disapear at the half

Why???

[kedaman]

Don't ask me, the statusbar control, is not good enough for you. Try setting up another panel, doing this thing, and move your text by setting the width of that panel.

[betto]

Ok...
but .. why do you bother at me??

I hope I wouldn't have said anything which offend you..


betto

[Aaron Young]

Try:

Private Sub Form_Load()
    StatusBar1.Panels(1).Width = ScaleWidth
    StatusBar1.Tag = "[email protected]"
    StatusBar1.Panels(1) = StatusBar1.Tag
    Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
    If (TextWidth(StatusBar1.Panels(1)) - TextWidth(StatusBar1.Tag)) < StatusBar1.Panels(1).Width Then
        'Move it to the Right
        StatusBar1.Panels(1) = " " & StatusBar1.Panels(1)
    Else
        StatusBar1.Panels(1) = StatusBar1.Tag
    End If
End Sub

[Edited by Aaron Young on 04-13-2000 at 04:42 PM]

[betto]

Thanks Aaron..

Your code is cool
see you soon...

betto
[email protected]