timer

[nwagboso]

pls i need a code to display label in animation using a timer from left ' you are welcome' with vb.6

thanks

[si_the_geek]

Welcome to VBForums

Thread moved from the 'CodeBank VB6' forum (which is for you to post working code examples, not questions) to the 'VB6 and earlier' forum

[SamOscarBrown]

Not sure what you want.....(your post is not very specific), but....see this post:

http://www.vbforums.com/showthread.p...bel-not-moving

[nwagboso]

thanks, the code helped me, that was what i was looking for, but when i run the program it will display and go off, pls i want it to be displaying with out going off.

Thanks

[SamOscarBrown]

Did you add the two lines I posted in my last post? It will continue to display.

[nwagboso]

yes i added it u can view it ur self

Private Sub tmrTest_Timer()
If tmrTest.Interval = 100 Then
lblCaption.Move lblCaption.Left - 100
If lblCaption.Left + lblCaption.Width < 0 Then
lblCaption.Left = Me.Width
End If
End Sub

are mine suppose to add anything at the labelCaption_Click()

thanks

[SamOscarBrown]

Your code is not correct. This is a sample code that is: EDIT: Not MY Code...just some modified from the other post!

Option Explicit

Private Sub Command1_Click()


label1.Caption = "Hello World. Example of a Marquee."
label1.Alignment = vbRightJustify
Me.Font = label1.Font
label1.Width = Me.TextWidth(label1.Caption) + 3
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()

Static i As Integer
If Timer1.Interval = 100 Then
i = i + 1
label1.Move label1.Left - 100
i = 1
If label1.Left + label1.Width < 0 Then
label1.Left = Me.Width
End If
End If
End Sub

Add a label. Add a timer. Add a commandbutton. and run the project. You should be able to figure this out with this code.

[ladoo]

he wanted a marquee text moving left or right

[Nightwalker83]

@ Sam, call it a joint effort!

@ladoo I though the OP in the other thread wanted the text to move left.

[nwagboso]

Your code is not correct. This is a sample code that is: EDIT: Not MY Code...just some modified from the other post!

Option Explicit

Private Sub Command1_Click()


label1.Caption = "Hello World. Example of a Marquee."
label1.Alignment = vbRightJustify
Me.Font = label1.Font
label1.Width = Me.TextWidth(label1.Caption) + 3
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()

Static i As Integer
If Timer1.Interval = 100 Then
i = i + 1
label1.Move label1.Left - 100
i = 1
If label1.Left + label1.Width < 0 Then
label1.Left = Me.Width
End If
End If
End Sub

Add a label. Add a timer. Add a commandbutton. and run the project. You should be able to figure this out with this code.

THANKS

PLS I AM TRYING TO RIGHT A PROGRAM FOR A HOSPITAL IN WHICH EVERY INFORMATION WILL BE STALL IN A DATABASE, EXAMPLE OF THE TABLE THE NAME OF PATIENTS, FOLDER NO, COMPANY, DIAGNOSIS, DRUGS AND THEIR AMOUNT AND SPECIALIST CONSULTATION. AM TRYING TO DESIGN THE INTERFACE BE I AM CONFUSE NOW, I HAVE DESIGNED THE TABLE ON EXCEL, PLS I NEED UR HELP I AM NEW ON VB. UR LAST CODE HELPED ME I AM GRATEFUL AT-LEAST I HAVE GOTTEN THE WELCOME PAGE OF WHAT I WANT