射击游戏

开发平台：
Visual Basic

FormOptimize.frm：源码内容
							VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form FormOptimize 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "速度优化"
   ClientHeight    =   5430
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4455
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5430
   ScaleWidth      =   4455
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer tmrStart 
      Enabled         =   0   'False
      Interval        =   50
      Left            =   3960
      Top             =   3720
   End
   Begin VB.OptionButton Opt_Detail 
      Caption         =   "高质量画面 "
      Height          =   495
      Index           =   2
      Left            =   240
      TabIndex        =   4
      Top             =   4320
      Value           =   -1  'True
      Width           =   2175
   End
   Begin VB.OptionButton Opt_Detail 
      Caption         =   "中等画面"
      Height          =   495
      Index           =   1
      Left            =   240
      TabIndex        =   3
      Top             =   3960
      Width           =   2055
   End
   Begin VB.OptionButton Opt_Detail 
      Caption         =   "低质量画面"
      Height          =   495
      Index           =   0
      Left            =   240
      TabIndex        =   2
      Top             =   3600
      Width           =   1215
   End
   Begin VB.CheckBox Chk_Mute 
      Caption         =   "静音"
      Height          =   495
      Left            =   360
      TabIndex        =   1
      Top             =   1680
      Width           =   1575
   End
   Begin ComctlLib.Slider Sldr_ms 
      Height          =   270
      Left            =   240
      TabIndex        =   0
      Top             =   600
      Width           =   3495
      _ExtentX        =   6165
      _ExtentY        =   476
      _Version        =   327682
      LargeChange     =   1
      Min             =   1
      Max             =   60
      SelStart        =   33
      TickStyle       =   3
      Value           =   33
   End
   Begin VB.CommandButton CmdExit 
      Caption         =   "退出 "
      Height          =   495
      Left            =   2640
      TabIndex        =   5
      Top             =   4200
      Width           =   855
   End
   Begin VB.CommandButton CmdStart 
      Caption         =   "开始游戏"
      Height          =   495
      Left            =   3480
      TabIndex        =   6
      Top             =   4200
      Width           =   855
   End
   Begin VB.Line Line1 
      X1              =   120
      X2              =   4335
      Y1              =   4920
      Y2              =   4920
   End
   Begin VB.Label LblWait 
      Caption         =   "Loading ... Please Wait"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   10
      Top             =   5040
      Width           =   4215
   End
   Begin VB.Label Lbl2 
      Caption         =   "通过移动滑动条的值来设置响应时间，机器配置越好，值设置越高"
      Height          =   615
      Left            =   240
      TabIndex        =   9
      Top             =   840
      Width           =   3975
   End
   Begin VB.Label Lbl_ms 
      Caption         =   "33 ms"
      Height          =   375
      Left            =   3840
      TabIndex        =   8
      Top             =   600
      Width           =   495
   End
   Begin VB.Label Lbl1 
      Caption         =   "设定速度响应时间"
      Height          =   495
      Left            =   240
      TabIndex        =   7
      Top             =   120
      Width           =   4095
   End
End
Attribute VB_Name = "FormOptimize"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Due to different processing speed in on different computers,
'this form is created to set the timer interval of the game
Option Explicit
Private Sub CmdExit_Click()         'QUIT
    Set FormOptimize = Nothing
    Unload FormOptimize
    End
End Sub
Private Sub CmdStart_Click()        'BEGIN GAME
    FormOptimize.Height = 5800
    tmrStart.Enabled = True
End Sub
Private Sub Form_Load()
    FormOptimize.Height = 5245
End Sub
Private Sub Sldr_ms_Change()        'ALTER Slider
    Lbl_ms.Caption = Str(Sldr_ms.Value) & " ms"
End Sub
Private Sub Sldr_ms_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 83 And Shift = 4 Then Call CmdStart_Click
End Sub
Private Sub Sldr_ms_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Lbl_ms.Caption = Str(Sldr_ms.Value) & " ms"
End Sub
Private Sub tmrStart_Timer()
    FormBW.Visible = True
    FormOptimize.Visible = False
End Sub

						