13-08-17, 09:37 PM
14-08-17, 12:40 AM
المثال اللي سويته بفيجوال بيسك تقدر تحوله باي موقع تحويل
14-08-17, 12:53 AM
(14-08-17, 12:40 AM)سعود كتب : [ -> ]المثال اللي سويته بفيجوال بيسك تقدر تحوله باي موقع تحويلشكرا هذا هو الى كنت بدو عليه
![]()
14-08-17, 12:59 AM
إقتباس :شكرا هذا هو الى كنت بدو عليهالعفو
ينقصه شي وقد سالت عنه ولسى مالقيت حل وبحثت وهو اقتناص ازرار التنقل اللي هي الاسهم بلوحة المفاتيح اريدها تعمل ولا احتاج للنقر بالماوس
14-08-17, 01:58 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
14-08-17, 05:00 PM
استخدمت الارقام افضل

كود :
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