35637 Letture

Animare la barra del titolo di un form

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


Animare la barra del titolo di un form - IlSoftware.it