[ALIOMAR27135]

كود لما اضغط على البوتن متواصل التايمر يشتغل ولما احوش الماوس التايمر ميشتغلش

[سعود]

المثال اللي سويته بفيجوال بيسك تقدر تحوله باي موقع تحويل

[ALIOMAR27135]

(14-08-17, 12:40 AM)سعود كتب : المثال اللي سويته بفيجوال بيسك تقدر تحوله باي موقع تحويل

شكرا هذا هو الى كنت بدو عليه

[سعود]

إقتباس :شكرا هذا هو الى كنت بدو عليه

العفو
ينقصه شي وقد سالت عنه ولسى مالقيت حل وبحثت وهو اقتناص ازرار التنقل اللي هي الاسهم بلوحة المفاتيح اريدها تعمل ولا احتاج للنقر بالماوس

[ALIOMAR27135]

(14-08-17, 12:59 AM)سعود كتب :

إقتباس :شكرا هذا هو الى كنت بدو عليه

العفو
ينقصه شي وقد سالت عنه ولسى مالقيت حل وبحثت وهو اقتناص ازرار التنقل اللي هي الاسهم بلوحة المفاتيح اريدها تعمل ولا احتاج للنقر بالماوس

ممكن ايميل الفيس بوك بتاع حضرتك
                اكواد        الاسهم

 Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.Left Then
          هنا اكتب كود التحريك لليسار 
        End If
   End Sub

Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.rightThen
          هنا اكتب كود التحريك اليمين
        End If
    End Sub

Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.upThen
          هنا اكتب كود التحريك فوق
        End If
    End Sub

Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.downThen
          هنا اكتب كود التحريك تحت
        End If
    End Sub

[سعود]

استخدمت الارقام افضل

كود :

Public Class Form1
   Private Sub mov(ByVal t As String)
       Select Case t
           Case "Top"
               Button1.Top -= 20
           Case "Right"
               Button1.Left += 20
           Case "Left"
               Button1.Left -= 20
           Case "Bottom"
               Button1.Top += 20
       End Select
   End Sub
   Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
       Select Case e.KeyCode
           Case Keys.NumPad0
               mov("Bottom")
           Case Keys.NumPad1
               mov("Left")
           Case Keys.NumPad2
               mov("Top")
           Case Keys.NumPad3
               mov("Right")
       End Select
   End Sub
End Class