Saya harap sebelum anda membaca ini, dianjurkan untuk membaca terlebih dahulu pergerakan form supaya anda bisa lebih mengerti
kita mulai, buatlah disain seperti ini :
klik form, pilih event keyup, lalu tulis coding seperti dibawah ini :
---------------------------------------------------------------------------------------------
Private Sub Form1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
If e.KeyCode = Keys.Up Then
If PictureBox1.Top < -1 Then
MessageBox.Show("STOP")
Else
PictureBox1.Top = PictureBox1.Top - 10
End If
End If
If e.KeyCode = Keys.Down Then
If PictureBox1.Top > 210 Then
MessageBox.Show("STOP")
Else
PictureBox1.Top = PictureBox1.Top + 10
End If
End If
If e.KeyCode = Keys.Left Then
If PictureBox1.Left < -1 Then
MessageBox.Show("STOP")
Else
PictureBox1.Left = PictureBox1.Left - 10
End If
End If
If e.KeyCode = Keys.Right Then
If PictureBox1.Left > 220 Then
MessageBox.Show("STOP")
Else
PictureBox1.Left = PictureBox1.Left + 10
End If
End If
End Sub
------------------------------------------------------------------------------------------------------
Keterangan :
event yang digunakan disini adalah event keyup
e.keycode = keys.up = untuk mengaktifkan keyboard tanda panah atas.
keys.up = Tanda panah atas
keys.down = Tanda panah bawah
keys.left = Tanda panah kiri
keys.right = Tanda panah kanan
hanya ini coding yang ditulis, semoga anda bisa mengerti...
TERIMA KASIH ATAS PERHATIANNYA.....
No comments:
Post a Comment