Question

vb中如何使一张图片与另一张图片相碰时,出现爆炸的图片

vb中如何使一张图片image1与另一张图片image2相碰时,出现爆炸的图片？而且这两张图片都是动图来的，用timer控制的动图，image2是个数组，就是说image2() ,有多个image2（0），image2(1),……！！我坐等，求帮忙啊，如果解决了我会相应的加分的，谢谢了

Answer 1

'先定义一个判断是否相碰的函数
Function IsTouched(a, b) As Boolean
  IsTouched = Not ( _
    a.Left > b.Left + b.Width Or _
    b.Left > a.Left + a.Width Or _
    a.Top > b.Top + b.Height Or _
    b.Top > a.Top + a.Height)
End Function
'判断image1与image2相碰的代码：
For Each img In Image2 '遍历Image2
  If IsTouched(img, Image1) Then '判断是否与Image1相碰
    '在这里写出现爆炸的图片
  End If
Next

追问

看上去有点懂，但是，我的image2是多个image2()哦,怎么改？

追答

原先的代码中，Image2就是数组，只是用了另一种写法，不加括号和下标。
这是不用括号和下标的写法，变量img就是Image2的元素，
img.Picture = LoadPicture("")