Animare la barra del titolo di un form

• Howto

Le due subroutines che vi proponiamo consentono di “animare” la barra del titolo di una qualunque finestra (form) del vostro progetto Visual Basic.

Invocate la subroutine AnimateCaption nel modo seguente:

AnimateCaption titolo, nomedelform

avendo cura di sostituire a titolo il titolo che desiderate venga “animato” e a nomedelform il nome del form cui si fa riferimento.

Sub addletter(frm As Form, newletter As String, oldcaption As String)
    Dim total As Integer, spaces As Integer, temp, X
    total = Len(temp)
    spaces = (frm.Width / 50) – (total)

    For X = spaces To Len(temp) Step -1
        frm.Caption = oldcaption & Space(X) & newletter

        DoEvents
        Next X
    End Sub

Sub AnimateCaption(CapData, MEfrm As Form)

    MEfrm.Show
    MEfrm.Caption = “”
    Dim a, t
    a = CapData

    For t = 1 To Len(a)
        addletter MEfrm, Mid$(a, t, 1), MEfrm.Caption
    Next t
End Sub