[bidaya]

للاستفادة

هذا كود لحصر الماوس داخل الفورم

كود :

Public Class Form2
   Structure RECT
       Dim Left As Integer
       Dim Top As Integer
       Dim Right As Integer
       Dim Bottom As Integer
   End Structure
   Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As Integer, ByRef lpRect As RECT) As Integer
   'Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Integer, ByRef lpPoint As System.Delegate) As Integer
   Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Integer, ByRef lpPoint As RECT) As Integer
   Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Integer, ByRef lpPoint As Integer) As Integer

   'Private Declare Function ClipCursor Lib "user32" (ByRef lpRect As System.Delegate) As Integer
   Private Declare Function ClipCursor Lib "user32" (ByRef lpRect As RECT) As Integer
   Private Declare Function ClipCursor Lib "user32" (ByRef lpRect As Short) As Integer


   Sub RestrictMouseRegion(Optional ByVal hWnd As Integer = 0)

       Dim recTargetWindow As RECT
       If hWnd Then
           GetClientRect(hWnd, recTargetWindow)
           ClientToScreen(hWnd, recTargetWindow)
           ClientToScreen(hWnd, recTargetWindow.Right)
           ClipCursor(recTargetWindow)
       Else
           ClipCursor(0)
       End If

   End Sub

   
   Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
       Dim Cancel As Short = 0
       If Cancel <> 0 Then e.Cancel = True
   End Sub



   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       RestrictMouseRegion((Me.Handle.ToInt32))
   End Sub
End Class

هل يمكن التعديل عليه وجعله على بانل مثلا او بكتر بوكس