زندانی کردن نشانگر موس

[momo1366]

سلام و خسته نباشید به همه دوستان

می خواستم بدونم به نظرتون چه روشی وجود داره که بتونیم پوینتر موس رو در یک محدوده ... مثلا یک جعبه عکس محصور کنیم و مانع از خروجش بشیم .. ممنونم

[Saman_12]

این یه جورشه :


Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Integer, ByVal y As Integer) As Integer

Private Th As New Threading.Thread(AddressOf ThRe)
Private Sub NoMoveCursor(ByVal Rec As Rectangle)

If Th.ThreadState = Threading.ThreadState.Unstarted Then

Th.Priority = Threading.ThreadPriority.Highest
Th.IsBackground = True
Th.Start(Rec)
ElseIf Th.ThreadState = Threading.ThreadState.Running Then

Th.Abort()
Th = New Threading.Thread(AddressOf ThRe)
Th.Priority = Threading.ThreadPriority.Highest
Th.IsBackground = True
Th.Start(Rec)
End If
End Sub

Private Sub ThRe(ByVal Rec As Rectangle)

Do

If MousePosition.X < Rec.X Then

SetCursorPos(Rec.X, MousePosition.Y)
ElseIf MousePosition.Y < Rec.Y Then

SetCursorPos(MousePosition.X, Rec.Y)
ElseIf MousePosition.X > (Rec.Width + Rec.X) Then

SetCursorPos(Rec.Width + Rec.X, MousePosition.Y)
ElseIf MousePosition.Y > (Rec.Height + Rec.Y) Then

SetCursorPos(MousePosition.X, Rec.Height + Rec.Y)
End If
Loop
End Sub

[Reza,M]

حال اگه بخواهيم خود موس رو در فرم داشته باشيم ولي نشانگر موس را در جعبه متن نداشته باشيم چكار بايد كرد ؟