Membuat Gambar Berjalan dengan Vb 6.0
Buatlah
form seperti di bawah ini:
Atur
property seperti di bawah:
kontrol
|
property
|
setting
|
image
|
picture
Strecth
|
Pilih gambar
yg di inginkan
True
|
Command1
|
name
caption
|
Command1
mulai
|
Command2
|
name
caption
|
Command2
stop
|
Command3
|
name
caption
|
Command3
keluar
|
timer1
|
Enabled
Interval
|
False
100
|
Ketiklah
listing di bawah ini:
Private Sub Command1_Click()
Timer1.Enabled = True
'mengaktifkan Timer'
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
'mengaktifkan Timer'
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Timer1.Interval = "1"
End Sub
Private Sub Timer1_Timer()
Image1.Left = Image1.Left - 20
If Image1.Left < -3000 Then
Image1.Left = 5000
End If
End Sub
Program
ini dibuat oleh Heri Afrizal di bireuen
webnya ok, ajarin bikin website dong,,, heeee
BalasHapusadd my fb untuk jd sahabat
Hapus