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

最新推荐文章于 2024-09-15 20:05:23 发布

kevery_net

最新推荐文章于 2024-09-15 20:05:23 发布

阅读量832

点赞数

分类专栏： VB&VB.NET 文章标签： integer object vb.net exception 开发工具 class

本文链接：https://blog.csdn.net/kevery_net/article/details/775312

版权

VB&VB.NET 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

''''#############     注意        #######################
''''
'''            转载请保留原版信息及源码        '''''''
''''
'''
'''      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