التحكم بلوحة المفاتيح بأستخدام كود برمجي

[ام ناصر]

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

اساتذتي الكرام  لدي استفسار عن امكانية استخدام كود برمجي للتحكم بلوحة المفاتيح كـ(عدم تمكين او اعادة تمكين)  استخدام بعض الازرار كزر (Tap  or  Pg Up  or  Pg Dn) .

شكري وتقديري لكل يتابع الموضوع

 

تم تعديل Thursday في 23:16 بواسطه عمرو المطري

[ابو جودي]

17 ساعات مضت, ام ناصر said:

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

اساتذتي الكرام  لدي استفسار عن امكانية استخدام كود برمجي للتحكم بلوحة المفاتيح كـ(عدم تمكين او اعادة تمكين)  استخدام بعض الازرار كزر (Tap  or  Pg Up  or  Pg Dn) .

شكري وتقديري لكل يتابع الموضوع

 

تم تعديل Thursday في 23:16 بواسطه عمرو المطري

لكم ما طلبتم ان شاء الله 

Key Code Constants.rar

[النجاشي]

2 ساعات مضت, ابا جودى said:

لكم ما طلبتم ان شاء الله 

Key Code Constants.rar

جزاك الله كل خير ما شاء الله تبارك الله عمل جميل  شكرا اليك اخي واستاذي ابا جودي

[ابو جودي]

35 دقائق مضت, ابو زاهر said:

جزاك الله كل خير ما شاء الله تبارك الله عمل جميل  شكرا اليك اخي واستاذي ابا جودي

جزاكم الله خيرا 

[ام ناصر]

5 ساعات مضت, ابا جودى said:

لكم ما طلبتم ان شاء الله 

Key Code Constants.rar

جزيل الشكر لك استاذ @ابا جودى على المثال والرابط المرفق 

لو سمحت وتفضلت بشرح آلية عمله لأنه فقط زري( Pg Up  , Pg Dn) غير مفعلين اما الـ(Tap ) مفعل الاستخدام وما هو استخدام رقم الزر ورقم الشفت ؟

[ابو جودي]

منذ ساعه, ام ناصر said:

جزيل الشكر لك استاذ @ابا جودى على المثال والرابط المرفق 

لو سمحت وتفضلت بشرح آلية عمله لأنه فقط زري( Pg Up  , Pg Dn) غير مفعلين اما الـ(Tap ) مفعل الاستخدام وما هو استخدام رقم الزر ورقم الشفت ؟

السلام عليكم ورحمة الله تعالى
اختنا الكريمة

اولا لا شكر على واجب
ثانيا زري( Pg Up  , Pg Dn) غير مفعلين
بصراحة لم افهم مقصدك من هذه الجمله هل قمتى بالضعط على الزرين من الكيبورد ولم يعملوا ؟

 

وما هو استخدام رقم الزر ورقم الشفت ؟

رقم الشفت اذا كان = 0 يتم تعطيل عمل المفتاح واذا كان 1 يعمل المفتاح مرة اخرى 

يعنى لو اردنا توقيف عمل الزر نستخدم الكود كالاتى
 

Select Case KeyCode
      Case 33
         KeyCode = 0
         MsgBox "ايقاف عمل الزر _(PAGE UP)"
      End Select
End Sub

ولو اردنا تفعيله مرة اخرى بالكود
 

Select Case KeyCode
      Case 33
         KeyCode = 1
         MsgBox "ايقاف عمل الزر _(PAGE UP)"
      End Select
End Sub

 

تم تعديل أكتوبر 15, 2017 بواسطه ابا جودى

[ابو جودي]

اختنا الكريمة هل تمت الفائدة وتوصلت الى ما اردتى ؟

[ام ناصر]

40 دقائق مضت, ابا جودى said:

لسلام عليكم ورحمة الله تعالى
اختنا الكريمة

اولا لا شكر على واجب
ثانيا زري( Pg Up  , Pg Dn) غير مفعلين
بصراحة لم افهم مقصدك من هذه الجمله هل قمتى بالضعط على الزرين من الكيبورد ولم يعملوا ؟

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

استاذنا الفاضل من لم يشكر المخلوق لم يشكر الخالق  

نعم الزرين كما تفضلت عند الضغط عليهما من لوحة المفاتيح لايتم الاخذ بالامر اما  الــ Tab فيعمل وفي الكود المستخدم المفروض غير مفعل ان صح فهمي للمثال 

