إخفاء وإيقاف عمل الماوس

[جمال فايز]

أخوانى الكرام :-

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

فهل من طريقة تجعلنا نعطل عمل الفأره عن العمل داخل النموذج ؟

[mzaki]

بسم الله الرحمن الرحيم

هذا كود يقوم باخفاء مؤشر الماوس

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

Private Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)

Private Sub Command1_Click()

ShowCursor& 0

End Sub

Private Sub Form_Unload(Cancel As Integer)

ShowCursor& 1

End Sub

وهذا يقوم بايقاف الماوس

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

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Activate()

DoEvents

'block the mouse and input

BlockInput True

'wait 10 seconds before unblocking it

Sleep 10000

'unblock the mouse and input

BlockInput False

End Sub

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

تم تعديل يناير 17, 2005 بواسطه سهل احمد العريشي

[جمال فايز]

أخى الكريم

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

لم يعمل الكود بشكل جيد فهل جربته ؟.

يفضل ارفاق المثال . أذا ضبط الكود معك .

[mzaki]

السلام عليكم

الاخ / جمال

هذا مثال لاخفاء الماوس نهائياً عند فتح النموذج ..... وهذا افضل من ايقافه

واذا اردت ايقافه بالفعل سوف ارسل لك مثال ايضا

مع تحياتى

mzaki

db1.rar

[جمال فايز]

أخى الكريم

لقد قام بالفعل بمنع ظهور الفأرة فى الشاشة .

[rudwan]

الأخ مزكي الأفضل ايقاف الفأره عن العمل

هل لك بارفاق المثال الذي قلت عنه مشكورا

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

[mzaki]

السلام عليكم

الاخ / rudwan

اليك ما طلبت وهو

مثال لايقاف الماوس ايقافاً نهائياً مع العلم أنه لا يمكنك عمل أى شى غير اغلاق الجهاز

مع تحياتى

وشكراً

mzaki

db1.rar