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......

07.52
Categories: Author: : Anay maryana