pubedit.bas

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

Attribute VB_Name = "ModPubEdit"
Option Explicit
Public CurImageIndex As Integer
Public CurrentType As Byte
Public CurrentEditType As Byte
Public IsRunning As Boolean
Public M As Integer             'for count
Public LenObj As Integer
Public LenHead As Byte
Public SaveE() As Integer
Public CurListObj As Integer
'Public LoadObj() As SaveRunObj

Public NewObj As SaveObject
Public EditObj As SaveObject
Public LoadObj As SaveObject

Public NewSta As SaveStaticEObject
Public EditSta As SaveStaticEObject
Public LoadSta As SaveStaticEObject

Public NewBackObj As SaveBackObject
Public EditBackObj As SaveBackObject
Public LoadBackObj As SaveBackObject

Public NewBul As SaveBullet
Public EditBul As SaveBullet
Public LoadBul As SaveBullet

Public NewMyBul As SaveMyBul
Public EditMyBul As SaveMyBul
Public LoadMyBul As SaveMyBul

Public NewExp As SaveExp
Public EditExp As SaveExp
Public LoadExp As SaveExp

Public NewPla As SavePlane
Public EditPla As SavePlane
Public LoadPla As SavePlane

Public NewPac As SavePac
Public EditPac As SavePac
Public LoadPac As SavePac

Public NewCra As SaveCrash
Public EditCra As SaveCrash
Public LoadCra As SaveCrash

Public NewBom As SaveBomb
Public EditBom As SaveBomb
Public LoadBom As SaveBomb

'***************************MultiRun
'Public HdcPic As PictureBox

'Public HeadStr As String * 20
'Public allcon As Integer


Public NewType As Byte

Public Sub LoadProperty(ByVal ObjType As Byte, ByVal ListPro As ListView, Optional ByVal IsMainPic As Boolean)
    '
On Error Resume Next

Dim ProObj As SaveObject
Dim ProSta As SaveStaticEObject
Dim ProPla As SavePlane
Dim ProBackObj As SaveBackObject
'dim pro
'dim pro
Dim ProBul As SaveBullet
Dim ProMybul As SaveMyBul
Dim ProExp As SaveExp
Dim ProCra As SaveCrash
Dim ProPac As SavePac
Dim ProBom As SaveBomb

