求救，点击图片picturebox移动窗体的问题。。。(页 1) - VB.NET论坛

goodwellxp 发表于 2008-1-24 23:22

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

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

fairy4 发表于 2008-1-25 08:36

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

goodwellxp 发表于 2008-1-26 11:28

谢谢，我去试试

goodwellxp 发表于 2008-1-26 12:00

成功了，谢谢

页: [1]