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

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编辑过]

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 If Picture1.Left < 0 Then Picture1.Left = 0 If Picture1.Top < 0 Then Picture1.Top = 0 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 End Sub

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

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

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兄,这是我做贪吃蛇的第一步,下一步呢,是就怎样使一个图片出现在不同的位置,就是让蛇身一节一节的加长.

晕，你的想法和我不同，我是用二维数组，控制每一个元素的值来实现。

比如下面这个地图 0000000000000 0010000000000 0010000000000 0011110000000 0000000000000 0000000000000 数组元素的值为1代表为蛇的身体，为0则是空白的地方