如何使对象仅在特定空间内移动？

Question

我有一个关于VB.net编程的问题，特别是在keydown事件中移动对象时。

所以这里的情况。我在面板中放置了一个picturebox，并让这个picturebox在keydown上移动了一段距离。问题在于，图片框似乎与面板重叠（穿过墙壁）。 我在想，面板的宽度与限制对象通过面板的代码有关。不幸的是，我似乎无法找出做什么方法或我应该怎样做。

这里是我到目前为止的代码：

Private Sub EClassic_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown 
    Select Case e.KeyCode 
     Case Keys.Left 
      play_avatar.Left -= 100 
      If play_avatar.Left = -200 Then 
       Keys.Left. = Nothing 
      End If 
     Case Keys.Right 
      play_avatar.Left += 100 
      If play_avatar.Left = 200 Then 
       Keys.Left. = Nothing 
      End If 
    End Select 
End Sub 

你的反应是非常感谢！谢谢。

编辑：

我觉得这工作得很好，感谢@Lolo。虽然我的编码看起来很便宜哈哈。

Dim c As Integer = Panel1.ClientSize.Width 
    Dim res As Integer 
    Dim res2 As Integer 
    res2 = c - c + 100 
    res = c/2 

    Select Case e.KeyCode 
     Case Keys.Left 
      If play_avatar.Left > res2 Then 
       play_avatar.Left -= 100 
      ElseIf play_avatar.Left < res2 Then 
       play_avatar.Left -= 0 
      End If 

     Case Keys.Right 
      If play_avatar.Left < res Then 
       play_avatar.Left += 100 
      ElseIf play_avatar.Left > res Then 
       play_avatar.Left -= 0 

      End If 

    End Select 

Answer 1

试试这个：

Private Sub EClassic_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown 
    Dim tmpLeft as integer 

    Select Case e.KeyCode 
    Case Keys.Left 
     tmpLeft =play_avatar.Left - 100 

     If tmpLeft < YourPanel.Left then 
     e.cancel=true 
     else 
     play_avatar.Left = tmpLeft 
     End If 

    Case Keys.Right 
     tmpLeft =play_avatar.Left + 100 

     If play_avatar.Right > YourPanel.Right then 
     e.cancel=true 
     else 
     play_avatar.Left = tmpLeft 
     End If 

    End Select 
End Sub