08-10-20, 10:02 AM
08-10-20, 11:13 AM
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'تفعيل رؤية المفاتيح'
KeyPreview = True
End Sub
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
'اذا تم الضغط على زر التحريك للاعلى'
If e.KeyCode = Keys.Up Then
MsgBox("Up")
'اذا تم الضغط على زر التحريك للاسفل'
ElseIf e.KeyCode = Keys.Down Then
MsgBox("Down")
'اذا تم الضغط على زر التحريك لليسار'
ElseIf e.KeyCode = Keys.Left Then
MsgBox("Left")
'اذا تم الضغط على زر التحريك لليمين'
ElseIf e.KeyCode = Keys.Right Then
MsgBox("Right")
End If
End Sub
08-10-20, 02:00 PM
اشكرك اخى الكريم