جمال فايز قام بنشر يناير 16, 2005 مشاركة قام بنشر يناير 16, 2005 أخوانى الكرام :- لغرض ما يحتاج منا البعض عن تعطيل عمل الفأرة وأجبار المستخدم بالانتقال عبر الحقول من خلال لوحة المفاتيح فقط بحيث يحقق لديه التسلسل الخاص بالاحداث عبر الخروج من الحقول وما شابه ذلك . فهل من طريقة تجعلنا نعطل عمل الفأره عن العمل داخل النموذج ؟ رابط هذا التعليق شارك More sharing options...
mzaki قام بنشر يناير 16, 2005 مشاركة قام بنشر يناير 16, 2005 (معدل) بسم الله الرحمن الرحيم هذا كود يقوم باخفاء مؤشر الماوس يتم وضع الكواد فى حدث عند التحميل للنموذج المراد 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 بواسطه سهل احمد العريشي رابط هذا التعليق شارك More sharing options...
جمال فايز قام بنشر يناير 22, 2005 الكاتب مشاركة قام بنشر يناير 22, 2005 أخى الكريم السلام عليكم ورحمة الله وبركاته لم يعمل الكود بشكل جيد فهل جربته ؟. يفضل ارفاق المثال . أذا ضبط الكود معك . رابط هذا التعليق شارك More sharing options...
mzaki قام بنشر يناير 23, 2005 مشاركة قام بنشر يناير 23, 2005 السلام عليكم الاخ / جمال هذا مثال لاخفاء الماوس نهائياً عند فتح النموذج ..... وهذا افضل من ايقافه واذا اردت ايقافه بالفعل سوف ارسل لك مثال ايضا مع تحياتى mzaki db1.rar رابط هذا التعليق شارك More sharing options...
جمال فايز قام بنشر يناير 29, 2005 الكاتب مشاركة قام بنشر يناير 29, 2005 أخى الكريم لقد قام بالفعل بمنع ظهور الفأرة فى الشاشة . رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر يناير 31, 2005 مشاركة قام بنشر يناير 31, 2005 الأخ مزكي الأفضل ايقاف الفأره عن العمل هل لك بارفاق المثال الذي قلت عنه مشكورا و جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
mzaki قام بنشر فبراير 1, 2005 مشاركة قام بنشر فبراير 1, 2005 السلام عليكم الاخ / rudwan اليك ما طلبت وهو مثال لايقاف الماوس ايقافاً نهائياً مع العلم أنه لا يمكنك عمل أى شى غير اغلاق الجهاز مع تحياتى وشكراً mzaki db1.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.