منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كود لما اضغط على البوتن متواصل التايمر يشتغل ولما احوش الماوس التايمر ميشتغلش
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كود لما اضغط على البوتن متواصل التايمر يشتغل ولما احوش الماوس التايمر ميشتغلش
المثال اللي سويته بفيجوال بيسك تقدر تحوله باي موقع تحويل
(14-08-17, 12:40 AM)سعود كتب : [ -> ]المثال اللي سويته بفيجوال بيسك تقدر تحوله باي موقع تحويل
شكرا هذا هو الى كنت بدو عليه
إقتباس :شكرا هذا هو الى كنت بدو عليه
العفو
ينقصه شي وقد سالت عنه ولسى مالقيت حل وبحثت وهو اقتناص ازرار التنقل اللي هي الاسهم بلوحة المفاتيح اريدها تعمل ولا احتاج للنقر بالماوس
(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
استخدمت الارقام افضلSmile
كود :
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