[Lathe1]

كيفية التنقل بأسهم لوحة المفاتيح

[asemshahen5]

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 


[Lathe1]

اشكرك اخى الكريم