للاخوة أو الأستاذ خليل بالذات، كيف اعمل زر معين للكيبورد بالفيجوال مضغوط باستمرار
 

السلام عليكم ورحمة الله وبركاته

سؤالي : كيف اصنع زر بالفيجوال بيسك 6 ويستجيب له الـكـيـبـورد

مثال : شغلت برنامج الفيجوال
وبعدها اضفت Coammand1
http://www.arb-up.com/files/arb-up-2008-1/1n406946.gif
وغيرت اسم Coammand1 إلى F5
http://www.arb-up.com/files/arb-up-2008-1/G8N07014.gif

لكن عندما اضغط على F5
كيف اجعل الزر فعلا يتم ضغطة بالكيبورد على انه F5 وباستمرار دون افلات
وزر اخر لافلات هذا الزر
http://www.arb-up.com/files/arb-up-2008-1/oMp07087.gif


وجزاكم الله خير اخواني مقدماً

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

بالمرفقات مثال مشابه لطلبي

اول مرة اشوف هذا الطلب لا اعلم كيف اعملة بس الكود السابق وضيفته اذا المستخدم ضغط على زر f5 يخرج مسج تستطيع وضع الكود الذي تريد تشغيله بداخل الكود السابق.
انسخه كاملا و ضعه في الكود فقط .
ليس بداخل الزر بل تحته كي يتنفذ عندما يضغط المستخدم على f5

الله يجزاك خير يا استاذ خليل
بحاول فيه وان شاء الله يصير معاي تمام
واشكرك على المساعدة

نتمنى لك الفائدة شكرا

السلام عليكم

دعوني اساعدكم

بفرض يوجد على الفورم صندوق نص (text box) سميناه tx
وبفرض يوجد زر امر(command) سميناه cmd
لنفرض انه عند الضغط على زر الامر هذا يتم كتابة كلمة " السلام " بالتالي نضع الكود التالى في حدث click على ذلك الزر cmd بالشكل التالي :
Private Sub cmd_Click()
" السلام "+ Tx.text = tx.text
End Sub
الان نريد ان نجعل الزر cmd مضغوطا بان نضغط المفتاح F5 من لوحة المفاتيح
من اجل ذلك نكتب الكود التالي على حدث KEYDOWN لصندوق النص TX بالشكل التالي :
Private Sub Tx_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF5 Then
cmd_Click
End If
End Sub

في المرفق تجد التنفيذ