سؤال مهم ارجو الرد عليه

ربما تستفيد من الكود التالي وهو كود برمجي موجود في موضوع للاخ JASS مجموعة اكواد وافكار .. اتصحك تزروه :

6 : تحريك الفورم بمفاتيح الأسهم في لوحة المفاتيح

CODE

  

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal v As Long) As Integer 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If GetAsyncKeyState(37) Then 'يسار
Left = Left - 15
End If

If GetAsyncKeyState(38) Then 'أعلى
Top = Top - 15
End If

If GetAsyncKeyState(39) Then 'يمين
Left = Left + 15
End If

If GetAsyncKeyState(40) Then 'أسفل
Top = Top + 15
End If
End Sub

او يمكن اضافة كود في الحدث FORM_KEYDOWN

بحيث اذا كان ال KEYCODE = الاسكي كود للزر الي تريده ينفذ حدث معين

على سبيل المثال

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then MsgBox "FF"
End Sub

طبعا 13 هو الاسكي كود للزر ENTER

وارجو عدم استخدام اخر سطر في كلامك لانه قد يضايق بعض الاخوة في المنتدى .. واللي ما بيعرف مابيرد من اصله .. :)

اشكرك اخ هوب على هذا الكود وانا اسف على الكلام الذي قلته في السطر الاخير اسف جداً جداً جداً جداً جداً جداً جداً جداً جداً جداً جداً

ذكرت في موضوع الكود موجود في موضوع للاخ JASS ارجو كتابة الرابط