[VB.net][WinForm]Panel控件移动\鼠标拖动
2016-11-30 23:02
597 查看
“`
‘控制控件移动
Public Shared whetherSelected As Boolean
Public Shared p As Point
‘窗体首次显示
Private Sub frm_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
whetherSelected = False
p = New Point()“
End Sub
‘控制控件移动
Public Shared whetherSelected As Boolean
Public Shared p As Point
‘窗体首次显示
Private Sub frm_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
whetherSelected = False
p = New Point()“
End Sub
Region “Panel控件移动代码”
'鼠标按下 Private Sub pnlPopUp01_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlPopUp01.MouseDown, lblPopup01Head.MouseDown whetherSelected = True p.X = Cursor.Posit a1aa ion.X p.Y = Cursor.Position.Y End Sub '鼠标抬起 Private Sub pnlPopUp01_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlPopUp01.MouseUp, lblPopup01Head.MouseUp whetherSelected = False End Sub '鼠标移动 Private Sub pnlPopUp01_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlPopUp01.MouseMove, lblPopup01Head.MouseMove If whetherSelected = True Then pnlPopUp01.Left = pnlPopUp01.Left + (Cursor.Position.X - p.X) pnlPopUp01.Top = pnlPopUp01.Top + (Cursor.Position.Y - p.Y) p.X = Cursor.Position.X p.Y = Cursor.Position.Y End If End Sub
End Region
相关文章推荐
- 实现让一个控件跟着鼠标一起移动? vb.net
- Winform鼠标拖动改变控件大小、移动控件位置
- 通过鼠标任意拖动.NET Winform窗体中的控件
- 通过鼠标任意拖动.NET Winform窗体中的控件
- 通过鼠标任意拖动.NET Winform窗体中的控件
- 通过鼠标任意拖动.NET Winform窗体中的控件
- 在运行时通过鼠标拖动移动控件位置(c#)
- [VB.NET]限制鼠标拖动窗体函数
- 在运行时通过鼠标拖动移动控件位置(c#)
- .net c#拖动控件,移动控件位置
- asp.net GridView控件鼠标移动某行改变背景颜色(方法一)
- C#鼠标拖动任意控件(winform)
- ASP.NET基础教程-DataGrid表格控件-利用ItemDataBound事件实现鼠标移动到控件的某一行时改变该行的背景色
- vb.net中如何快速绘制鼠标移动轨迹
- 请问java的大牛,java中是否有鼠标拖动控件,控件随着鼠标移动,一直到放下的api?
- 在运行时通过鼠标拖动移动控件位置及改变控件的大小
- js+ asp.Net ajax开发163邮箱效果(列表底色、多选拖动等)--列表底色随鼠标移动变化
- 使用鼠标拖曳的方式移动、更改panel控件的大小
- 使用ASP.NET AJAX Control Toolkit中的ReorderList控件实现用鼠标拖动改变条目顺序
- 关于winform中panel中控件不随滚动条移动的解决办法。