Animasi Tulisan Caption Form Berjalan VB6

Pada kesempatan posting artikel kali ini admin akan share tentang sourcode Animasi Tulisan Caption Form Berjalan dengan Microsoft Visual Basic 6.0 menyesuaikan panjang dari title form pada saat running (resize). Kadang kala animasi diperlukan untuk mempercantik sebuah tampilan dari aplikasi sehingga user dalam menggunakan sebuah sistem tidak merasa bosan dengan interface yang biasa-biasa saja. Langsung saja masuk kepada pokok pembahasan, buat sebuah project pada Microsoft Visual Basic 6.0 - Form tambahkan komponen Timer sebagai penggeraknya. Untuk sintaknya seperti dibawah ini dengan memperhatikan letak dan prosedurnya (tulisan cetak tebal) : 

Private Sub Form_Load()

Timer1.Interval = 100

Me.Caption = "Selamat Datang Di Microsoft Visual Basic 6.0"

C = Me.Caption

CO = Len(C) + 1

Me.Caption = ""

If Me.BorderStyle <> 2 Then

    FS = Me.ScaleWidth + 250

Else

    FS = Me.ScaleWidth + 500

End If

End Sub

Private Sub Form_Resize()

If Me.WindowState = 1 Then

    FS = 3500

Else

    FS = Me.ScaleWidth

End If

End Sub

Private Sub Timer1_Timer()

On Error GoTo ATH

Static C01 As Integer

Static CO2 As Integer

Static A As String

Dim R As String

Dim T As String

XX:

If CO > 0 Then

    C01 = CO

    T = Mid(C, C01, 1)

    CO = CO - 1

    R = " "

    Mid(R, 1) = T

    Me.Caption = R & Me.Caption

Else

    A = A & " "

    R = " "

    Mid(R, 1) = A

    Me.Caption = R & Me.Caption

End If

If CO2 >= FS Then

   CO2 = 0

   CO = Len(C)

   Me.Caption = ""

   GoTo XX

Else

   CO2 = CO2 + 50

End If

 Exit Sub

ATH:

End Sub

Interface Form 

Source Code Animasi Tulisan Caption Form Berjalan VB6

Untuk interfacenya seperti tampilan form diatas setelah di RUN/F5 maka caption form akan berjalan dari kiri ke kanan dan menyesuaikan width dari form tersebut. Semoga artikel kali ini dapat bermanfaat.