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

原创 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
  • 下载

控件在两个窗体间移动

移动窗体中的控件

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

鼠标移动痕迹 C#,Delphi,VB,VB.net四种语言版本(附窗体透明)-思路和源代码(3)

鼠标移动痕迹 C#,Delphi,VB,VB.net四种语言版本(附窗体透明)-思路和源代码(1) 鼠标移动痕迹 C#,Delphi,VB,VB.net四种语言版本(附窗体透明)-思路和源代码(2)...

在窗体上移动控件

  • 2005-12-02 10:36
  • 270KB
  • 下载

通过鼠标任意拖动.NET Winform窗体中的控件

在Winform窗体中通过鼠标拖动,改变控件的位置。在拖动过程中,跟随鼠标显示一个与被拖动控件大小一样的黑框,用以模拟拖动效果。如下图: 以下是源代码。这里拖动了一个Button控件。如果需要,...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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