كيف الغي خاصية التنقل بين السجلات بالفارة

تفضل أخي المبرمج هذا مثال لإيقاف عجلة الماوس

ايقاف عجلة الماوس.rar

شكرا من الاعماق

يا ريت يا اخوان شرح اكثر لهذه الطريقة

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

اين الصقها

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

جربتها كثيراً ولم تنفع .

تحياتي لكم ،، ،،

الأخ/awamayah

سأعطيك الطريقة الصحيحة على النحو التالي:

بعد أن قمت بتحميل الملف الذي وضعه لنا الأخ الفاضل/mohammed2002 مشكوراً

قم بفتح ملف الآكسس الذي ترغب عدم تحريك الماوس فيه واتبع الآتي

قم بعمل استيرار للوحدتين النمطيتين من الملف الذي قمت بتحميله من الانترنت

افتح صفحة البرمجة الخاصة بالفورم المرغوب ثم انقل الشفرة التالية :

Option Explicit

Private WithEvents clsMouseWheel As CMouseWheel

قم بوضعها تحت السطر الأول الموجود في أعلى الصفحة مباشرة

قم بوضع الشفرة التالية في حدث "عند التحميل" الخاص بالفورم

   Set clsMouseWheel = New CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm

قم بوضع الشفرة التالية في حدث "عند الاغلاق" الخاص بالفورم

   clsMouseWheel.SubClassUnHookForm
    Set clsMouseWheel.Form = Nothing
    Set clsMouseWheel = Nothing

قم بوضع هذه الدالة في نهاية الصفحة البرمجية

Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
     MsgBox "عفوا لا يمكنك استخدام عجلة الماوس  ."
     Cancel = True
End Sub

ملاحظة:

إذا كنت ترغب بعدم ظهور ماسج بوكس يخبرك بعدم استطاعتك بتحريك عجلة الماوس فقم بإزالة السطر الأول من الدالة السابقة

الأخ العزيز / بو يوسف الراشد

تحية لك من الاعماق

تم تطبيق كلامك والنتيجة = نجاح 100%

ويبقى هذا المنتدى هو الرائد .... فهو افضل من أي مدرسة ومن أي دورة ....

كنت ابحث عن حل دائما ً لهذه المشكلة وحاولت اكثر من مرة التنفيذ ولم تنجح معي ولكن مع هذا الشرح الاكثر من رائع تم النجاح في التطبيق وانحلت لي مشكلة عويصة .

مرة ثانية اهديك تحياتي من الاعماق ، شاكراً ردك السريع وكثر الله من امثالك .

AWAMAYAH

عفوا .. وللمعلومية فقط ..

عندما تجعل البرنامج لا يسمح ب تصفح جميع السجلات ..

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

الأخ/awamayah أحنا في الخدمة وتستاهل أكثر

الأخ/مايكروكرومب

الوضع الطبيعي لللانتقال في الفورم إما عن طريق عجلة الماوس أو عن طريق زري أمر يتم وضعهما في الفورم

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

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

من المعروف أن نظام ويندوز عند وقوع أي حدث يقوم بإرسال رسالة إلى الكائن(النموذج) الذي وقع الحدث فيه

فكرة البرنامج هنا هو أن يتم إرسال الحدث أولاً إلى اجراء خاص موجود في الوحدة النمطية المرفقة .. والذي فحص الرسالة فإذا كانت حركة عجلة الماوس يفجر حدث mouseWeel للصنف المرفق .. وإذا كانت غير ذلك يرسل الحدث إلى النموذج -- طريقة حلوة --

من يريد شرح أوسع فليسأل

ستاذنا الحبيب

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

لذلك ارجو منك اعطائنا الفكرة لو سمحت وبإنتظار الشرح .

واقبل فائق الاحترام

عفوا .. إخواني أواجه مشكلة في هذه الطريقة ..

حيث تخرج رسالة إعلام بالخطأ في ملف mouseWeel وأنه إصدار قديم 13.0

وللمعلومية فأنا أستخدمته على أوفيس 2003 وأوفيس إكس بي وكلها تعطي نفس الإشكالية ..

مع العلم أنني إذا تجاهلت تلك الرسالة التي تخرج عند فتح البرنامج كل مرة - فإن العملية تكون سليمة في العمل حيث تؤدي المطلوب منها ..

ولاأعرف ما هو سبب هذه الرسالة هل بسبب نوع الماوس المستخد أم ماذا ..

وهل يمكن إيقاف هذه الرسالة ..

الرجاء الرد ..

وشكراً ..

ما شاء الله

وبارك الله فيك

نعم لقد نجحت الطريقة

وفعلا اخي الحبيب انا استخدم اوفس اكس بي

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

للرفع ، لتعم الفائدة

والله رجالة

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