控件的拖动和缩放技术全解
作者： 来源： 添加时间：2006-5-21 19:59:47Case EnumMousePointPosition.MouseSizeBottomLeft
Me.Cursor = Cursors.SizeNESW '东北到南西
Case EnumMousePointPosition.MouseSizeBottomRight
Me.Cursor = Cursors.SizeNWSE '东南到西北
Case EnumMousePointPosition.MouseSizeTopLeft
Me.Cursor = Cursors.SizeNWSE '东南到西北
Case EnumMousePointPosition.MouseSizeTopRight
Me.Cursor = Cursors.SizeNESW '东北到南西
End Select
End If
End Sub
Private Function MousePointPosition(ByVal Size As Size, ByVal e As System.Windows.Forms.MouseEventArgs) As EnumMousePointPosition
Const Band = 10
If e.X >= -1 * Band And e.X <= Size.Width And e.Y >= -1 * Band And e.Y <= Size.Height Then
If e.X < Band Then
If e.Y < Band Then
Return EnumMousePointPosition.MouseSizeTopLeft
ElseIf e.Y > -1 * Band + Size.Height Then
Return EnumMousePointPosition.MouseSizeBottomLeft
Else
Return EnumMousePointPosition.MouseSizeLeft
End If
ElseIf e.X > -1 * Band + Size.Width Then
If e.Y < Band Then
Return EnumMousePointPosition.MouseSizeTopRight
ElseIf e.Y > -1 * Band + Size.Height Then
Return EnumMousePointPosition.MouseSizeBottomRight
Else
Return EnumMousePointPosition.MouseSizeRight
End If
Else
If e.Y < Band Then
Return EnumMousePointPosition.MouseSizeTop