KODE VB MEMBUAT ANIMASI ABOUT
Membuat animasi about dengan text berjalan ternyata cukup mudah. Anda tinggal siapkan PictureBox, Image yang ditempatkan di dalam PictureBox dan 1 timer terus dilanjutkan dengan menuliskan kode sebagai berikut. ---------------------------------------------------------------------------------------------------------------------
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
----------------------------------------------------------------------------------------------------------------------
Private Sub Timer1_Timer()
'MENJALANKAN GAMBAR
If imgabout.Top > (Picture1.ScaleHeight - imgabout.Height - 3000) Then
imgabout.Top = imgabout.Top - 5
Else
For i = 1 To 450000
Next i
imgabout.Top = Picture1.ScaleHeight
End If
End Sub
----------------------------------------------------------------------------------------------------------------------
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment