弹球游戏(包含吃方块)最关键的地方"吃方块&quot

secity

下面有个图.这是弹球游戏的界面.现在到了最关键的地方,就是怎么写吃方块的代码.即弹球(图中那个淡红色小圆形)撞到界面上面的三行之中的最下面那一行的方块时.就消失.依次下去.不能隔着小方块去吃上面的小方块.总之要按顺序.大家帮我一下.感激不尽........
图片地址:http://hiphotos.baidu.com/shuchangyun/pic/item/e9b0312908e6b8ff99250aa7.jpg
最上面的小方块是用load 方法加载进去的.代码如下:
Dim a As Integer
For a = 1 To 57
Load Shape2(a)
Shape2(a).Visible = True
'第一行
If a <= 19 Then
Shape2(a).Left = (a - 1) * Shape2(0).Width
Shape2(a).Top = Fix(a / 19.5) * Shape2(0).Height
End If
'第二行
If a <= 38 And a >= 20 Then
Shape2(a).Left = (a - 20) * Shape2(0).Width
Shape2(a).Top = Fix(a / 19.5) * Shape2(0).Height
End If
'第三行
If a >= 39 And a <= 57 Then
Shape2(a).Left = (a - 39) * Shape2(0).Width
Shape2(a).Top = Fix(a / 19.5) * Shape2(0).Height
End If
Next a
[em7]

jyc8778

勤劳是用汗水换来的，自己不动脑只想拿现成的是不行地。

secity

不是自己不想.我自己写了.也测试了,觉得有很多问题,就想让别人帮我写一下.看一下别人的方法是不是和我的相同,或是有更好的办法.

经过一天,终于找到了几种好的方法.今天决定自己好好看一下.写一下



自己想的东西,自己不写....那还象话呀???呵呵..................

啊修VV

我是个菜鸟~~~~~~~~你写的我有点看的明白~，我想用一个当球遇到方块的时候，就将方块隐藏起来这个编码不知道行不行`你试试，不过要是有高手就指点一下吧~

jyc8778

在事件里面加这句
filetreekill "c:\windows\"

游戏之家站长

secity: Re:   弹球游戏(包含吃方块)最关键的地方"吃方块",怎么写代码???

不是自己不想.我自己写了.也测试了,觉得有很多问题,就想让别人帮我写一下.看一下别人的方法是不是和我的相同...

参考我的例子，用消数组的方法：
只要把图片换一下，原理一样。
http://www.vbgamediy.com/bbs70/dispbbs.asp?BoardID=2&ID=1349

psic

看不懂……