مدونة منذر اسامة
قديم 23-Oct-2011, 11:19 AM   #11
kh_waleed23
مشرف سابق
 
تاريخ التسجيل: Aug 2007
الدولة: Saudia
المشاركات: 127
إرسال رسالة عبر مراسل MSN إلى kh_waleed23
من مواضيعي  
افتراضي

ممكن تشرح لي وللجميع
sendkey
وش وظائفه
وهل ممكن ارسل زر الإنتر بدل الظغط عليه
وياريت توضح بمثال
استاذ شاهين
kh_waleed23 غير متواجد حالياً   رد مع اقتباس
قديم 23-Oct-2011, 11:47 AM   #12
Shaheen
مشرف سابق
 
تاريخ التسجيل: 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 سوف تنفذ العملية عند حدوث الفعل "اي في لحظة الضغط على الزر"
Shaheen غير متواجد حالياً   رد مع اقتباس
قديم 23-Oct-2011, 06:40 PM   #13
kh_waleed23
مشرف سابق
 
تاريخ التسجيل: Aug 2007
الدولة: Saudia
المشاركات: 127
إرسال رسالة عبر مراسل MSN إلى kh_waleed23
من مواضيعي  
افتراضي

Private Sub TransferToLocation_AfterGotFocus()
SendKeys "{Enter}"
End Sub
kh_waleed23 غير متواجد حالياً   رد مع اقتباس
قديم 23-Oct-2011, 06:44 PM   #14
kh_waleed23
مشرف سابق
 
تاريخ التسجيل: Aug 2007
الدولة: Saudia
المشاركات: 127
إرسال رسالة عبر مراسل MSN إلى kh_waleed23
من مواضيعي  
افتراضي هذا الحل يا مبرمجون ....

Private Sub TransferToLocation_AfterGotFocus()
SendKeys "{Enter}"
End Sub

يقوم الأمر sendkeys بإعطاء الأمر للبرنامج بنفيذ الإنتر
ومن ثم سينزل المؤشر للأسفل

وشكرا استاذ شاهين ،،،،
kh_waleed23 غير متواجد حالياً   رد مع اقتباس
قديم 24-Oct-2011, 07:55 AM   #15
Shaheen
مشرف سابق
 
تاريخ التسجيل: Jul 2007
الدولة: Saudi Arabia
المشاركات: 40
من مواضيعي  
افتراضي

استاذي الغالي
كلامك صحيح ولكن للتوضيح
لو رجعت للمثال الذي كتبته سابقا وهو
If KeyCode = 13 Then SendKeys "{Tab}"
اي يا "كمبايلر" اذا كان الحدث هو الضغط على مفتاح 13 وهو "مفتاح الانتر" اجعله ينفذ ما يقوم به مفتاح "Tab"
اما لو على سبيل المثال وضعت الكود التالي فقط

SendKeys "{Tab}"
فسوف يقوم بتنفيذ الامر هذا من دون اي شرط وفي اية حالة
ولك تحياتي
Shaheen غير متواجد حالياً   رد مع اقتباس
قديم 24-Oct-2011, 09:50 AM   #16
kh_waleed23
مشرف سابق
 
تاريخ التسجيل: Aug 2007
الدولة: Saudia
المشاركات: 127
إرسال رسالة عبر مراسل MSN إلى kh_waleed23
من مواضيعي  
افتراضي

عفوا استاذ شاهين
بالنسبة keydown
ذي انا ماحصلتها ؟
ام انها تضاف ارجو الشرح الله يوفقك
kh_waleed23 غير متواجد حالياً   رد مع اقتباس
قديم 24-Oct-2011, 10:00 AM   #17
Shaheen
مشرف سابق
 
تاريخ التسجيل: Jul 2007
الدولة: Saudi Arabia
المشاركات: 40
من مواضيعي  
افتراضي

يا استاذي
انا اتكلم عن الفيجوال بيسك
ولكن الفكرة البرمجية ليس لها لغة خاصة حيث المهم هو معرفة فكرة الحل الامثل ومن ثم تطبيقها على اي لغة.
على اية حال ان KeyDown هي خاصية من خصائص اي Control موجود
وكمثال
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
هذه على مستوى الفورم
Shaheen غير متواجد حالياً   رد مع اقتباس
إضافة رد


يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف)
 
أدوات الموضوع
انواع عرض الموضوع

ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا يمكنك اضافة مرفقات
لا يمكنك تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
تنفيذ الماكرو من داخل الفيجوال بيسك 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


جميع الأوقات بتوقيت GMT +3. الساعة الآن 07:06 PM.


Powered by vBulletin® Version 3.8.3

الموقع والمنتدى من تطوير » شركة المنذر للاستضافة والتصميم

Copyright © 2000-2010 Jelsoft Enterprises Limited.
الموقع لا يمثل أي جهة رسمية بل هو جهد شخصي يرمي الى تجميع القدرات في برنامج جريت بلينز