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