| Me.Cursor = Cursors.SizeWE '东西
Case 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 本新闻共 6页,当前在第 5页 1 2 3 4 5 6
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]
