怎么用VB判断遇到障碍物,就是一个赛车游戏,车子要绕过障碍物,如果碰着就不能前进,用键盘控制车子的移动

'本人不懂代码什么的,只会最简单的label?timer?text?都还用不好呢。求朋友一起学习。

'Q我393958512

Private?Sub?Form_KeyDown(KeyCode?As?Integer,?Shift?As?Integer)

If?KeyCode?=?37?Then?Picture1.Left?=?Picture1.Left?-?10

End?Sub

Private?Sub?Form_Load()

Form1.KeyPreview?=?True? '响应key

Timer1.Enabled?=?True

Timer1.Interval?=?500?'刷新间隔时间,用此获取当前车与障碍物的坐标关系

End?Sub

Private?Sub?Timer1_Timer()?'这只是用lab用显示直观一点,直拉在?Key?事件中写也是可以的。

Label1.Caption?=?Picture1.Left

Label2.Caption?=?Picture2.Left

If?Label1.Caption?-?(Label2.Caption?+?Picture2.Width)?<=?0?Then

'车到左边的距离?减?障碍物到左边的距离和障碍物的宽度和

MsgBox?"Game?Over!"

Timer1.Enabled?=?False

End?If

End?Sub