vb制作飞机大战

vb制作飞机大战(2)

上一节我们讲到了飞机的移动，这次我们接着讲
今天的任务如下：
1：使飞机不能飞出窗体
2：子弹的发射
3：敌方飞机的飞行
好了，话不多说，我们开始

1：使飞机不能飞出窗体

比如说飞机不能飞出上方
试想一下，是不是他的top大于0就行了？
左边一样
难的就是使他飞不出下方或者右方
想象一下：
我们只要知道右边或者下边的距离就好
那么：

MF.width-wjfj.left-wjfj.width<>wjfj.width

就好
修改后代码如下：

Private sub Form_keypress(keyascii as long)
Select case keyascii
case 97 And MF.height-