frmtest.frm

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

VERSION 5.00
Begin VB.Form FrmTest 
   AutoRedraw      =   -1  'True
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3450
   ClientLeft      =   1965
   ClientTop       =   2235
   ClientWidth     =   6090
   FillColor       =   &H00800000&
   LinkTopic       =   "Form1"
   ScaleHeight     =   230
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   406
   ShowInTaskbar   =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   3600
      Top             =   1080
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   495
      Left            =   1200
      TabIndex        =   4
      Top             =   0
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   0
      TabIndex        =   3
      Top             =   0
      Width           =   1215
   End
   Begin VB.PictureBox Picture3 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00400000&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   2160
      ScaleHeight     =   33
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   81
      TabIndex        =   2
      Top             =   480
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.PictureBox Picture2 
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000008&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   1080
      ScaleHeight     =   33
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   81
      TabIndex        =   1
      Top             =   960
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.PictureBox Picture1 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000008&
      BorderStyle     =   0  'None
      Height          =   1425
      Left            =   0
      Picture         =   "FrmTest.frx":0000
      ScaleHeight     =   95
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   400
      TabIndex        =   0
      Top             =   1560
      Visible         =   0   'False
      Width           =   6000
   End
End
Attribute VB_Name = "FrmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private CStart As ClsStart





Private Sub Command1_Click()
    CStart.StartPlay Me, Picture1, Me.hDC, Picture3.hDC, Picture2.hDC, Picture1.hDC, Me.ScaleWidth \ 2, Me.ScaleHeight \ 2, Picture1.Width, Picture1.Height, &HFF00FF, &H400000, 30, 3

End Sub

Private Sub Command2_Click()
CStart.StopPlay
'Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Timer1_Timer()
'Debug.Print CStart.StopPlay
End Sub

Private Sub Form_DblClick()
CStart.StopPlay

Set CStart = Nothing

Unload Me

End Sub

Private Sub Form_Load()
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
Picture3.Width = 640 ' Me.ScaleWidth
Picture3.Height = 480 ' Me.ScaleHeight
Set CStart = New ClsStart
End Sub