Teks Berjalan

Cara bikin Animasi di visual basic 6.0

bikin text berjalan/kedap-kedip
pertama
buka pintu hati......hehe
buka vb nya
bikin form1
sediain timer1,dan2 dengan interval 20 or terserah anda aja.....
sediain label1 dan 2 lalu atur aja di properti terserah anda
desain secantik mungkin
masukan listing program nya di timer1

Private Sub Timer1_Timer()
If Blue <= 255 Then Green = 0 Red = Red + 50 End If If Red >= 255 Then
Red = 0
End If
Label1.ForeColor = Int(RGB(Red, Green, Blue))
Label1.Refresh
End Sub


dan listing progrm ini di timer 2...


Private Sub Timer2_Timer()
Label2.Left = Label2.Left - 15
If Label2.Left <= -Label2.Left Then Label2.Left = Form1.Width End If End Sub Private Sub Timer3_Timer() Label3.Left = Label3.Left - 15 If Label3.Left <= -Label3.Left Then Label2.Left = Form1.Width End If End Sub Private Sub Timer4_Timer() If Blue <= 255 Then Green = 0 Red = Red + 50 End If If Red >= 255 Then
Red = 0
End If
Label4.ForeColor = Int(RGB(Red, Green, Blue))
Label4.Refresh
End Sub


tambahan sediain timer 3 dan label 3
sama kaya yang di atasss

Private Sub Timer3_Timer()
Label3.Top = Label2.Left - 15
If Label3.Top <= -Label2.Left Then
Label3.Top = Form1.Width
End If
End Sub


mudak kan????

gak ada yang sulit ko di dunia ini......

  1. Comment by sang pendekar on 21 November 2009 17.08  

    terima kasih untuk artikelnya. pas banget, ane lagi nyari-nyari untuk bahan kuliah.

    oia, jangan lupa mampir ke sini ya...