enemytankproperty.bas

来自「有jsp写的坦克游戏」· BAS 代码 · 共 15 行

Attribute VB_Name = "EnemyTankProperty"
Type EnemyTankProperties
    ActiveDirection As Integer
    Left As Integer
    Top As Integer
End Type

Public ETank(50) As EnemyTankProperties

Public Function ControlEnemyTank(TankFigure As Integer)
    For tf = 0 To TankFigure
        
    Next tf
End Function