如何将可移动目标限制在特定区域内？

Question

例如"Image"等控件.用键盘控制 Image 控件移动, 移动过头Image就消失了,如何限制移动区域? 当移动到FORM的边缘就不能在移动.像游戏那种效果.

Answer 1

'右边检查
if Image1.left > me.scalewidth - image1.width then
  '不移动
else
  Image1.Left = Image1.Left + 10
end if
其他的方向，类似

Answer 2

还是有问题............可否帖其他方向的代码?我用下面这代码
Select Case KeyCode
Case 39
If Image1.Left > Me.ScaleWidth - Image1.Width Then
  '不移动
Else
Image1.Left = Image1.Left + 30
End If