و ان رقم الز ورقم الشفت في النافذة عملها فقط لمعرفة التنقلات .

ولايظهر لي اي مسج علما استخدم اوفس اصدار 2007 

40 دقائق مضت, ابا جودى said:

اختنا الكريمة هل تمت الفائدة وتوصلت الى ما اردتى ؟

عذراً حاولت ان اطبق الكود على المثال ادناه ولم اوفق 

الاجازات.rar

تم تعديل أكتوبر 15, 2017 بواسطه ام ناصر
خطأ املائي مع اضافة

[ابو جودي]

56 دقائق مضت, ام ناصر said:

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

استاذنا الفاضل من لم يشكر المخلوق لم يشكر الخالق  

نعم الزرين كما تفضلت عند الضغط عليهما من لوحة المفاتيح لايتم الاخذ بالامر اما  الــ Tab فيعمل وفي الكود المستخدم المفروض غير مفعل ان صح فهمي للمثال 

و ان رقم الز ورقم الشفت في النافذة عملها فقط لمعرفة التنقلات .

ولايظهر لي اي مسج علما استخدم اوفس اصدار 2007 

عذراً حاولت ان اطبق الكود على المثال ادناه ولم اوفق 

الاجازات.rar

اتفضلى التعديل كما ينبغى ان يكون

الاجازات.rar

[ابو جودي]

نسيت توضيح نقطه هامه

كى يعمل الكود يجب ضبط اعداد النموذج كما بالصورة

key preview= yes  بدلا  من  no

او يتم استخدام الكود الاتى فى حدث عند تحميل النموذج
 

Private Sub Form_Load()
KeyPreview = True
End Sub

 

 

[ام ناصر]

السلام عليكم استاذ 

اليك مرفق بنتيجة الاستخدام  كأنه خاصية عدم التفعيل لاتعمل .

Video_2017-10-16Test.rar

تم تعديل أكتوبر 16, 2017 بواسطه ام ناصر

[ام ناصر]

السلام عليكم  استاذ نتيجة المرفق الذي ارسلته كان قد طبق على حاسوب محمول وبأصدار اوفس 2007.

15 ساعات مضت, ام ناصر said:

 

اليك مرفق بنتيجة الاستخدام  كأنه خاصية عدم التفعيل لاتعمل .

Video_2017-10-16Test.rar

اما عند تطبيقه على حاسوب مكتبي وبأصدار اوفس 2013 كانت النتيجة فعالة ومرضية فجزاك الله عنا خير الدنيا والاخرة

لو سمحت استاذ لدي استفسار هل السبب من عدم استجابه الكود عند تطبيقه مسبقاً كان يعزى لأختلاف أصدار الاوفس  أم  قد يكون رقم الـ Value  لأزرار لوحة المفاتيح يختلف في الحاسوب المنضدي عما هو عليه في المحمول.

[ابو جودي]

الان, ام ناصر said:

السلام عليكم  استاذ نتيجة المرفق الذي ارسلته كان قد طبق على حاسوب محمول وبأصدار اوفس 2007.

اما عند تطبيقه على حاسوب مكتبي وبأصدار اوفس 2013 كانت النتيجة فعالة ومرضية فجزاك الله عنا خير الدنيا والاخرة

لو سمحت استاذ لدي استفسار هل السبب من عدم استجابه الكود عند تطبيقه مسبقاً كان يعزى لأختلاف أصدار الاوفس  أم  قد يكون رقم الـ Value  لأزرار لوحة المفاتيح يختلف في الحاسوب المنضدي عما هو عليه في المحمول.

هههههههههههههه

اولا السلام عليكم ورحمة الله وبركاته اعتذر لانى لم استطع اليوم تجربة المرفق فى العمل على احد الحواسيب ذات الاوفيس 2007 لضغط العمل الكثير

ام بخصوص السؤال
إختلاف أصدار الاوفس  أم  قد يكون رقم الـ Value  لأزرار لوحة المفاتيح يختلف في الحاسوب

الله اعلى واعلم اضحك لانى لا اعرف ولابد من التجربة 

ولكن اختنا الكريمة فى المرفق الاول وضعت لك نموذج باسم   frmKeyCodeConstants

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

بمجرد الضغط على الزر تعرفين كود هذا الزر 

 

Key Code Constants (1).rar