vb6最简单的办法开发小游戏——打飞机

第一步 我们先创建出 游戏的背景

这里直接选中窗体 然后在它的属性栏里面 找到 picture属性 将它的值 加载如一个背景图片即可

第二步 创建出我方的飞机对象 这里将使用image(图像框)控件

创建出image1控件后 将它的名字改成 player 然后 找到picture属性 加载入我方飞机的图像文件

第三步 为我方飞机 添加 拖拽事件

在游戏主程界面中调用 通用过程 DragObj (对象拖拽)

这部分代码另写在通用模块中 它的意思就是在对象(控件)的鼠标移动事件中检测鼠标跟对象坐标关系 然后 进行 赋值 即可实现对象的移动 该方法image控件会闪烁

第五步 创建敌机对象

其组创建代码如下


接下来 要让 敌机 在游戏世界范围内的随机坐标上显示 并能够向下移动

最后一步 为我方飞机的子弹与敌机编写一个碰撞检测

通用函数

游戏效果预览

结语
1.用数组控件来写游戏是比较常见的办法 但是对于碰撞检测这种需要进行遍历控件的游戏类型则绝对不友好 所以还是比较建议大家使用gdi+、dx等专门的游戏、图像引擎进行游戏开发
2.当然这个小demo主要是为了给大家演示一个游戏开发需要用的编程思维 虽然我没说多少 只有一句话 请自行体会
3.我绝不会承认 为了这个水贴 我花费了将近六个小时
vb吧转

還不錯

目前vbs打飞机案例已经完成 有兴趣的可以加群 一起学习交流

想要资源

为什么说 VB 简单，我觉得写这个游戏还是蛮复杂麻烦的。。 也许需要一种不同的，真正从游戏角度来理解的编写模式。

楼主，请问你这个飞机图片是什么格式的