• 0
hammamsana

ايقاف عجلة الماوس بالكود دون ملفات DLL أو Subclassing

سؤال

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

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

الحل الاول وضع ملف DLL وهذا يتطلب زرعه مع البرنامج او توزيعه والطلب الى المستخدم لعمله "طبعا برامج كثيرة لعمل سيت اب تحل هذا الاشكال"

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

هذا الرابط به شرح باللغة الانجليزية وفوائد اخرى كثيرة

هام جدا ... هذا المثال يعمل مع نسخ 2000+2002+2003 ....

اكسس 2007 و 2010 يوقف عجلة الماوس تلقائيا في النماذج المفردة

http://www.everythingaccess.com/tutorials.asp?ID=A-new-method-for-disabling-the-Mouse-Scroll-Wheel-in-Access-forms

الان اترككم مع المثال ... وهو سطر واحد فقط من الكود يستدعى في الحدث المناسب


NewMouseHook.Scroll = False

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

MouseHookSampleDatabase.rar

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

طريقة جيدة اخي همام

تشكر عليها

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك

المهم ان يجرب الاخوة الكرام الكود لمن لديه 2003 واقل ونرى ان كان بحاجة لتعديلات او اي ملاحظات

تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

سلمت يداك ، وبارك الله فيك .. تم تجربة المثال والكود وهو يعمل 100%

 

مع خالص تحياتي 

 

اخوكم / فيصل عبدالله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .