• 您的位置我爱Aspx >> VB.Net >> 如何拖动没有边框的窗体？

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

  • 作者:aspxer  来源:internet  日期:2007-4-25 20:56:17  关键字:

  • 如何拖动没有边框的窗体？ 作者：孟宪会 出自：【孟宪会之精彩世界】 发布日期：2003年6月15日 2点39分24秒

    这个功能在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

    【我对这篇文章有话说?】
  • 广告位招租，广告代号：content_468_15
  • 上一篇：VB.NET键盘控制焦点移动
    下一篇：多个窗体之间如何互相调用
  • 相关文章