我用键盘来控制一个图片的移动.但如何做个边界限制呢?就是碰到边限时提示?

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyLeft Picture1.Left = Picture1.Left - 100 Case vbKeyUp Picture1.Top = Picture1.Top - 100 Case vbKeyDown Picture1.Top = Picture1.Top + 100 Case vbKeyRight Picture1.Left = Picture1.Left + 100 End Select End Sub

Private Sub Form_Load() Me.KeyPreview = True End Sub

[此贴子已经被作者于2004-06-22 22:40:03编辑过]

老大,最后两句的意思不是很明白,但作用我知道,

If Picture1.Left > Me.ScaleWidth - Picture1.Width Then Picture1.Left = Me.ScaleWidth - Picture1.Width If Picture1.Top > Me.ScaleHeight - Picture1.Height Then Picture1.Top = Me.ScaleHeight - Picture1.Height

你能不能用中文说明一下.......,"Me.ScaleWidth" " me "就更明白??

非常感谢grief兄,这是我做贪吃蛇的第一步,下一步呢,是就怎样使一个图片出现在不同的位置,就是让蛇身一节一节的加长.