01-10-16, 11:07 PM
01-10-16, 11:14 PM
كود :
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
End Sub
Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.Left
' حرك الصورة يسار
Case Keys.Right
' حرك الصورة يمين
Case Keys.Up
' حرك الصورة أعلى
Case Keys.Down
' حرك الصورة أسفل
End Select
End Sub02-10-16, 01:08 AM
بارك الله فيك جزاك الله كل خير
02-10-16, 01:13 AM
وجزاك أخي الكريم