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

吧务

level 13

命幽楼主

2018年01月11日 15点01分 1

吧务

level 13

命幽楼主

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

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

2018年01月11日 15点01分 2

吧务

level 13

命幽楼主

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

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

2018年01月11日 15点01分 3

繁华锋锋

那些图片素材，能专门一贴分享出来吗？

2018年11月05日 03点11分

命幽

@繁华锋锋我是有把作品放在交流群的你可以加下扣扣群在vbs吧可以找到没电脑现在不好搞这 [乖]

2018年11月05日 07点11分

变卦鬼

背景怎么弄透明我的飞机背景是白色的

2018年11月07日 07点11分

变卦鬼

会了会了

2018年11月07日 07点11分

吧务

level 13

命幽楼主

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

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

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

2018年01月11日 15点01分 4

Math🌌

直接跟踪鼠标不行吗

2018年01月12日 13点01分

命幽

@Math🌌 可以问题一样

2018年01月12日 16点01分

吧务

level 13

命幽楼主

居然说是广告不让我发教程 ****。。。

2018年01月11日 15点01分 5

吧务

level 13

命幽楼主

2018年01月11日 15点01分 6

吧务

level 13

命幽楼主

2018年01月11日 15点01分 7

命幽

不让发文字我只能弄成图片了晕死的哎

2018年01月11日 15点01分

命幽

子弹的创建需要一个依凭 bullet(0) 这也是个图像框控件与player同

2018年01月11日 15点01分

abdulla041125

能不能把这个过程详细的说一些，那些代码在哪儿输入你剪切的有点小了，看不出来在哪儿写了，谢谢 [玫瑰]

2018年05月14日 16点05分

吧务

level 13

命幽楼主

第五步创建敌机对象

其组创建代码如下

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

2018年01月11日 15点01分 8

吧务

level 13

命幽楼主

敌机对象的创建代码通用过程

2018年01月11日 15点01分 9

吧务

level 13

命幽楼主

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

通用函数

2018年01月11日 15点01分 10

变卦鬼

请问这个写在哪里啊

2018年11月07日 11点11分

命幽

@变卦鬼写在通用模块哦

2018年11月07日 15点11分

左耳大哥

不会

2019年03月03日 01点03分

命幽

@左耳大哥加油

2019年03月05日 10点03分

吧务

level 13

命幽楼主

游戏效果预览

2018年01月11日 15点01分 11

吧务

level 13

命幽楼主

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