📄 frmmain.frm
字号:
VERSION 5.00
Begin VB.Form frmMain
BackColor = &H00800000&
BorderStyle = 1 'Fixed Single
Caption = "华容道"
ClientHeight = 5685
ClientLeft = 165
ClientTop = 450
ClientWidth = 8400
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 5685
ScaleWidth = 8400
StartUpPosition = 2 'CenterScreen
Begin VB.Timer tmrGameTime
Enabled = 0 'False
Interval = 1000
Left = 7545
Top = 2775
End
Begin VB.CommandButton cmdExit
Caption = "退出游戏"
Height = 510
Left = 6435
TabIndex = 12
Top = 4710
Width = 1515
End
Begin VB.CommandButton cmdStart
Caption = "开始游戏"
Height = 495
Left = 4620
TabIndex = 11
Top = 4710
Width = 1515
End
Begin VB.PictureBox picFrame
BackColor = &H00C00000&
FillColor = &H00C00000&
ForeColor = &H00C00000&
Height = 5000
Left = 150
ScaleHeight = 4935
ScaleWidth = 3945
TabIndex = 0
Top = 255
Width = 4000
Begin VB.Image imgGuanyu
Enabled = 0 'False
Height = 1000
Left = 1000
Picture = "frmMain.frx":0000
Stretch = -1 'True
Tag = "1"
Top = 2000
Width = 2000
End
Begin VB.Image imgGeneral
Enabled = 0 'False
Height = 2000
Index = 3
Left = 3000
Picture = "frmMain.frx":0CB6
Stretch = -1 'True
Tag = "5"
Top = 2000
Width = 1000
End
Begin VB.Image imgGeneral
Enabled = 0 'False
Height = 2000
Index = 2
Left = 0
Picture = "frmMain.frx":1AFB
Stretch = -1 'True
Tag = "4"
Top = 2000
Width = 1000
End
Begin VB.Image imgGeneral
Enabled = 0 'False
Height = 2000
Index = 1
Left = 3000
Picture = "frmMain.frx":28B1
Stretch = -1 'True
Tag = "3"
Top = 0
Width = 1000
End
Begin VB.Image imgGeneral
Enabled = 0 'False
Height = 2000
Index = 0
Left = 0
Picture = "frmMain.frx":36D6
Stretch = -1 'True
Tag = "2"
Top = 0
Width = 1000
End
Begin VB.Image imgSoldier
Enabled = 0 'False
Height = 1000
Index = 3
Left = 3000
Picture = "frmMain.frx":45AC
Stretch = -1 'True
Tag = "9"
Top = 4000
Width = 1000
End
Begin VB.Image imgSoldier
Enabled = 0 'False
Height = 1000
Index = 0
Left = 0
Picture = "frmMain.frx":4EB4
Stretch = -1 'True
Tag = "6"
Top = 4000
Width = 1000
End
Begin VB.Image imgSoldier
Enabled = 0 'False
Height = 1000
Index = 2
Left = 2000
Picture = "frmMain.frx":57BC
Stretch = -1 'True
Tag = "8"
Top = 3000
Width = 1000
End
Begin VB.Image imgCaocao
Enabled = 0 'False
Height = 2000
Left = 1000
Picture = "frmMain.frx":60C4
Stretch = -1 'True
Tag = "0"
Top = 0
Width = 2000
End
Begin VB.Image imgSoldier
Enabled = 0 'False
Height = 1000
Index = 1
Left = 1000
Picture = "frmMain.frx":755C
Stretch = -1 'True
Tag = "7"
Top = 3000
Width = 1000
End
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "出 口"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 300
Left = 1755
TabIndex = 13
Top = 5280
Width = 1050
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "有诗云：华容游戏见真情"
BeginProperty Font
Name = "幼圆"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 300
Left = 4500
TabIndex = 10
Top = 3765
Width = 3300
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "私放曹操，报答恩情"
BeginProperty Font
Name = "幼圆"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 300
Left = 4500
TabIndex = 9
Top = 3315
Width = 2700
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "华容小道，关羽动心"
BeginProperty Font
Name = "幼圆"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 300
Left = 4500
TabIndex = 8
Top = 2865
Width = 2700
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "过关斩将，聚会四星"
BeginProperty Font
Name = "幼圆"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 300
Left = 4500
TabIndex = 7
Top = 2415
Width = 2700
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "曹操逃得快，小兵追得勤"
BeginProperty Font
Name = "幼圆"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 300
Left = 4500
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -