Ограничить движение мыши.

[Saturn.65]

Мышь, при нажатой левой кнопке (перетаскивание объектов на форме) должна быть ограничена в движении. Если например я перетаскиваю прямоугольник по форме и он уперся в край формы, то курсор должен двигаться в любую сторону, но не в сторону формы, куда уперся прямоугольник. При отпускании кнопки курсор двигается в любом направлении. Я могу засечь тот момент, когда прямоугольник коснется границ, но как это прописать в ограничение движения мыши?
Вот знаки ограничения движения. Если фигуру перетаскивать выше или ниже установленных границ, то будет выводится сообщение.

Код: Выделить всё

If (sh(mInd).Top <= 224 + Val(Text2.Text)) Then
Text1.Text = "Выше границы!"
End If

If (sh(mInd).Top > 331 - (Val(Text2.Text)) / 4) Then
Text1.Text = "Ниже границы!"
End If


Это код ограничения движения мыши в рамках формы.

Код: Выделить всё

Private Declare Function ClipCursor& Lib "user32" (lpRect As RECT)
Private Declare Function FreeCursor& Lib "user32" Alias "ClipCursor" (ByVal Zero&)
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private R As RECT

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
With R
.Bottom = (Top + Height) / Screen.TwipsPerPixelY
.Left = Left / Screen.TwipsPerPixelX
.Right = (Left + Width) / Screen.TwipsPerPixelX
.Top = Top / Screen.TwipsPerPixelY
End With
ClipCursor R
End If
If Button = 0 Then
FreeCursor 0
End If

End Sub
Private Sub Form_Unload(Cancel As Integer)
FreeCursor 0
End Sub


[Хакер]

Клип надо ставить в момент опускания кнопки мыши и установки захвата.