modrunbullet.bas

一款飞机射击游戏的源代码

Attribute VB_Name = "ModRunBullet"
Option Explicit

Public HdcBaffer As Long       '主界面缓冲区

'public
Public BulNew As Bullet
Public BulBaf(1 To 100) As RunBullet        '主界面最多存在100 颗子弹                           ‘’动态类型
Public Function BulletRunNew(ByVal HdcBul As Long, ByVal Cx As Single, ByVal Cy As Single, ByVal TypeBul As Byte)
    Dim Cb As Byte      '记数
        For CountBul = 1 To 100
            If BulBaf(Cb).HdcRun = 0 Then
                Select Case TypeBul
                    Case 0
                        
End Function