17-10-12, 12:19 AM
كاتب الموضوع : AhmedEssawy
*** منقول من المنتدى القديم ...أضف التالي في موديل
كود :
Public Declare Function ShowCursor& Lib "user32" (ByVal lShow As Long)اضف زر امر واكتب التالي في حدث الضغط علية لاخفاء المؤشر
كود :
Private Sub Command1_Click()
ShowCursor (False) 'لاخفاء الماوس
End Subواخر لاظهار المؤشر
كود :
Private Sub Command2_Click()
ShowCursor (True) ' لاظهار الماوس
End Sub