منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب كود قفل الماوس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : طلب كود قفل الماوس (/showthread.php?tid=7760)

طلب كود قفل الماوس - Eye Of Heaven - 27-02-13

السلام عليكم

اخاون ممكن كود قفل الماوس

وشكراً

طلب كود قفل الماوس - ولد رائع - 01-03-13

كود اخفاء واظهار الموس
PHP كود :
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
  ShowCursor 0  'إخفاء مؤشر الفأرة
End Sub

Private Sub Command2_Click()
  ShowCursor 1  'اظهار مؤشر الفأرة
End Sub 


طلب كود قفل الماوس - ولد رائع - 01-03-13

ايقاف عمل لوحة المفاتيح والفاره

PHP كود :
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 keyboard input
    BlockInput True
    'wait 10 seconds before unblocking it
    Sleep 10000
    'unblock the mouse and keyboard input
    BlockInput False
End Sub