modgetpath.bas

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

Attribute VB_Name = "ModGetPath"
Option Explicit

Public CurAppPath As String

Public Function GetPath(ByVal NumType As Integer)
    Select Case NumType
        Case 0
            GetPath = CurAppPath & "\EObject\"
        Case 1
            GetPath = CurAppPath & "\StaticEObj\"
        Case 2
            GetPath = CurAppPath & "\BatPlane\"
        Case 3
            'getpath=curapppath & "
        Case 4
            GetPath = CurAppPath & "\BStaObject\"
        Case 5
        Case 6
            GetPath = CurAppPath & "\Bullet\"
        Case 7
            GetPath = CurAppPath & "\MyBullet\"
        Case 8
            GetPath = CurAppPath & "\Explode\"
        Case 9
            GetPath = CurAppPath & "\Crash\"
        Case 10
            GetPath = CurAppPath & "\Package\"
        Case 11
            GetPath = CurAppPath & "\Bomb\"
    End Select

End Function