📄 f2.frm
字号:
VERSION 5.00
Begin VB.Form f2
BorderStyle = 3 'Fixed Dialog
Caption = "帮助"
ClientHeight = 5010
ClientLeft = 3675
ClientTop = 3150
ClientWidth = 7410
Icon = "f2.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "f2.frx":08CA
ScaleHeight = 5010
ScaleWidth = 7410
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox t1
Alignment = 2 'Center
Appearance = 0 'Flat
BorderStyle = 0 'None
BeginProperty Font
Name = "方正舒体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 960
Locked = -1 'True
TabIndex = 24
Text = "将鼠标放在下面键上显示该键功能"
Top = 3600
Width = 5295
End
Begin VB.PictureBox p1
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 3840
Picture = "f2.frx":9215
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 21
Top = 2160
Width = 435
End
Begin VB.PictureBox p2
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 3840
Picture = "f2.frx":B41C
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 20
Top = 2760
Width = 435
End
Begin VB.PictureBox p4
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 4560
Picture = "f2.frx":D625
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 19
Top = 2760
Width = 435
End
Begin VB.PictureBox p3
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 3120
Picture = "f2.frx":F821
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 18
Top = 2760
Width = 435
End
Begin VB.PictureBox p6
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 1920
Picture = "f2.frx":119F9
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 17
Top = 2760
Width = 435
End
Begin VB.PictureBox p11
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 5640
Picture = "f2.frx":13B6F
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 16
Top = 5640
Visible = 0 'False
Width = 435
End
Begin VB.PictureBox p12
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 6360
Picture = "f2.frx":15D76
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 15
Top = 5640
Visible = 0 'False
Width = 435
End
Begin VB.PictureBox p13
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 7080
Picture = "f2.frx":17F7F
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 14
Top = 5640
Visible = 0 'False
Width = 435
End
Begin VB.PictureBox p14
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 7800
Picture = "f2.frx":1A157
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 13
Top = 5640
Visible = 0 'False
Width = 435
End
Begin VB.PictureBox p15
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 5640
Picture = "f2.frx":1C353
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 12
Top = 6240
Visible = 0 'False
Width = 435
End
Begin VB.PictureBox p16
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 6360
Picture = "f2.frx":1E4B1
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 11
Top = 6240
Visible = 0 'False
Width = 435
End
Begin VB.PictureBox p21
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 7080
Picture = "f2.frx":20627
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 10
Top = 6240
Visible = 0 'False
Width = 435
End
Begin VB.PictureBox p22
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 7800
Picture = "f2.frx":22B1F
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 9
Top = 6240
Visible = 0 'False
Width = 435
End
Begin VB.PictureBox p23
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 5640
Picture = "f2.frx":25066
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 8
Top = 6840
Visible = 0 'False
Width = 435
End
Begin VB.PictureBox p24
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 6360
Picture = "f2.frx":275C4
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 7
Top = 6840
Visible = 0 'False
Width = 435
End
Begin VB.PictureBox p25
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 7080
Picture = "f2.frx":29ABD
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 6
Top = 6840
Visible = 0 'False
Width = 435
End
Begin VB.PictureBox p26
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 435
Left = 7800
Picture = "f2.frx":2C068
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 5
Top = 6840
Visible = 0 'False
Width = 435
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Enabled = 0 'False
Height = 975
Left = 720
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 4
Text = "f2.frx":2E617
Top = 480
Width = 5775
End
Begin VB.CommandButton c1
Caption = "返 回"
BeginProperty Font
Name = "方正舒体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5640
TabIndex = 2
Top = 4440
Width = 1215
End
Begin VB.TextBox t
Appearance = 0 'Flat
Enabled = 0 'False
Height = 855
Left = 720
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 3
Top = 3360
Width = 5775
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "游戏基本规则："
BeginProperty Font
Name = "方正舒体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 23
Top = 120
Width = 2175
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "游戏基本操作方法：（将鼠标放在下面键上显示该键功能）"
BeginProperty Font
Name = "方正舒体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 22
Top = 1800
Width = 6630
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "WZ Software Studio"
BeginProperty Font
Name = "方正舒体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 960
TabIndex = 1
Top = 4680
Width = 2175
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "WZ软件工作室"
BeginProperty Font
Name = "方正舒体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 960
TabIndex = 0
Top = 4440
Width = 1455
End
Begin VB.Image Image1
Height = 450
Left = 360
Picture = "f2.frx":2E707
Stretch = -1 'True
Top = 4440
Width = 480
End
End
Attribute VB_Name = "f2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub c1_Click()
f2.Hide
f1.Show
'Unload f2
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
p1.Picture = p11.Picture
p2.Picture = p12.Picture
p3.Picture = p13.Picture
p4.Picture = p14.Picture
p6.Picture = p16.Picture
t1.Text = "将鼠标放在下面键上显示该键功能"
End Sub
Private Sub p1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
p1.Picture = p21.Picture
t1.Text = "每按动一次，所落下方块顺时针旋转90度"
End Sub
Private Sub p2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
p2.Picture = p22.Picture
t1.Text = "方块迅速下降"
End Sub
Private Sub p3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
p3.Picture = p23.Picture
t1.Text = "控制方块向左移动一个单元格"
End Sub
Private Sub p4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
p4.Picture = p24.Picture
t1.Text = "控制方块向右移动一个单元格"
End Sub
Private Sub p6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
p6.Picture = p26.Picture
t1.Text = "暂停或退出当前游戏"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -