鼠标移动窗体或点住控件移动窗体

原创 2006年06月06日 03:16:00

''''#############     注意        #######################
''''
'''            转载请保留原版信息及源码        '''''''
''''
'''
'''     
http://25hour.netyi.org
''''
'''''
''''####################################################
'''类功能:鼠标移动窗体或点住控件移动窗体
'''源码出自:贰伍小时 (25hour   kevery) (写)
'''日期:2005-05-20
'''开发工具:.NET  
'''语言:VB.NET
'''使用方法
'''在窗体form1类中定义该类的对像并实例化
'''如:   dim Mouse_M as new Mouse(me)  ''即可,当你点住窗体移动鼠标时,窗体会跟住移动
Public Class Mouse
#Region "移动"
    Dim FormX, FormY As Integer
    Dim FormBool As Boolean = False
    Friend WithEvents FormMouse As System.Windows.Forms.Control
    Sub New(ByVal OB As Object)
        FormMouse = OB
    End Sub
    Public Sub Mouse_Down(ByVal MouseE As System.Windows.Forms.MouseEventArgs)
        FormX = MouseE.X
        FormY = MouseE.Y
        FormBool = True
    End Sub
    Public Sub Mouse_Up()
        FormBool = False
    End Sub
    Public Sub Mouse_Move(ByVal MouseE As System.Windows.Forms.MouseEventArgs)
        If FormBool = True Then
            Dim Fx, Fy As Integer
            Fx = MouseE.X
            Fy = MouseE.Y
            Try
                FormMouse.Location = New Point(FormMouse.Location.X + (Fx - FormX), FormMouse.Location.Y + (Fy - FormY))

            Catch ex As Exception

            End Try
        End If
    End Sub

#End Region

    Private Sub FormMouse_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FormMouse.MouseDown
        Mouse_Down(e)
    End Sub

    Private Sub FormMouse_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FormMouse.MouseUp
        Mouse_Up()
    End Sub

    Private Sub FormMouse_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FormMouse.MouseMove
        Mouse_Move(e)
    End Sub
End Class

C#运行窗体可移动控件

  • 2015年08月18日 00:31
  • 58KB
  • 下载

控件在两个窗体间移动

  • 2013年03月06日 19:42
  • 1KB
  • 下载

移动窗体中的控件

使用MouseHover和MouseLeave事件 当鼠标在要移动的控件上时,光标显示为VSplit,表示可移,当离开时光标为默认表示不可移         private void pictur...

窗体控件的移动,改变大小

  • 2010年09月18日 19:22
  • 1KB
  • 下载

实现java控件在窗体中自由移动

  • 2011年04月21日 16:28
  • 15KB
  • 下载

Delphi实现窗体控件自由移动

Delphi实现窗体控件自由移动 2008-04-25 16:22 在做Mis项目过程中,有时需要让用户自己来实现窗体控件的布局,比如酒店管理中就需要对餐厅餐桌位置进行布局。要实现这种功能,必...

在窗体上移动控件

  • 2005年12月02日 10:36
  • 270KB
  • 下载

Qt学习笔记:自定义窗体的移动+控件图标

在这里首先感谢刘大师的作品:Qt编写通用主界面导航(开源) 贴上演示: 本博客主要是研究了刘大师的作品然后自己总结,做点笔记。。不喜勿喷~~~ 废话不多说,先贴出代码解析一下: AppI...

窗体和控件的一个小实验:控制一个飞机左右移动

一:内容: 窗体上两个按钮:开始和停止,一个PictureBox,PictureBox中放一飞机图片。单击“开始”,则飞机图片左右在窗体上移动,移动到窗体边界时,反转方向移动。单击“停止”按钮,则飞...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:鼠标移动窗体或点住控件移动窗体
举报原因:
原因补充:

(最多只允许输入30个字)