Scrolling Text on the Title Bar

[Mohan Krishna]

Hi everyone!

Can we get the text scrolled on the title bar of the VB Project Form? The text may be the name of the company to which I am developing the project.

Please give me answer asap!

ThanQ u!

[lotus18]

Try using a timer for scrolling of text

[debasisdas]

Use the name of the company in the caption property of the form. Pad enough spaces to the left side initially and gradually keep on decreasing the spaces. Once you reach the extreme left again pad to full size.

[Mohan Krishna]

Try using a timer for scrolling of text

Hi

Thank you for your reply.

Can you please help me with the code?

I tried and am not getting that.

timer time = 100

[code=vb]
Option Explicit
Dim i As Integer
Private Sub Form_Load()
Me.Caption = "Kashyap Kavya"
i = 0
End Sub

Private Sub Timer1_Timer()
If Len(Me.Caption) <> 0 Then
Me.Caption = Mid(Me.Caption, i)
i = i + 1
Else
Me.Caption = "Kashyap Kavya"
i = 0
End If
End Sub
[/code]

[debasisdas]

Try this sample code.

Set the timer interval to 100

[code=vb]
Dim Str As String

Private Sub Form_Load()
Str = " Debasis" ' (That's 161 spaces)
End Sub

Private Sub Timer1_Timer()
If Len(Str) > 10 Then
Str = Right(Str, Len(Str) - 1)
Me.Caption = Str
Else
Str = " Debasis"
End If
End Sub[/code]
Hope that solves your problem.

[Mohan Krishna]

Try this sample code.

Set the timer interval to 100
:
:
:
Hope that solves your problem.

Thank You Very much Sir!

Then if the screen size increase how to change the spaces. May I use the Form width. I'll also try Sir.