frmteststart.frm

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

VERSION 5.00
Begin VB.Form FrmTestStart 
   Caption         =   "Form1"
   ClientHeight    =   3630
   ClientLeft      =   2310
   ClientTop       =   1830
   ClientWidth     =   5025
   LinkTopic       =   "Form1"
   ScaleHeight     =   3630
   ScaleWidth      =   5025
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   495
      Left            =   1920
      TabIndex        =   2
      Top             =   3000
      Width           =   1215
   End
   Begin VB.PictureBox Picture1 
      Height          =   2535
      Left            =   1800
      ScaleHeight     =   165
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   189
      TabIndex        =   1
      Top             =   0
      Width           =   2895
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   3480
      TabIndex        =   0
      Top             =   2880
      Width           =   1215
   End
End
Attribute VB_Name = "FrmTestStart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private St As ClsStart
Dim M(1 To 40) As String
Private Sub Command1_Click()
St.ShowLife Picture1.hDC, 10, 10, 4, 4, 5, &HFF0000, &HFF
End Sub

Private Sub Command2_Click()
Dim N As Long
For N = 1 To 10
    M(N) = N * 9
Next N
St.DrawScore Picture1.hDC, M, 10, 10, 10, &HFF
End Sub

Private Sub Form_Load()
Set St = New ClsStart
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set St = Nothing
End Sub