学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
发新话题
打印

求救,点击图片picturebox移动窗体的问题。。。

求救,点击图片picturebox移动窗体的问题。。。

请教高手,我在窗体里面放了个picturebox控件,想当鼠标点中控件不松手的时候,移动鼠标时,整个窗体随之移动。请问在picturebox里的mousedown里应该怎样写代码?
谢谢

TOP

Public X, Y As Integer
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        X = e.X : Y = e.Y
    End Sub

    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If X = e.X And Y = e.Y Then Exit Sub
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Left = Me.Left + e.X - X
            Me.Top = Me.Top + e.Y - Y
        End If
    End Sub
昨天,我卖身给学业,所以今天我无所事事;而明天,我将嫁身于生计……

TOP

谢谢,我去试试

TOP

成功了,谢谢

TOP

发新话题