Silinder Springs

  
Masih tetep tentang animasi vb6,..
Kalo kemaren udh buat animasi form pada vb6, kali ini ganti dech...
Animasi dengan text pada vb6. sebagai embel-embel untuk mempercantik tampilan form, ada beberapa cara yang dapat dilakukan. Diantaranya dengan memberikan animasi pada caption, baik pada form maupun label.
komponen yang sangat berperan penting dalam hal ini adalah Timer yang digunakan untuk menggerakkan text atau mengganti warna.

Oke lah gk perlu panjang-panjang penjelasannnya.
yuk mulai coding . . .

Const txt = " Animasi Text "
Dim p As Long

Private Sub Timer1_Timer()
p = p + 1
If p = 14 Then p = 0
Form1.Caption = Left(txt, p)
End Sub
* Interval Timer : 500 atau sesuai selera

* Interval Timer : 250 atau sesuai selera


Tulisan Ganti Warna
* Interval Timer : 100 atau sesuai selera

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 15
If Label1.Left < -Label1.Width Then
Label1.Left = Form1.Width   ' ==>  Form bisa diganti frame atau yang lain
End If
End Sub
* Interval Timer : 20 atau sesuai selera

Tulisan Berjalan Ke Atas
Private Sub Timer1_Timer()
Label1.Top = Label1.Top - 15
If Label1.Top <= -Label1.Top Then
JAtas.Top = Form1.Height  ' ==>  Form bisa diganti frame atau yang lain
End If
End Sub* Interval Timer : 20 atau sesuai selera

Tulisan Berjalan Sepanjang Caption
Ke Kanan
Private Sub Timer1_Timer()
s$ = Label1.Caption
s$ = Right$(s$, 1) & Mid$(s$, 1, Len(s$) - 1)
Label1.Caption = s$
End Sub

Ke Kiri
Private Sub Timer2_Timer()
s$ = Label2.Caption
s$ = Mid$(s$, 2, Len(s$)) & Left$(s$, 1)
Label2.Caption = s$
End Sub  
* Interval Timer : 100 atau sesuai selera

Tulisan Bergerak Memantul
Private Sub Timer1_Timer()
Static Samping As Boolean
Label1.Left = Label1.Left + IIf(Samping, -50, 50)
If Label1.Left < 0 Then
Samping = False
ElseIf Label1.Left > Form1.Width - Label1.Width - 100 Then  ' ===> Form bisa diganti frame atau yang lain
Samping = True
End If
End Sub
* Interval Timer : 20 atau sesuai selera

Bawah-Atas
Private Sub Timer1_Timer()
Static Atas As Boolean
Label1.Top = Label1.Top + IIf(Atas, -50, 50)
If Label1.Top < 0 Then
Atas = False
ElseIf Label1.Top > Form1.Height - Label1.Height - 300 Then  ' ===> Form bisa diganti frame atau yang lain
Atas = True
End If
End Sub
* Interval Timer : 20 atau sesuai selera

Untuk Contoh Programnya bisa didownload disini