اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


ام ناصر
إذهب إلى أفضل إجابة Solved by ابو جودي,

الردود الموصى بها

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

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

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

 

تم تعديل Thursday في 23:16 بواسطه عمرو المطري
Like
رابط هذا التعليق
شارك

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

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

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

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

 

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

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

Key Code Constants.rar

  • Like 2
رابط هذا التعليق
شارك

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

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

Key Code Constants.rar

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

Key Code Constants.rar

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

 

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

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

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

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

 

تم تعديل بواسطه ابا جودى
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

الاجازات.rar

تم تعديل بواسطه ام ناصر
خطأ املائي مع اضافة
رابط هذا التعليق
شارك

  • أفضل إجابة
56 دقائق مضت, ام ناصر said:

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

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

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

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

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

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

الاجازات.rar

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

الاجازات.rar

  • Like 2
رابط هذا التعليق
شارك

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

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

key preview= yes  بدلا  من  no

image.png.d542caba0031dfa0d4a71dbe83217d75.png

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

Private Sub Form_Load()
KeyPreview = True
End Sub

 

 

رابط هذا التعليق
شارك

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

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

 

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

Video_2017-10-16Test.rar

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

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

رابط هذا التعليق
شارك

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

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

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

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

:rol:

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

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

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

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

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

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

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

 

Key Code Constants (1).rar

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information