VB.NET初学者园地

VB.NET社区贴子选辑,学习感悟--信箱:HanMo@mail.csdn.net

窗体问题--拖动无标题栏的窗体

    Private mouse_offset As Point
        Private Sub form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
            mouse_offset = New Point(e.X, e.Y)
        End Sub

        Private Sub form1_MouseMove(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        '按住鼠标左右键均可拖动窗体
        Dim frm As Form1 = DirectCast(Sender, Form1)
        If e.Button = MouseButtons.Left Or e.Button = MouseButtons.Right Then
            Dim mousepos As Point = frm.MousePosition
            '获得鼠标偏移量
            mousePos.Offset(-mouse_offset.X, -mouse_offset.Y)
            '设置窗体随鼠标一起移动
            frm.Location = mousepos
        End If

        End Sub

        Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '关闭窗体
        Me.Close()
    End Sub

//////////////////////////////////////                  闵峰  2005/05/26

阅读更多
文章标签: button object
个人分类: 09 窗体问题
想对作者说点什么? 我来说一句

标题栏窗体拖动+源码

2010年11月27日 41KB 下载

C#实现拖动标题栏窗体

2014年01月07日 53KB 下载

c#如何拖动标题栏窗体

2009年07月02日 119KB 下载

[窗体]窗体标题栏拖动

2011年01月24日 39KB 下载

没有更多推荐了,返回首页

不良信息举报

窗体问题--拖动无标题栏的窗体

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