VB.NET

VB.NET RSS

Status Bar Marquee...Need Help!

Please support our VB.NET advertiser: Intel Parallel Studio Home

Thread Solved

•

Join Date: May 2008

Posts: 3

Reputation: Petey211 is an unknown quantity at this point

Solved Threads: 0

Petey211

Offline

Newbie Poster

Status Bar Marquee...Need Help!

May 26th, 2008

I am using a status bar in a program that i am working on for VB.net 2003, i am trying to have some text scroll or marquee across the screen from right to left,

can someone please help me with the code.

•

Join Date: Nov 2007

Posts: 2,640

Reputation: Jx_Man is a glorious beacon of light

Solved Threads: 245

Jx_Man

Offline

Posting Maven

Re: Status Bar Marquee...Need Help!

May 27th, 2008

means its scroll in status bar or in other place?

Never tried = Never Know
So, Please do something before post your thread.
* PM Asking will be ignored *

•

Join Date: May 2008

Posts: 3

Reputation: Petey211 is an unknown quantity at this point

Solved Threads: 0

Petey211

Offline

Newbie Poster

Re: Status Bar Marquee...Need Help!

May 27th, 2008

•

Originally Posted by Jx_Man

means its scroll in status bar or in other place?

meaning that the text scrolls in the status bar at the bottom of the form

•

Join Date: Nov 2007

Posts: 2,640

Reputation: Jx_Man is a glorious beacon of light

Solved Threads: 245

Jx_Man

Offline

Posting Maven

Re: Status Bar Marquee...Need Help!

May 27th, 2008

try this following code (needed timer and statusbar with 2 panels), text to scrolling is from StatusBar panel 2 text :

 Help with Code Tags 
 vb.net Syntax (Toggle Plain Text) 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  Dim text As String
  text = StatusBar1.Panels.Item(0).Text
  StatusBar1.Panels.Item(0).Text = text.Substring(1) & text.Substring(0, 1)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  Dim text As String
  text = StatusBar1.Panels.Item(0).Text
  StatusBar1.Panels.Item(0).Text = text.Substring(1) & text.Substring(0, 1)
End Sub

i post the screenshot too.

Last edited by Jx_Man; May 27th, 2008 at 5:16 am.

Attached Thumbnails

Never tried = Never Know
So, Please do something before post your thread.
* PM Asking will be ignored *

•

Join Date: May 2008

Posts: 3

Reputation: Petey211 is an unknown quantity at this point

Solved Threads: 0

Petey211

Offline

Newbie Poster

Re: Status Bar Marquee...Need Help!

May 27th, 2008

awesome, i got it working, thank you VERY much your code helped me alot, i tried forever to get it to work.... used ur code got it working in about 10 to 15 minutes. =]