NourAfamia مشرف قسم البرمجة
الــعــمــــــل : مطور برامج عدد المساهمات : 112 الانتساب : 20/02/2010
| موضوع: كود لحصر الماوس داخل الفورم الإثنين 15 مارس - 19:22 | |
| رمز: Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, _ lpRect As RECT) As Long Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, _ lpPoint As Any) As Long Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Sub RestrictMouseRegion(Optional ByVal hWnd As Long = 0) Dim recTargetWindow As RECT If hWnd Then GetClientRect hWnd, recTargetWindow ClientToScreen hWnd, recTargetWindow ClientToScreen hWnd, recTargetWindow.Right ClipCursor recTargetWindow Else ClipCursor ByVal 0& End If End Sub
Private Sub Form_Load() RestrictMouseRegion (Me.hWnd) End Sub
Private Sub Form_Unload(Cancel As Integer) RestrictMouseRegion End Sub __________________ | |
|
أبو محمد مؤسس المنتدى
الــعــــمــر : 36 الــعــمــــــل : مصمم اعلاني عدد المساهمات : 3276 الانتساب : 06/02/2010
| موضوع: رد: كود لحصر الماوس داخل الفورم الثلاثاء 16 مارس - 1:11 | |
| مششششششششششكور سأجرب الكود وأرد عليك | |
|
@الأسير@ نائب المدير العام
الــعــــمــر : 37 الــعــمــــــل : commerce and marketing عدد المساهمات : 1330 الانتساب : 20/02/2010
| |
ضياء مشرف سابق
الــعــــمــر : 41 الــعــمــــــل : طالب عدد المساهمات : 450 الانتساب : 17/02/2010
| موضوع: رد: كود لحصر الماوس داخل الفورم السبت 20 مارس - 0:27 | |
| | |
|