SCROLLING CAPTION - ELEGANT VIEW

by Jothi Manikandan T (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 30^th November 2001
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
Dim i As Integer

Rate SCROLLING CAPTION - ELEGANT VIEW



i = 0
End Sub
Public Sub Scroll(msg As String)
Dim t, ln As Variant
Static i, s As Integer
i = i + 1
Dim mess As String
mess = msg
ln = Len(mess)
If i + ln < 160 Then
    t = Space(160 - i) & Mid(mess, 1, i)
Else
    If Len(t) = 1 Or s > ln Then
        i = 0
        s = 0
    Else
        If i < 160 Then
            t = Space(160 - i) & mess
        Else
            t = Right(mess, ln - s)
            s = s + 1
        End If
    End If
End If
Me.Caption = t
End Sub

Private Sub timer1_Timer()
Call Scroll(OraAdmin.Tag)
End Sub

Download this snippet Add to My Saved Code

SCROLLING CAPTION - ELEGANT VIEW Comments

No comments have been posted about SCROLLING CAPTION - ELEGANT VIEW. Why not be the first to post a comment about SCROLLING CAPTION - ELEGANT VIEW.

SCROLLING CAPTION - ELEGANT VIEW

SCROLLING CAPTION - ELEGANT VIEW Comments

Post your comment

Difficulty