View Full Version : زندانی کردن نشانگر موس
momo1366
جمعه 29 بهمن 1389, 02:02 صبح
سلام و خسته نباشید به همه دوستان
می خواستم بدونم به نظرتون چه روشی وجود داره که بتونیم پوینتر موس رو در یک محدوده ... مثلا یک جعبه عکس محصور کنیم و مانع از خروجش بشیم .. ممنونم
Saman_12
جمعه 29 بهمن 1389, 11:57 صبح
این یه جورشه :
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
جمعه 29 بهمن 1389, 14:30 عصر
حال اگه بخواهيم خود موس رو در فرم داشته باشيم ولي نشانگر موس را در جعبه متن نداشته باشيم چكار بايد كرد ؟
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.