Moving text on status bar

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

betto :)
[email protected]

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

Code:

---

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

---

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???

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

I made this:

Code:

---

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???

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.

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

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


betto :)

Try:

Code:

---

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]

Thanks Aaron..

Your code is cool :D
see you soon...

betto :cool:
[email protected]