|
23-Oct-2011, 11:19 AM | #11 | ||
مشرف سابق
| ممكن تشرح لي وللجميع sendkey وش وظائفه وهل ممكن ارسل زر الإنتر بدل الظغط عليه وياريت توضح بمثال استاذ شاهين | ||
23-Oct-2011, 11:47 AM | #12 | ||
مشرف سابق تاريخ التسجيل: Jul 2007 الدولة: Saudi Arabia المشاركات: 40
| مثال1 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then SendKeys "{Tab}" هنا على مستوى الفورم سوف يكون الضغط على الانتر كما لو انك تضغط على التاب مثال 2 If KeyCode = vbKeyF4 SendKeys "%{DOWN}" هنا لو وضعت الكود على كمبولست سوف تفتح لك القائمة عند الضغط على F4 (على مستوى الكمبو لست) ومن المهم معرفة الفرق بين حدثيKeyDown وKeyPress على مستوى الكنترول حيث في حالة KeyDown سوف تنفذ العملية بعد حدوث الفعل "اي بعد الضغط على الزر" اما في حالة KeyPress سوف تنفذ العملية عند حدوث الفعل "اي في لحظة الضغط على الزر" | ||
23-Oct-2011, 06:40 PM | #13 | ||
مشرف سابق
| Private Sub TransferToLocation_AfterGotFocus() SendKeys "{Enter}" End Sub | ||
23-Oct-2011, 06:44 PM | #14 | ||
مشرف سابق
| هذا الحل يا مبرمجون .... Private Sub TransferToLocation_AfterGotFocus() SendKeys "{Enter}" End Sub يقوم الأمر sendkeys بإعطاء الأمر للبرنامج بنفيذ الإنتر ومن ثم سينزل المؤشر للأسفل وشكرا استاذ شاهين ،،،، | ||
24-Oct-2011, 07:55 AM | #15 | ||
مشرف سابق تاريخ التسجيل: Jul 2007 الدولة: Saudi Arabia المشاركات: 40
| استاذي الغالي كلامك صحيح ولكن للتوضيح لو رجعت للمثال الذي كتبته سابقا وهو If KeyCode = 13 Then SendKeys "{Tab}" اي يا "كمبايلر" اذا كان الحدث هو الضغط على مفتاح 13 وهو "مفتاح الانتر" اجعله ينفذ ما يقوم به مفتاح "Tab" اما لو على سبيل المثال وضعت الكود التالي فقط SendKeys "{Tab}" فسوف يقوم بتنفيذ الامر هذا من دون اي شرط وفي اية حالة ولك تحياتي | ||
24-Oct-2011, 09:50 AM | #16 | ||
مشرف سابق
| عفوا استاذ شاهين بالنسبة keydown ذي انا ماحصلتها ؟ ام انها تضاف ارجو الشرح الله يوفقك | ||
24-Oct-2011, 10:00 AM | #17 | ||
مشرف سابق تاريخ التسجيل: Jul 2007 الدولة: Saudi Arabia المشاركات: 40
| يا استاذي انا اتكلم عن الفيجوال بيسك ولكن الفكرة البرمجية ليس لها لغة خاصة حيث المهم هو معرفة فكرة الحل الامثل ومن ثم تطبيقها على اي لغة. على اية حال ان KeyDown هي خاصية من خصائص اي Control موجود وكمثال Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) هذه على مستوى الفورم | ||
24-Oct-2011, 04:02 PM | #18 | ||
مشرف سابق
| مشكور استاذ شاهين على الجهود الممتازة الله يوفقك وللأمام | ||
يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف) | |
|
|
المواضيع المتشابهه | ||||
الموضوع | كاتب الموضوع | المنتدى | مشاركات | آخر مشاركة |
تنفيذ الماكرو من داخل الفيجوال بيسك | saed_adnan | منتدى جريت بلينز العام | 1 | 27-Nov-2014 06:13 AM |
الفيجوال ستديو مع الديكستريتي ... للمطورين | Monzer Osama | مواضيع المطورين الأخرى | 1 | 22-Jul-2013 08:36 AM |
كود ربط الفيجوال بالسي++ | العراقي1983 | منتدى أكواد فيجوال بيسك VBA | 3 | 15-Sep-2012 12:07 PM |
مطلوب كود لتغير Language Bar في الفيجوال بيسك | Raad Al-Mrayatee | منتدى أكواد فيجوال بيسك VBA | 1 | 11-May-2012 07:20 AM |
تنفيذ الماكرو من الفيجوال بيسك | kh_waleed23 | منتدى أكواد فيجوال بيسك VBA | 7 | 25-Nov-2011 08:48 AM |