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

原创 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#之移动无标题栏窗体功能的实现!...

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

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

无标题栏窗体,也就是FormBorderStyle等于System.Windows.Forms.FormBorderStyle.None的窗体。要实现无标题栏窗体的拖动,分2种情况讨论:标题栏区域封装...
  • jhqin
  • jhqin
  • 2010年11月17日 16:16
  • 3008

vb.net实现无标题栏窗体可拖动

'Win32 API Declare Auto Function ReleaseCapture Lib "user32.dll" Alias "ReleaseCapture" () ...
  • pclook
  • pclook
  • 2010年12月27日 15:06
  • 616

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

'较好用,没有闪动   Declare Auto Function ReleaseCapture Lib "user32.dll" Alias "ReleaseCapture" () As Bool...
  • haoduo123456789001
  • haoduo123456789001
  • 2016年04月27日 09:32
  • 1315

无标题栏窗口拖动的实现

普通的Windows应用程序窗口都具有统一的窗口风格,它们一般都包括:用户区和非用户区两部分。非用户区包括标题条、窗口边框、最大化按钮、最小化按钮、关闭按钮和系统默认的快捷键及鼠标支持等。利用鼠标的左...
  • ArduousBonze
  • ArduousBonze
  • 2007年05月15日 00:06
  • 2519

c# 实现用鼠标拖动没有标题栏的窗口(窗体的任何部分都可实现拖动效果)

上面形式的窗体,实现窗体的任何部分都可
  • soft_123456
  • soft_123456
  • 2014年11月04日 10:05
  • 1541

Delphi中拖动无边框窗口的5种方法

1.MouseMove事件中加入: // ReleaseCapture; // Perform(WM_SYSCOMMAND, $F017 , 0);  2.MouseDown事件中加入:...
  • diligentcat
  • diligentcat
  • 2014年01月12日 02:26
  • 1427

拖动无标题栏窗体

 遇到这个问题,解决如下:1.引入命名空间    using System.Runtime.InteropServices;2.    [DllImport("user32.dll")]    pub...
  • markbum2008
  • markbum2008
  • 2008年11月02日 14:37
  • 132

无标题栏窗体拖动

///         /// 无标题栏窗体拖动实现         ///         [DllImport("user32.dll")]         public static...
  • seu520lyl
  • seu520lyl
  • 2011年11月28日 15:25
  • 293

.Net winform拖动工作区移动窗体

.Net winform拖动工作区移动窗体
  • jackiej
  • jackiej
  • 2011年02月11日 18:23
  • 2600
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:窗体问题--拖动无标题栏的窗体
举报原因:
原因补充:

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