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

类别:.NET开发 点击:0 评论:0 推荐:

    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

本文地址:http://com.8s8s.com/it/it40940.htm