【VB开源代码栏目提醒】：本文主要为网学会员提供FormBW.frm，希望对需要FormBW.frm网友有所帮助，学习一下!
VERSION 5.00
Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "msdxm.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form FormBW
BackColor = &H00808080&
BorderStyle = 1 'Fixed Single
Caption = "太空大战游戏"
ClientHeight = 6195
ClientLeft = 45
ClientTop = 330
ClientWidth = 4800
ClipControls = 0 'False
ControlBox = 0 'False
FillStyle = 0 'Solid
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 6195
ScaleWidth = 4800
StartUpPosition = 2 'CenterScreen
Visible = 0 'False
Begin VB.Timer tmOneFrame
Enabled = 0 'False
Interval = 1
Left = 1440
Top = 4200
End
Begin VB.Timer tmDelay
Left = 960
Top = 4200
End
Begin VB.Timer tmMenu
Enabled = 0 'False
Interval = 1
Left = 480
Top = 4200
End
Begin VB.Timer tmOneSecond
Enabled = 0 'False
Interval = 1000
Left = 0
Top = 4200
End
Begin VB.Timer tmIntro
Enabled = 0 'False
Interval = 10
Left = 1920
Top = 4200
End
Begin VB.PictureBox Pause_Layer
AutoRedraw = -1 'True
BackColor = &H000000C0&
BorderStyle = 0 'None
Height = 495
Left = 2400
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 55
Top = 5640
Visible = 0 'False
Width = 495
Begin VB.Shape Curr
BorderColor = &H00C0FFC0&
Height = 375
Index = 18
Left = 3000
Top = 120
Width = 2175
End
Begin VB.Shape Curr
BorderColor = &H0080FF80&
Height = 375
Index = 19
Left = 3000
Top = 240
Width = 2175
End
Begin VB.Shape Curr
BorderColor = &H0000FF00&
Height = 375
Index = 20
Left = 3000
Top = 360
Width = 2175
End
Begin VB.Shape Curr
BorderColor = &H0000C000&
Height = 375
Index = 21
Left = 3000
Top = 480
Width = 2175
End
Begin VB.Shape Curr
BorderColor = &H00008000&
Height = 375
Index = 22
Left = 3000
Top = 600
Width = 2175
End
Begin VB.Shape Curr
BorderColor = &H00004000&
Height = 375
Index = 23
Left = 3000
Top = 720
Width = 2175
End
Begin VB.Line Dummy_Line
BorderColor = &H00FFFFFF&
Index = 4
Visible = 0 'False
X1 = 2880
X2 = 2880
Y1 = 0
Y2 = 2040
End
Begin VB.Label menu
Alignment = 2 'Center
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "QUIT"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 29
Left = 360
TabIndex = 59
Top = 1440
Width = 2175
End
Begin VB.Label menu
Alignment = 2 'Center
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "ABORT"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 28
Left = 360
TabIndex = 58
Top = 1080
Width = 2175
End
Begin VB.Label menu
Alignment = 2 'Center
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "RESUME"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 27
Left = 360
TabIndex = 57
Top = 720
Width = 2175
End
Begin VB.Label Pause_Label
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "GAME PAUSED"
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 495
Index = 2
Left = 240
TabIndex = 56
Top = 120
Width = 2415
End
End
Begin VB.PictureBox Game_Layer
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ClipControls = 0 'False
ForeColor = &H00000000&
Height = 495
Left = 1200
ScaleHeight = 495
ScaleWidth = 480
TabIn
相关文章
2013-9-1
