Question

我必须为学校制作一种迷你游戏，为此迷你游戏，我有两个类似于子弹的类，并且我希望它们进行交互，以便当子弹1击中子弹2时，子弹2消失了，但问题是我将它们做成这样，以便当您单击空格键时会创建一个项目符号，并且我不能或者至少不知道如何选择“ intersectwith（）”内部的所有项目符号1。

我尝试了是否me.bounds.inersectwith（bullet.bounds）但是他说我需要引用一个对象而不是一个类，所以我尝试了一个变量

将子弹（-1）用作子弹公共昏暗整数作为整数

 if e.keycode = key.Space then
       ReDim Preserve bullets(intCount)
       Dim bullet1 As New Bullet
       bullet1.Speed 
       bullet1.Direction = sprDir
       Controls.Add(bullet1)
       bullets(intCount) = bullet1
       intCount += 1
       tmrShoot.Enabled = True

然后在项目符号2类中

 if me.bounds.intersectwith(bullet(intcount)) then
      me.top =  100000
      me.left = 100000

但是它仍然不起作用，有人可以帮我解决这个问题吗？

我如何使两个类具有无限个自己

0 个答案: