siapkan
Time interval= 100 tergantung kinginan anda. fungsinya-memperkecil resulusi gerak gambar.
Gambar dengan nama Image1
masukkan code :
Private Sub Timer1_Timer()
Dim x As Integer
x = Image1.Left - 100
If Image1.Left <= -5500 Then
Image1.Left = 5500
Else
Image1.Left = x
End If
End Sub
ket :
'x = Image1.Left - ????=cepat gambar bergerak
'If Image1.Left <= -????=jarak yg di tempu gambar
'Image1.Left =????=awal setelah bergeser dimana akan dimulai
www.cawank.blogspot.com
0 comments:
Posting Komentar