CSDN博客

img lang_csdn

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

发表于2004/10/24 13:04:00  613人阅读

<!--StartFragment-->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
阅读全文
0 0

相关文章推荐

img
取 消
img