• Home
 · 
• String Manipulation
 · 
• SCROLL WORDS! A very easy way to scroll words at any length at any object that has a caption proper

SCROLL WORDS! A very easy way to scroll words at any length at any object that has a caption proper

SCROLL WORDS! A very easy way to scroll words at any length at any object that has a caption property.

API Declarations


'You only need a command button in a form to test this code.
'This code requires you to input the string to scroll
'then specify the object that has a caption property.
'When calling this function, place this code under a timer object
'Feel free to use my code for ease of coding.



Rate SCROLL WORDS! A very easy way to scroll words at any length at any object that has a caption proper

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Static S%
On Error GoTo ErrorHandler:
    If S < Len(StringToScroll) Then
        TargetObjectCaption.Caption = TargetObjectCaption.Caption & Mid(StringToScroll, S + 1, 1)
        S = S + 1
    Else
        TargetObjectCaption.Caption = ""
        S = 0
    End If
    Exit Sub
ErrorHandler:
    MsgBox "Error: " & Err.Description, vbCritical + vbOKOnly, "Error " & Err.Number & " in ScrollWords!"
End Sub