كود لحصر الماوس داخل ال Form

أنهار

عضو جديد
إنضم
22 أبريل 2008
المشاركات
37
مجموع الإعجابات
0
النقاط
0
هذا الكود بلغة الفيجول بيسك الاصدار السادس


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​
 

ساكنة بالنت

عضو جديد
إنضم
12 يناير 2007
المشاركات
96
مجموع الإعجابات
0
النقاط
0
شكراااااااااااااااااااااااااااااا والله يعطيك العافية يارب
 
أعلى