[RESOLVED] Need Help animated marquee text in a label not moving

[phatus]

hi i think something wrong in the code i got this in one of the suggestion here and i tried... i dont really have any knowledge in making a animated marquee text when i test this code and run this, the text in the label is not moving going to left.... i need this to be part of my announcement in my number system project...
here is the code

Option Explicit

Private Sub Form_Load()
    lblannounce.Caption = "Hello World. I am a not moving. help."
    lblannounce.Alignment = vbRightJustify
    Me.Font = lblannounce.Font
    lblannounce.Width = Me.TextWidth(lblannounce.Caption) + 30
    Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Static i As Integer
    i = i + 1
    If i = Len(lblannounce.Caption) + 1 Then
        i = 1
            lblannounce.Caption = VBA.Left$(lblannounce.Caption, i)
    End If
End Sub

than for the help...

[Nightwalker83]

Is this what you want?

Option Explicit
 
Private Sub Form_Load()
    lblannounce.Caption = "Hello World. I am a not moving. help."
    lblannounce.Alignment = vbRightJustify
    lblannounce.Width = Me.TextWidth(lblannounce.Caption) + 30
    Timer1.Interval = 100
End Sub
 
Private Sub Timer1_Timer()
  If Timer1.Interval = 100 Then
     lblannounce.Move lblannounce.Left - 100
  End If
End Sub

[SamOscarBrown]

Add these two lines before your 'end if' and your marquee will continue to run over and over:

If lblannounce.Left + lblannounce.Width < 0 Then
lblannounce.Left = Me.Width

[nwagboso]

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

pls is showing me compiler error

[SamOscarBrown]

nwagboso...please start your own thread.
And in that thread,, state what the compiler error is....probably your naming of the timer or the label.
And, the interval (you set at 100 --- over and over ) doesn't make sense...nor does the "+" vice a "-" in your third line...
SO, start a new thread, new title, and someone will assist.

[phatus]

its working here is what i did

Private Sub Form_Load()
    lblannounce.Caption = "My Mesage Here"
    Timer2.Enabled = True
    Timer2.Interval = 300
End Sub

Private Sub Timer2_Timer()
Dim str As String
    str = frmnumber.lblannounce.Caption
    str = Mid$(str, 2, Len(str)) + Left(str, 1)
    frmnumber.lblannounce.Caption = str
End Sub

thanks for the help....