📄 10seconds game.frm
字号:
VERSION 5.00
Begin VB.Form frmGame
Caption = "10 Seconds"
ClientHeight = 4980
ClientLeft = 60
ClientTop = 450
ClientWidth = 6435
LinkTopic = "Form1"
Picture = "10seconds game.frx":0000
ScaleHeight = 4980
ScaleWidth = 6435
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
Caption = "About"
Height = 255
Left = 0
TabIndex = 13
Top = 0
Width = 855
End
Begin VB.TextBox txtScore
Alignment = 2 'Center
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 11
Text = "Text1"
Top = 3960
Width = 1215
End
Begin VB.Timer tmrEndGame
Interval = 100
Left = 5760
Top = 4200
End
Begin VB.Timer Timer9
Enabled = 0 'False
Left = 3840
Top = 3960
End
Begin VB.Timer Timer8
Enabled = 0 'False
Left = 2520
Top = 3960
End
Begin VB.Timer Timer7
Enabled = 0 'False
Left = 1200
Top = 3960
End
Begin VB.Timer Timer6
Enabled = 0 'False
Left = 3840
Top = 2640
End
Begin VB.Timer Timer5
Enabled = 0 'False
Left = 2520
Top = 2640
End
Begin VB.Timer Timer4
Enabled = 0 'False
Left = 1200
Top = 2640
End
Begin VB.Timer Timer3
Enabled = 0 'False
Left = 3840
Top = 1320
End
Begin VB.Timer Timer2
Enabled = 0 'False
Left = 2520
Top = 1320
End
Begin VB.Timer Timer1
Enabled = 0 'False
Left = 1200
Top = 1320
End
Begin VB.CommandButton cmdQuit
Caption = "&Quit"
Height = 495
Left = 4800
TabIndex = 10
Top = 1320
Width = 1215
End
Begin VB.CommandButton cmdStart
Caption = "&Start"
Height = 495
Left = 4800
TabIndex = 9
Top = 600
Width = 1215
End
Begin VB.CommandButton cmd9
BackColor = &H00C0C0FF&
Caption = "10"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 3120
Style = 1 'Graphical
TabIndex = 8
Top = 3240
Width = 1215
End
Begin VB.CommandButton cmd8
BackColor = &H00C0C0FF&
Caption = "10"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 1800
Style = 1 'Graphical
TabIndex = 7
Top = 3240
Width = 1215
End
Begin VB.CommandButton cmd7
BackColor = &H00C0C0FF&
Caption = "10"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 480
Style = 1 'Graphical
TabIndex = 6
Top = 3240
Width = 1215
End
Begin VB.CommandButton cmd6
BackColor = &H00C0C0FF&
Caption = "10"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 3120
Style = 1 'Graphical
TabIndex = 5
Top = 1920
Width = 1215
End
Begin VB.CommandButton cmd5
BackColor = &H00C0C0FF&
Caption = "10"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 1800
Style = 1 'Graphical
TabIndex = 4
Top = 1920
Width = 1215
End
Begin VB.CommandButton cmd4
BackColor = &H00C0C0FF&
Caption = "10"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 480
Style = 1 'Graphical
TabIndex = 3
Top = 1920
Width = 1215
End
Begin VB.CommandButton cmd3
BackColor = &H00C0C0FF&
Caption = "10"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 3120
Style = 1 'Graphical
TabIndex = 2
Top = 600
Width = 1215
End
Begin VB.CommandButton cmd2
BackColor = &H00C0C0FF&
Caption = "10"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 1800
Style = 1 'Graphical
TabIndex = 1
Top = 600
Width = 1215
End
Begin VB.CommandButton cmd1
BackColor = &H00C0C0FF&
Caption = "10"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 480
MaskColor = &H00C0C0FF&
Style = 1 'Graphical
TabIndex = 0
Top = 600
Width = 1215
End
Begin VB.Label lblScore
Alignment = 2 'Center
BackColor = &H80000007&
Caption = "Score"
BeginProperty Font
Name = "Comic Sans MS"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 495
Left = 4800
TabIndex = 12
Top = 3480
Width = 1215
End
End
Attribute VB_Name = "frmGame"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' Declare countdown variables for each button. These will begin at 10
' and countdown by one with each buttons timer event.
Dim fiCount1 As Integer
Dim fiCount2 As Integer
Dim fiCount3 As Integer
Dim fiCount4 As Integer
Dim fiCount5 As Integer
Dim fiCount6 As Integer
Dim fiCount7 As Integer
Dim fiCount8 As Integer
Dim fiCount9 As Integer
'Declare countdown speed variables for each button. Each button will have its
'own random countdown speed which will decrease when the button is clicked.
Dim fiSpeed1 As Integer
Dim fiSpeed2 As Integer
Dim fiSpeed3 As Integer
Dim fiSpeed4 As Integer
Dim fiSpeed5 As Integer
Dim fiSpeed6 As Integer
Dim fiSpeed7 As Integer
Dim fiSpeed8 As Integer
Dim fiSpeed9 As Integer
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -