PERGERAKAN GAMBAR (VISUAL BASIC 2010)


disini saya akan mengajarkan anda untuk menggerakkan gambar di dalam form melalui keyboard panah, apabila kita menekan atas maka gambarnya akan ke atas juga, begitu seterusnya...

Saya harap sebelum anda membaca ini, dianjurkan untuk membaca terlebih dahulu pergerakan form supaya anda bisa lebih mengerti

kita mulai, buatlah disain seperti ini :



setelah disain anda sudah dibuat, maka kita akan memulai coding..

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

Chang Min Web Developer

Semoga apa yang Saya postingkan dapat bermanfaat bagi yang sedang membaca, kritik, saran atau komentar dapat disampaikan pada komen dibawah ini, Terimas kasih banyak

No comments:

Post a Comment