如何拖动没有边框的窗体？

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:21 来源：互联网

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《如何拖动没有边框的窗体？》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

如何拖动没有边框的窗体？
这个功能在VB6中，需要借助于API函数才能实现。而在VB.NET中，凭自己的功能就能实现。首先设置窗体的FormBorderStyle属性为none以去掉窗体的边框，然后在窗体上添加一个按钮。窗体中的代码如下：

Public Class Form1
　Inherits System.Windows.Forms.Form

　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
　\'按住鼠标左右键均可拖动窗体
　If e.Button = MouseButtons.Left Or e.Button = MouseButtons.Right Then
　　Dim mousePos As Point = Sender.findform().MousePosition
　　\'获得鼠标偏移量
　　mousePos.Offset(-mouse_offset.X, -mouse_offset.Y)
　　\'设置窗体随鼠标一起移动
　　Sender.findform().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
End Class

本页地址