Dim ProString As String        '读入词条
    ListPro.ListItems.Clear
    '*************************************
    Select Case ObjType
        Case 0
            If IsMainPic Then ProObj = EditObj Else ProObj = LoadObj
            'ListPro.ListItems.Add.Text = "EName"
            ListPro.ListItems.Add.Text = ProObj.SaveName
            ListPro.ListItems.Add.Text = ProObj.AllFps
            ListPro.ListItems.Add.Text = ProObj.Width
            ListPro.ListItems.Add.Text = ProObj.Height
            ListPro.ListItems.Add.Text = ProObj.ExplodeType
            ListPro.ListItems.Add.Text = ProObj.IsFlicker
            ListPro.ListItems.Add.Text = ProObj.IsRotate
            ListPro.ListItems.Add.Text = ProObj.Life
            ListPro.ListItems.Add.Text = CRGB(ProObj.MaskColor)
            ListPro.ListItems.Add.Text = ProObj.NextDelay
            ListPro.ListItems.Add.Text = ProObj.NextEObject
            ListPro.ListItems.Add.Text = ProObj.DelayFps
            
            ListPro.ListItems.Add.Text = ProObj.FireSet(1).DelayFps
            ListPro.ListItems.Add.Text = ProObj.FireSet(1).FireType
            ListPro.ListItems.Add.Text = ProObj.FireSet(1).FireSeat.X & "," & ProObj.FireSet(1).FireSeat.Y
            
            ListPro.ListItems.Add.Text = ProObj.FireSet(2).DelayFps
            ListPro.ListItems.Add.Text = ProObj.FireSet(2).FireType
            ListPro.ListItems.Add.Text = ProObj.FireSet(2).FireSeat.X & "," & ProObj.FireSet(2).FireSeat.Y
        
            ListPro.ListItems.Add.Text = ProObj.FireSet(3).DelayFps
            ListPro.ListItems.Add.Text = ProObj.FireSet(3).FireType
            ListPro.ListItems.Add.Text = ProObj.FireSet(3).FireSeat.X & "," & ProObj.FireSet(3).FireSeat.Y
            ListPro.ListItems.Add.Text = ProObj.Sound
            
        Case 1
            If IsMainPic Then ProSta = EditSta Else ProSta = LoadSta
            ListPro.ListItems.Add.Text = ProSta.SaveName
            ListPro.ListItems.Add.Text = ProSta.Width
            ListPro.ListItems.Add.Text = ProSta.Height
            ListPro.ListItems.Add.Text = CRGB(ProSta.MaskColor)
            ListPro.ListItems.Add.Text = ProSta.Life
            ListPro.ListItems.Add.Text = ProSta.IsRotate
            ListPro.ListItems.Add.Text = ProSta.IsFlick
            ListPro.ListItems.Add.Text = ProSta.FireSet(1).DelayFps
            ListPro.ListItems.Add.Text = ProSta.FireSet(1).FireType
            ListPro.ListItems.Add.Text = ProSta.FireSet(1).FireSeat.X & "," & ProSta.FireSet(1).FireSeat.Y
            
            ListPro.ListItems.Add.Text = ProSta.FireSet(2).DelayFps
            ListPro.ListItems.Add.Text = ProSta.FireSet(2).FireType
            ListPro.ListItems.Add.Text = ProSta.FireSet(2).FireSeat.X & "," & ProSta.FireSet(2).FireSeat.Y
        
            ListPro.ListItems.Add.Text = ProSta.FireSet(3).DelayFps
            ListPro.ListItems.Add.Text = ProSta.FireSet(3).FireType
            ListPro.ListItems.Add.Text = ProSta.FireSet(3).FireSeat.X & "," & ProSta.FireSet(3).FireSeat.Y
            ListPro.ListItems.Add.Text = ProSta.Sound
        Case 2
            If IsMainPic Then ProPla = EditPla Else ProPla = LoadPla
            ListPro.ListItems.Add.Text = ProPla.SaveName
            ListPro.ListItems.Add.Text = ProPla.Width
            ListPro.ListItems.Add.Text = ProPla.Height
            ListPro.ListItems.Add.Text = CRGB(ProPla.MaskColor)
            ListPro.ListItems.Add.Text = ProPla.Life
            ListPro.ListItems.Add.Text = ProPla.AllFps
            ListPro.ListItems.Add.Text = ProPla.ExplodeType
            ListPro.ListItems.Add.Text = ProPla.FireSeatX1
            ListPro.ListItems.Add.Text = ProPla.FireSeatY1
            ListPro.ListItems.Add.Text = ProPla.FireSeatX2
            ListPro.ListItems.Add.Text = ProPla.FireSeatY2
            ListPro.ListItems.Add.Text = ProPla.Sound
        Case 3
        Case 4
            If IsMainPic Then ProBackObj = EditBackObj Else ProBackObj = LoadBackObj
            ListPro.ListItems.Add.Text = ProBackObj.SaveName
            ListPro.ListItems.Add.Text = ProBackObj.Width
            ListPro.ListItems.Add.Text = ProBackObj.Height
            ListPro.ListItems.Add.Text = CRGB(ProBackObj.MaskColor)
            ListPro.ListItems.Add.Text = ProBackObj.AllFps
            ListPro.ListItems.Add.Text = ProBackObj.DelayFps
        Case 5
        Case 6
            If IsMainPic Then ProBul = EditBul Else ProBul = LoadBul
            ListPro.ListItems.Add.Text = ProBul.SaveName
            ListPro.ListItems.Add.Text = ProBul.Width
            ListPro.ListItems.Add.Text = ProBul.Height
            ListPro.ListItems.Add.Text = CRGB(ProBul.MaskColor)
            ListPro.ListItems.Add.Text = ProBul.IsRotate
            ListPro.ListItems.Add.Text = ProBul.Power
            ListPro.ListItems.Add.Text = ProBul.Sound
            ListPro.ListItems.Add.Text = ProBul.TypeMove
            ListPro.ListItems.Add.Text = ProBul.SpeedInit
            ListPro.ListItems.Add.Text = CRGB(ProBul.TailColor)
            ListPro.ListItems.Add.Text = ProBul.IsFollow
        Case 7
            If IsMainPic Then ProMybul = EditMyBul Else ProMybul = LoadMyBul
            ListPro.ListItems.Add.Text = ProMybul.SaveName
            ListPro.ListItems.Add.Text = ProMybul.Width
            ListPro.ListItems.Add.Text = ProMybul.Height
            ListPro.ListItems.Add.Text = CRGB(ProMybul.MaskColor)
            ListPro.ListItems.Add.Text = ProMybul.Power
            ListPro.ListItems.Add.Text = ProMybul.Sound
            ListPro.ListItems.Add.Text = ProMybul.IsLeftToRight
        Case 8
            If IsMainPic Then ProExp = EditExp Else ProExp = LoadExp
            ListPro.ListItems.Add.Text = ProExp.SaveName
            ListPro.ListItems.Add.Text = ProExp.Width
            ListPro.ListItems.Add.Text = ProExp.Height
            ListPro.ListItems.Add.Text = CRGB(ProExp.MaskColor)
            ListPro.ListItems.Add.Text = ProExp.AllFps
            ListPro.ListItems.Add.Text = ProExp.DelayFps
            ListPro.ListItems.Add.Text = ProExp.Sound
        Case 9
            If IsMainPic Then ProCra = EditCra Else ProCra = LoadCra
            ListPro.ListItems.Add.Text = ProCra.SaveName
            ListPro.ListItems.Add.Text = ProCra.Width
            ListPro.ListItems.Add.Text = ProCra.Height
            ListPro.ListItems.Add.Text = CRGB(ProCra.MaskColor)
            ListPro.ListItems.Add.Text = ProCra.AllFps
            ListPro.ListItems.Add.Text = ProCra.DelayFps
            ListPro.ListItems.Add.Text = ProCra.Sound
        Case 10
            If IsMainPic Then ProPac = EditPac Else ProPac = LoadPac
            ListPro.ListItems.Add.Text = ProPac.SaveName
            ListPro.ListItems.Add.Text = ProPac.Width
            ListPro.ListItems.Add.Text = ProPac.Height
            ListPro.ListItems.Add.Text = CRGB(ProPac.MaskColor)
            ListPro.ListItems.Add.Text = ProPac.AllFps
            ListPro.ListItems.Add.Text = ProPac.TypePac
            ListPro.ListItems.Add.Text = ProPac.DelayFps
            ListPro.ListItems.Add.Text = ProPac.Sound
        Case 11
            If IsMainPic Then ProBom = EditBom Else ProBom = LoadBom
            ListPro.ListItems.Add.Text = ProBom.SaveName
            ListPro.ListItems.Add.Text = ProBom.Width
            ListPro.ListItems.Add.Text = ProBom.Height
            ListPro.ListItems.Add.Text = CRGB(ProBom.MaskColor)
            ListPro.ListItems.Add.Text = ProBom.IsDrawType
            ListPro.ListItems.Add.Text = ProBom.Sound
    End Select
    Open App.Path & "\ListPro\ListPro" & ObjType & ".Ini" For Input As #1
        N = 0
        Do While Not EOF(1)
            Line Input #1, ProString
            'ListPro.ListItems.Add.Text = ProString
            N = N + 1
            ListPro.ListItems.Item(N).SubItems(1) = ProString 'ProObj.EName
        Loop
        N = 0
    Close #1
If Err Then MsgBox Err.Description
End Sub

Public Function NoZero(ByVal TXT As String) As Single
    NoZero = IIf(Val(TXT) = 0, 1, Val(TXT))
End Function
Public Sub WriteProperty(ByVal ObjType As Byte, ByVal CurImgIndex As Integer, ByVal ListPro As ListView) ', Optional IsMainPic As Boolean)
On Error Resume Next

Dim ProObj As SaveObject
Dim ProSta As SaveStaticEObject
Dim ProPla As SavePlane
Dim ProBackObj As SaveBackObject
'dim pro
'dim pro
Dim ProBul As SaveBullet
Dim ProMybul As SaveMyBul
Dim ProExp As SaveExp
Dim ProCra As SaveCrash
Dim ProPac As SavePac
Dim ProBom As SaveBomb

Dim CurFile As String
CurFile = GetPath(ObjType) & "All.con"