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

原创 2005年05月26日 15:59:00

    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

C#演示拖动无标题栏的窗体.zip

  • 2012年04月21日 13:53
  • 63KB
  • 下载

C#实现拖动无标题栏的窗体

  • 2014年01月07日 14:50
  • 53KB
  • 下载

QWidget无边框无标题栏窗体 可拖动可拉伸

通常我们不想使用QMainWindow提供的标题栏,或者是QWidget的标题栏、边框,这时候我们使用了一个普通的QWidget,没有标题栏没有边框,但我们又需要有标题栏拖动的功能,边框改变大小的功能...
  • zhango5
  • zhango5
  • 2016年10月03日 22:44
  • 1454

C#无标题栏窗体拖动

  • 2008年04月13日 09:59
  • 529B
  • 下载

C#可拖动的无标题栏窗体

  • 2008年12月08日 22:43
  • 33KB
  • 下载

C#之移动无标题栏窗体功能的实现!...

为实现移动无标题栏窗体的功能,我从网上寻找、整理了以下资料,以备不时之需: 该方法适用于有标题栏和无标题栏窗体,适用于窗体内控件,当然 Form 也不例外, 只须添加 MouseDown、...

[C#][窗体]无标题栏拖动

  • 2011年01月25日 14:03
  • 40KB
  • 下载

vb.net 实现无标题栏窗体拖拽功能

'较好用,没有闪动   Declare Auto Function ReleaseCapture Lib "user32.dll" Alias "ReleaseCapture" () As Bool...

无标题栏窗体拖动+源码

  • 2010年11月27日 13:12
  • 41KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:窗体问题--拖动无标题栏的窗体
举报原因:
原因补充:

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