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

[hammamsana 136]

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

في احد المواقع الاجنبية الشهيرة في تعليم اكسس 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

[alcasir 5]

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

تشكر عليها

[hammamsana 136]

بارك الله فيك

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

تحياتي

[فيصل عبدالله* 0]

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

 

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

 

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