移动图片框 vb.net mousekeydown 和 up答案

【问题标题】：move picture box vb.net mousekeydown and up移动图片框 vb.net mousekeydown 和 up
【发布时间】：2013-02-25 11:11:24
【问题描述】：

我在visual basic dot net中我有一个图片框，我需要移动它，用户单击并移动鼠标，当用户释放鼠标时，图片框需要随之移动图片框有位置

Public Class Form1
Dim punto As New Point()

Private Sub PictureBox1_MouseDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
punto = Cursor.Position
PictureBox1.Location = punto
End Sub

Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
punto = Cursor.Position
PictureBox1.Location = punto

End Sub
End Class

【问题讨论】：

标签： .net vb.net picturebox keydown keyup

【解决方案1】：

Dim Offset As Point
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseDown
     Offset = New Point(-e.X, -e.Y)
End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseMove
     If e.Button = Windows.Forms.MouseButtons.Left Then
         Dim Pos As Point = Me.PointToClient(MousePosition)
         Pos.Offset(Offset.X, Offset.Y)
         PictureBox1.Location = Pos
     End If
    End Sub

【讨论】：