| 操作系统 办公 实用知识 设计 开发 WEB开发 移动开发 数据库 软件工程 网管 安全 管理 信息化 答疑 渠道 |
编程必学:控件的拖动和缩放技术全解一、光标的指示 当光标移动到要拖动或缩放的控件上时，应显示相应的动作箭头。定义一个枚举的变量来标识对应的状态。 Enum EnumMousePointPosition MouseSizeNone = 0 ''无 MouseSizeRight = 1 ''拉伸右边框 MouseSizeLeft = 2 ''拉伸左边框 MouseSizeBottom = 3 ''拉伸下边框 MouseSizeTop = 4 ''拉伸上边框 MouseSizeTopLeft = 5 ''拉伸左上角 MouseSizeTopRight = 6 ''拉伸右上角 MouseSizeBottomLeft = 7 ''拉伸左下角 MouseSizeBottomRight = 8 ''拉伸右下角 MouseDrag = 9 ''鼠标拖动 End Enum Dim m_MousePointPosition As EnumMousePointPosition 在MouseMove事件中读取进入控件的光标位置，用下面函数判断光标的状态。 m_MousePointPosition = MousePointPosition(sender.Size, e) 按对应的状态显示光标形状 Select Case m_MousePointPosition Case EnumMousePointPosition.MouseSizeNone Me.Cursor = Cursors.Arrow ''箭头 Case EnumMousePointPosition.MouseDrag Me.Cursor = Cursors.SizeAll ''四方向 Case EnumMousePointPosition.MouseSizeBottom Me.Cursor = Cursors.SizeNS ''南北 Case EnumMousePointPosition.MouseSizeTop Me.Cursor = Cursors.SizeNS ''南北 Case EnumMousePointPosition.MouseSizeLeft Me.Cursor = Cursors.SizeWE ''东西 Case EnumMousePointPosition.MouseSizeRight 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
五、源码 建立一个窗体，放置一个按钮，点击该按钮创建动态建立一个可以拖动和缩放的按钮。全部源码如下： Public Class Form1 Inherits System.Windows.Forms.Form Enum EnumMousePointPosition MouseSizeNone = 0 ''无 MouseSizeRight = 1 ''拉伸右边框 MouseSizeLeft = 2 ''拉伸左边框 MouseSizeBottom = 3 ''拉伸下边框 MouseSizeTop = 4 ''拉伸上边框 MouseSizeTopLeft = 5 ''拉伸左上角 MouseSizeTopRight = 6 ''拉伸右上角 MouseSizeBottomLeft = 7 ''拉伸左下角 MouseSizeBottomRight = 8 ''拉伸右下角 MouseDrag = 9 ''鼠标拖动 End Enum Dim m_MousePointPosition As EnumMousePointPosition Dim p, p1 As Point Private Sub MyMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) p = New Point(e.X, e.Y) ''记录光标开始拖动点 p1 = New Point(e.X, e.Y) End Sub Private Sub MyMouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) m_MousePointPosition = EnumMousePointPosition.MouseSizeNone Me.Cursor = Cursors.Arrow End Sub Private Sub MyMouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) If e.Button = MouseButtons.Left Then Select Case m_MousePointPosition Case EnumMousePointPosition.MouseDrag sender.Location = New Point(sender.Left + e.X - p.X, sender.Top + e.Y - p.Y) Case EnumMousePointPosition.MouseSizeBottom sender.Size = New Size(sender.Width, sender.Height + e.Y - p1.Y) p1 = New Point(e.X, e.Y) ''记录光标拖动的当前点 Case EnumMousePointPosition.MouseSizeBottomRight sender.Size = New Size(sender.Width + e.X - p1.X, sender.Height + e.Y - p1.Y) Case EnumMousePointPosition.MouseSizeRight sender.Size = New Size(sender.Width + e.X - p1.X, sender.Height) p1 = New Point(e.X, e.Y) Case EnumMousePointPosition.MouseSizeTop sender.Location = New Point(sender.Left, sender.Top + (e.Y - p.Y)) sender.Size = New Size(sender.Width, sender.Height - (e.Y - p.Y)) Case EnumMousePointPosition.MouseSizeLeft sender.Location = New Point(sender.Left + e.X - p.X, sender.Top) sender.Size = New Size(sender.Width - (e.X - p.X), sender.Height) Case EnumMousePointPosition.MouseSizeBottomLeft sender.Location = New Point(sender.Left + e.X - p.X, sender.Top) sender.Size = New Size(sender.Width - (e.X - p.X), sender.Height + e.Y - p1.Y) Case EnumMousePointPosition.MouseSizeTopRight sender.Location = New Point(sender.Left, sender.Top + (e.Y - p.Y)) sender.Size = New Size(sender.Width + (e.X - p1.X), sender.Height - (e.Y - p.Y)) Case EnumMousePointPosition.MouseSizeTopLeft sender.Location = New Point(sender.Left + e.X - p.X, sender.Top + (e.Y - p.Y)) sender.Size = New Size(sender.Width - (e.X - p.X), sender.Height - (e.Y - p.Y)) End Select Else m_MousePointPosition = MousePointPosition(sender.Size, e) ''判断光标的位置状态 Select Case m_MousePointPosition ''改变光标 Case EnumMousePointPosition.MouseSizeNone Me.Cursor = Cursors.Arrow ''箭头 Case EnumMousePointPosition.MouseDrag Me.Cursor = Cursors.SizeAll ''四方向 Case EnumMousePointPosition.MouseSizeBottom Me.Cursor = Cursors.SizeNS ''南北 Case EnumMousePointPosition.MouseSizeTop Me.Cursor = Cursors.SizeNS ''南北 Case EnumMousePointPosition.MouseSizeLeft Me.Cursor = Cursors.SizeWE ''东西 Case EnumMousePointPosition.MouseSizeRight
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 ElseIf e.Y > -1 * Band + Size.Height Then Return EnumMousePointPosition.MouseSizeBottom Else Return EnumMousePointPosition.MouseDrag End If End If Else Return EnumMousePointPosition.MouseSizeNone End If End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Button As New Button Controls.Add(Button) AddHandler Button.MouseDown, AddressOf MyMouseDown AddHandler Button.MouseMove, AddressOf MyMouseMove AddHandler Button.MouseLeave, AddressOf MyMouseLeave End Sub End Class
今日推荐
|
重点推荐
领军企业技术文库
+更多领军技术文库
最新专题
电子杂志订阅
| ||||||||