[RESOLVED] How To Scroll Text In Title Bar of Form !!

[_RaJ_]

i am using Fixed Tool Window n i want my Form Caption to rotate alternate.........


any help's ?

[Doogle]

What is Fixed Tool Window ?

[westconn1]

What is Fixed Tool Window ?

form border style

[westconn1]

in a timer event, with interval of about 300

Me.Caption = Mid(Me.Caption, 2) & Left(Me.Caption, 1)

[_RaJ_]

that aint working...... i just need to make form caption alternate scroll

[westconn1]

that aint working......

what does that mean?
it does nothing or it does not do what you want
explain what you want

i tested the above code and it scrolled the caption

[_RaJ_]

Me.Caption = Mid(Me.Caption, 2) & Left(Me.Caption, 1)

i put thise code....... in form load.........

n my title bar was not scrolling !!

[westconn1]

did you use a timer? did you set it to enabled = true? with an interval around 300

i put thise code....... in form load.........

add a timer control to your form, put that code in the timer event
in form load put

timer1.interval = 300
timer1.enabled = true

[_RaJ_]

sry....... i didnt put timer ........ last time !!

[jmsrickland]

You need to put that in a Timer Event

Me.Caption = " " & Me.Caption

And then when it hits a certain place, like at end of title bar then start over again

[jmsrickland]

Something like this

Private Sub Timer1_Timer()
 Static counter As Integer
 
 counter = counter + 1
 
 If counter = somevalue Then
   counter = 0
   Caption = LTrim(Caption)
 Else
   Caption = " " & Caption 
 End If
End Sub

This is a very simple method and it is not to imply that it couldn't be done alot better but I dont have the time to work out a better approach

[_RaJ_]

thnx !!

[Condomx]

why that when the text reach the last end of the form title bar it doesnt scroll again like it must start over again when it reach at the end of title bar?

[Condomx]

TY i been resolved it perfectly by myself ^_* cheer good job..

[jmsrickland]

Well after more than a year and half I would hope so.