📄 frmmain.frm
字号:
VERSION 5.00
Begin VB.Form frmmain
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "俄罗斯方块"
ClientHeight = 6390
ClientLeft = 3195
ClientTop = 1140
ClientWidth = 5205
Icon = "frmmain.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "frmmain.frx":08CA
ScaleHeight = 6390
ScaleWidth = 5205
Begin VB.Timer Timer4
Interval = 100
Left = 1800
Top = 5880
End
Begin VB.Timer tmrmain
Enabled = 0 'False
Interval = 1000
Left = 840
Top = 5880
End
Begin VB.Timer Timer2
Interval = 300
Left = 1320
Top = 5880
End
Begin VB.Timer Timer1
Left = 360
Top = 5880
End
Begin VB.Frame fraoption
BackColor = &H00000000&
Caption = "游戏设置："
ForeColor = &H000000FF&
Height = 1335
Left = 3480
TabIndex = 4
Top = 1680
Width = 1335
Begin VB.TextBox txtscore
Alignment = 1 'Right Justify
Enabled = 0 'False
ForeColor = &H00C00000&
Height = 270
Left = 600
TabIndex = 10
Text = "0"
Top = 960
Width = 615
End
Begin VB.TextBox txthard
Alignment = 2 'Center
Enabled = 0 'False
ForeColor = &H00FF0000&
Height = 270
Left = 780
TabIndex = 9
Text = "0"
Top = 240
Width = 435
End
Begin VB.TextBox txtlevel
Alignment = 2 'Center
Enabled = 0 'False
ForeColor = &H00FF0000&
Height = 270
Left = 480
TabIndex = 5
Text = "1"
Top = 600
Width = 380
End
Begin VB.Label Label1
BackColor = &H00000000&
Caption = "得分"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 255
Left = 120
TabIndex = 11
Top = 1005
Width = 495
End
Begin VB.Label lblhard
BackColor = &H00000000&
Caption = "难度"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 255
Left = 120
TabIndex = 8
Top = 240
Width = 615
End
Begin VB.Label lbldi
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "第"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 255
Left = 120
TabIndex = 7
Top = 600
Width = 255
End
Begin VB.Label lblguan
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "关"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 255
Left = 960
TabIndex = 6
Top = 600
Width = 255
End
End
Begin VB.PictureBox picnext
BackColor = &H00000000&
BorderStyle = 0 'None
Enabled = 0 'False
Height = 1140
Left = 3480
ScaleHeight = 3.8
ScaleMode = 0 'User
ScaleWidth = 3.8
TabIndex = 2
Top = 360
Width = 1140
Begin VB.CommandButton cmdfangnext
Height = 300
Index = 0
Left = 0
Picture = "frmmain.frx":43E5C
Style = 1 'Graphical
TabIndex = 3
Top = 0
Width = 300
End
End
Begin VB.PictureBox picmain
Height = 6060
Left = 240
Picture = "frmmain.frx":47103
ScaleHeight = 20
ScaleMode = 0 'User
ScaleWidth = 10
TabIndex = 0
Top = 120
Width = 3060
Begin VB.CommandButton cmdfang
Height = 300
Index = 0
Left = 0
Picture = "frmmain.frx":4F81C
Style = 1 'Graphical
TabIndex = 1
Top = 0
Width = 300
End
End
Begin VB.Label Label2
BackColor = &H00000000&
Caption = " 游戏忠告： 适度游戏益脑, 沉迷游戏伤身, 合理安排时间, 享受健康生活."
DragIcon = "frmmain.frx":52AE7
BeginProperty Font
Name = "华文中宋"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 1455
Left = 3360
TabIndex = 12
Top = 3960
Width = 1575
End
Begin VB.Image snow
Height = 375
Index = 0
Left = 4560
Top = 5400
Width = 375
End
Begin VB.Menu files
Caption = "文件(&F)"
Begin VB.Menu start
Caption = "开始"
Shortcut = {F1}
End
Begin VB.Menu go
Caption = "继续"
Enabled = 0 'False
Shortcut = {F2}
End
Begin VB.Menu stop1
Caption = "暂停"
Enabled = 0 'False
Shortcut = {F3}
End
Begin VB.Menu heng
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出"
Shortcut = ^Q
End
End
Begin VB.Menu set
Caption = "设置(&S)"
Begin VB.Menu grade
Caption = "游戏级别(高度)"
Begin VB.Menu gao
Caption = "一"
Index = 0
End
Begin VB.Menu gao
Caption = "二"
Index = 1
End
Begin VB.Menu gao
Caption = "三"
Index = 2
End
Begin VB.Menu gao
Caption = "四"
Index = 3
End
Begin VB.Menu gao
Caption = "五"
Index = 4
End
Begin VB.Menu gao
Caption = "六"
Index = 5
End
Begin VB.Menu gao
Caption = "七"
Index = 6
End
Begin VB.Menu gao
Caption = "八"
Index = 7
End
Begin VB.Menu gao
Caption = "九"
Index = 8
End
Begin VB.Menu gao
Caption = "十"
Index = 9
End
End
Begin VB.Menu speed
Caption = "游戏速度"
Begin VB.Menu fast
Caption = "一"
Index = 0
End
Begin VB.Menu fast
Caption = "二"
Index = 1
End
Begin VB.Menu fast
Caption = "三"
Index = 2
End
Begin VB.Menu fast
Caption = "四"
Index = 3
End
Begin VB.Menu fast
Caption = "五"
Index = 4
End
Begin VB.Menu fast
Caption = "六"
Index = 5
End
Begin VB.Menu fast
Caption = "七"
Index = 6
End
Begin VB.Menu fast
Caption = "八"
Index = 7
End
Begin VB.Menu fast
Caption = "九"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -