للاخوة أو الأستاذ خليل بالذات، كيف اعمل زر معين للكيبورد بالفيجوال مضغوط باستمرار
السلام عليكم ورحمة الله وبركاته
سؤالي : كيف اصنع زر بالفيجوال بيسك 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 وجزاكم الله خير اخواني مقدماً |
كود:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) |
جزاك الله خير يا استاذ خليل
بس كيف اضعه داخل الكوماند ولو تضع لي بالمرفقات ملف مفتوح افضل عشان افهم الطريقه ومشكور استاذي |
1 مرفق
بالمرفقات مثال مشابه لطلبي
|
اول مرة اشوف هذا الطلب لا اعلم كيف اعملة بس الكود السابق وضيفته اذا المستخدم ضغط على زر f5 يخرج مسج تستطيع وضع الكود الذي تريد تشغيله بداخل الكود السابق.
انسخه كاملا و ضعه في الكود فقط . ليس بداخل الزر بل تحته كي يتنفذ عندما يضغط المستخدم على f5 |
الله يجزاك خير يا استاذ خليل
بحاول فيه وان شاء الله يصير معاي تمام واشكرك على المساعدة |
نتمنى لك الفائدة شكرا
|
1 مرفق
السلام عليكم
دعوني اساعدكم بفرض يوجد على الفورم صندوق نص (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 في المرفق تجد التنفيذ |
الساعة الآن 05:31 AM |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By
Almuhajir