怎么用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