وحدة نمطية عامة لكل النماذج لايقاف العجلة المواس وثلاثة ازرار

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

اخواني سوف اضع بين ايديكم ملفي الذي قمت فية بالتجربة لعلنا نتعاون ونجد حلا , ويصبح هذا الموضوع مفيد لكل الاعضاء الذين يصممون برامجهم بالاكسيس في حالة رغبو في تعطيل عجلة الماوس و بعض الازرار ولديهم نماذج عديدة ,,,,

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

انقر هنا,,,

في هذة الصفحة شرح للكود قمت بة الاخت زهرة ,,

حاولت تعديل الكود التالي والذي يتم وضعة عند تحميل الصفحة الافتتاحية

Private Sub Form_Load()

Set clsMouseWheel = New CMouseWheel

Set clsMouseWheel.Form = Me

clsMouseWheel.SubClassHookForm

End Sub

حاولت استبدال السطر الثالث بالسطر التالي "

Set clsMouseWheel.Form=Forms

ليتم تعميم تاثير الكود علي كل نموذج من نماذج البرنامج دون ان اضع كود في كل نموذج ,

ولكن لم انجح فخبرتي لا تتعدي نسخ الاكود من الملفات المحملة من الموقع ولصقها في برامجي ,

جزاك الله كل خير وشكرا لكم ,,,

ALL.rar

للرفع

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

اخواني الاعزاء ,,

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

الان توجد لدينا الاكواد الخاصة بايقاف عجلة الماوس وهذا الكود الخاص بايقاف عمل الزرين pageup و pagedown

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 33, 34,8
KeyCode = 0
End Select
End Sub

وهذا رابط الموضوع الاصلي للكود السابق :

ايقاف الزرين pageup و pagedown

وقد وضعت الكود في الملف المرفق ,

اخوتي الاعزاء

السؤال الان : كيف اجعل هذة الاكواد ( كود ايقاف عجلة الماوس وكود ايقاف الزرين pageup و pagedown وكذلك الزر tab ) في وحدة نمطية عامة تاثر علي كل النماذج الموجودة داخل البرنامج ؟

ارجوكم من يستطيع المساعدة فليفعل وجزاكم الله كل خير ,,,,

All1.zip

للرفع

للرفع

للرفع

اخي الكريم انا اعتقد انه اذا وضعت كود ايقاف عجله الماوس في اول نموذج وهو الرئيسي ... وجعلت النماذج كلها منبثق ومشروط .... سوف تقف عجله الماوس عن جميع النماذج الاخرى ..... اتمنى اني افدتك وشكرا

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

اخي العزيز محب شكرا جزيلا لك لرد وكم تعلم كيف كانت فرحت عظيمة جدا عندما وجدت ردك ,,,,,

اخي العزيز جربت الفكرة التي اقترحتها علي ولكنها لم تنجح معي والملف في المرفق , لعلي لم استطع تنفيذ الفكرة المقترحة بالطريقة الصحيحة ,

وانا في الانتظار ,

وشكرا جزيلا لك ,,,

All2.zip

للرفع

للرفع

كل عام وانتم بخير ...

يا اخوان ممكن واحد يعطيني الامر الذي يجعل الكود يعمل علي كل النماذج وانا اكمل الباقي ...

وشكرا جزيلا لكم جميعا ,

اخي الكريم للاسف انا حاولت وما عرفت الطريقه .... :(. ........ اتمنى الاخوان يساعدونك ..... :rolleyes:

اخي الكريم الله يجزك كل خير ويبارك فيك ,,,

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

عموما لن افقد الامل وحتما سوف ياتي اليوم الذي اجد فية تم وضع عبارة تم الاجابة وتم حل المشكلة ,,

شكرا لك اخي مرة اخري ونحن في انتظار مشاركة بقية الاخوان ,,,

للرفع