在运行时在winform中拖动图片框

l--*_*''' 1 vb.net winforms

我需要能够在vb.net中的winform周围拖放带有图像的图片框.

djd*_*d87 5

这是在C#中,但应该很容易在VB.Net中复制.

private int   currentX, currentY;
private bool  isDragging = false;

private void myPictureBox_MouseDown(object sender, MouseEventArgs e) 
{
  isDragging = true;

  currentX = e.X;
  currentY = e.Y;
}

private void myPictureBox_MouseMove(object sender, MouseEventArgs e) 
{
  if (isDragging) 
  {
    myPictureBox.Top = myPictureBox.Top + (e.Y - currentY);
    myPictureBox.Left = myPictureBox.Left + (e.X - currentX);
  }
}

private void myPictureBox_MouseUp(object sender, MouseEventArgs e) 
{
  isDragging = false;
}
Run Code Online (Sandbox Code Playgroud)