Picturebox 面板内平移边界

Question

我的图像位于面板内部，我为只能移动的边界设置了一个 if 语句。当我尝试运行它时，当鼠标将其平移到边界之外时，它看起来很糟糕。这是我的平移代码：

If (mouse.Button = Windows.Forms.MouseButtons.Left) Then

  Dim mousePosNow As Point = mouse.Location

  Dim deltaX As Integer = mousePosNow.X - mouseDowns.X
  Dim deltaY As Integer = mousePosNow.Y - mouseDowns.Y

  Dim newX As Integer
  Dim newY As Integer

  If PictureBox1.Location.X <= Panel1.Location.X And PictureBox1.Location.Y <= Panel1.Location.Y And _
  (PictureBox1.Location.X + PictureBox1.Width) >= (Panel1.Location.X + Panel1.Width) And _
  (PictureBox1.Location.Y + PictureBox1.Height) >= (Panel1.Location.Y + Panel1.Height) Then

    newX = PictureBox1.Location.X + deltaX
    newY = PictureBox1.Location.Y + deltaY
  End If

  PictureBox1.Location = New Point(newX, newY)

End If

Answer 1

首先，如果您的 PictureBox 位于面板内，则无需考虑面板的位置，因为 PictureBox 的位置将在面板的左上角归零。

此条件：

If PictureBox.Location.X <= Panel1.Location.X ...

应更改为此条件：

If PictureBox.Location.X <= 0

此外，您遇到的问题是由于您的事件处理程序在将 PictureBox 从 0,0 移动到将 PictureBox 移动到增量位置之间切换。

例如：
当您向右拖动 PictureBox 使其左边界超过面板的左边界（即 PictureBox.Location.X > 0）时，您的 if 语句的条件将计算为 False，并且 PictureBox 的位置将设置为 0。但是，由于您现在更改了其位置，因此再次触发 MouseMove 事件，这次 if 语句的条件计算为 True，并且 PictureBox 的位置设置为增量位置。
再次触发 MouseMove 事件并重复该场景，来回翻转 PictureBox 的位置，从而导致抖动效果。

您可以通过更改条件以依赖 PictureBox 的新位置而不是当前位置来解决此问题：

此条件：

If PictureBox.Location.X <= 0 ...

应更改为此条件：

If (PictureBox.Location.X + deltaX) <= 0 ...

这解决了抖动问题，但您的代码仅处理以下情况 ： PictureBox 被拖向右侧和底部。

您可以通过将计算移动到单独处理每个轴的单独函数中来简化代码，而不是编写更多条件：

If (mouse.Button = Windows.Forms.MouseButtons.Left) Then

  Dim mousePosNow As Point = mouse.Location

  Dim deltaX As Integer = mousePosNow.X - mouseDowns.X
  Dim deltaY As Integer = mousePosNow.Y - mouseDowns.Y

  Dim newX As Integer = Clamp(PictureBox1.Location.X + deltaX, PictureBox1.Width, Panel1.Width)
  Dim newY As Integer = Clamp(PictureBox1.Location.Y + deltaY, PictureBox1.Height, Panel1.Height)

  PictureBox1.Location = New Point(newX, newY)
End If

...

Private Function Clamp(val As Integer, outerBound As Integer, innerBound As Integer) As Integer
  Dim newVal As Integer = val

  If newVal > 0 Then
    newVal = 0
  End If

  If newVal + outerBound < innerBound Then
    newVal = innerBound - outerBound
  End If

  Return newVal
End Function