📄
字号:
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "方块"
ClientHeight = 7845
ClientLeft = 150
ClientTop = 720
ClientWidth = 6480
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Icon = "方块.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MousePointer = 99 'Custom
Picture = "方块.frx":030A
ScaleHeight = 7845
ScaleWidth = 6480
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 800
Left = 1665
Top = 4635
End
Begin VB.Image Image9
Height = 480
Left = 5670
MouseIcon = "方块.frx":187F5
MousePointer = 99 'Custom
Picture = "方块.frx":18AFF
ToolTipText = "退出CTRL+X"
Top = 2475
Width = 480
End
Begin VB.Image Image8
Enabled = 0 'False
Height = 480
Left = 4680
MouseIcon = "方块.frx":18E09
MousePointer = 99 'Custom
Picture = "方块.frx":1924B
ToolTipText = "续继CTRL+J"
Top = 2475
Visible = 0 'False
Width = 480
End
Begin VB.Image Image7
Enabled = 0 'False
Height = 480
Left = 5175
MouseIcon = "方块.frx":19555
MousePointer = 99 'Custom
Picture = "方块.frx":196A7
ToolTipText = "结束CTRL+E 或 ESC"
Top = 2475
Visible = 0 'False
Width = 480
End
Begin VB.Image Image6
Enabled = 0 'False
Height = 480
Left = 5625
MouseIcon = "方块.frx":199B1
MousePointer = 99 'Custom
Picture = "方块.frx":19CBB
ToolTipText = "速度级别减慢CTRL+R"
Top = 3015
Visible = 0 'False
Width = 480
End
Begin VB.Image Image5
Height = 480
Left = 5130
MouseIcon = "方块.frx":19FC5
MousePointer = 99 'Custom
Picture = "方块.frx":1A2CF
ToolTipText = "速度级别加快CTRL+T"
Top = 3015
Width = 480
End
Begin VB.Image Image4
Enabled = 0 'False
Height = 480
Left = 4680
MouseIcon = "方块.frx":1A5D9
MousePointer = 99 'Custom
Picture = "方块.frx":1A8E3
ToolTipText = "停止CTRL+S"
Top = 2475
Visible = 0 'False
Width = 480
End
Begin VB.Image Image3
Height = 480
Left = 4185
MousePointer = 13 'Arrow and Hourglass
Picture = "方块.frx":1ABED
ToolTipText = "开始CTRL+O 或 ENTER"
Top = 2475
Width = 480
End
Begin VB.Image Image1
Height = 345
Index = 7
Left = 2745
Picture = "方块.frx":1AEF7
Top = 4140
Visible = 0 'False
Width = 345
End
Begin VB.Image Image1
Height = 345
Index = 6
Left = 2205
Picture = "方块.frx":1B5B1
Top = 4140
Visible = 0 'False
Width = 345
End
Begin VB.Image Image1
Height = 345
Index = 5
Left = 1575
Picture = "方块.frx":1BC6B
Top = 4140
Visible = 0 'False
Width = 345
End
Begin VB.Image Image1
Height = 345
Index = 4
Left = 990
Picture = "方块.frx":1C325
Top = 4140
Visible = 0 'False
Width = 345
End
Begin VB.Image Image1
Height = 345
Index = 3
Left = 2700
Picture = "方块.frx":1C9DF
Top = 3645
Visible = 0 'False
Width = 345
End
Begin VB.Image Image1
Height = 345
Index = 2
Left = 2205
Picture = "方块.frx":1D099
Top = 3645
Visible = 0 'False
Width = 345
End
Begin VB.Image Image1
Height = 345
Index = 1
Left = 1620
Picture = "方块.frx":1D753
Top = 3645
Visible = 0 'False
Width = 345
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label8"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 435
Left = 4275
TabIndex = 7
Top = 7020
Width = 1200
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "所得分数"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 435
Left = 4275
TabIndex = 6
Top = 6390
Width = 1515
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label6"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 435
Left = 4275
TabIndex = 5
Top = 5805
Width = 1200
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "删除行数"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 435
Left = 4275
TabIndex = 4
Top = 5265
Width = 1515
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label4"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 435
Left = 4275
TabIndex = 3
Top = 4770
Width = 1200
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "出现块数"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 435
Left = 4275
TabIndex = 2
Top = 4275
Width = 1515
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label2"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 435
Left = 4275
TabIndex = 1
Top = 3690
Width = 1200
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "级别"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 435
Left = 4275
TabIndex = 0
Top = 3105
Width = 765
End
Begin VB.Image Image2
Height = 345
Left = 990
Picture = "方块.frx":1DE0D
Top = 4680
Visible = 0 'False
Width = 345
End
Begin VB.Image Image1
Height = 345
Index = 0
Left = 990
Picture = "方块.frx":1E4C7
Top = 3645
Visible = 0 'False
Width = 345
End
Begin VB.Menu Ffile
Caption = "文件(&f)"
Begin VB.Menu OPE
Caption = "开始（&O）"
Shortcut = ^O
End
Begin VB.Menu Gotog
Caption = "续继(&J)"
Enabled = 0 'False
Shortcut = ^J
End
Begin VB.Menu SHOP
Caption = "停止（&S）"
Enabled = 0 'False
Shortcut = ^S
End
Begin VB.Menu ENDG
Caption = "结束（&E）"
Enabled = 0 'False
Shortcut = ^E
End
Begin VB.Menu ass
Caption = "-"
End
Begin VB.Menu Exite
Caption = "退出(&X)"
Shortcut = ^X
End
End
Begin VB.Menu ExiTg
Caption = "设置（&E)"
Begin VB.Menu Fi
Caption = "速度级别（&F)"
Begin VB.Menu OnE
Caption = "1"
Checked = -1 'True
Index = 0
End
Begin VB.Menu OnE
Caption = "5"
Index = 1
End
Begin VB.Menu OnE
Caption = "10"
Index = 2
End
Begin VB.Menu OnE
Caption = "15"
Index = 3
End
Begin VB.Menu OnE
Caption = "20"
Index = 4
End
Begin VB.Menu OnE
Caption = "25"
Index = 5
End
Begin VB.Menu OnE
Caption = "30"
Index = 6
End
Begin VB.Menu asss
Caption = "-"
End
Begin VB.Menu 加
Caption = "+(&J)"
Shortcut = ^T
End
Begin VB.Menu 减
Caption = "-(&k)"
Enabled = 0 'False
Shortcut = ^R
Visible = 0 'False
End
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim X(5), Y(5), YesNot, IfEnd, MOany, sTo, jB, ToTo
Dim E(-1 To 11, -1 To 21), A, B, Nuex, C, Pog
Private Sub ENDG_Click()
SHOP.Enabled = False
Gotog.Enabled = False
Timer1.Enabled = False
Image7.Visible = False
Image7.Enabled = False
Image4.Enabled = False
Image4.Visible = False
Image8.Visible = False
Image8.Enabled = False
Call LI
Call LiN
Nuex = 0
YesNot = 0
sTo = 0
MOany = 0
ToTo = 0
PrI
For i = 1 To 10
For u = 1 To 20
E(i, u) = 0
Next
Next
For i = 1 To 4
X(i) = 0
Y(i) = 0
Next
Pog = 0
ENDG.Enabled = False
End Sub
Private Sub Exite_Click()
Unload Me
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then OPE_Click
If KeyCode = 27 Then ENDG_Click
Dim eE
If Pog = 1 Then
For i = 1 To 4
If Y(i) > 0 Then
Form1.PaintPicture Image2.Picture, (X(i) - 1) * Image2.Width + 400, (Y(i) - 1) * Image2.Height + 400
End If
Next i
'***********************************************************
eE = 0
If KeyCode = vbKeyLeft Then
For i = 1 To 4
X(i) = X(i) - 1
If X(i) < 1 Or E(X(i), Y(i)) <> 0 Then eE = 1
Next '如果方块左边有方块或到窗口的左边就能向左
If eE = 1 Then
For i = 1 To 4
X(i) = X(i) + 1
Next
End If
End If
If KeyCode = vbKeyRight Then
For i = 1 To 4
X(i) = X(i) + 1
If X(i) > 10 Or E(X(i), Y(i)) <> 0 Then eE = 1
Next '如果方块右边有方块或..不能向右移动
If eE = 1 Then
For i = 1 To 4
X(i) = X(i) - 1
Next
End If
End If
If KeyCode = vbKeyDown Then
If Nuex = 1 Then '如果方块是停止的,
Nuex = 2 ' 方块立即退出当前方块
Timer1_Timer
Exit Sub
End If
For i = 1 To 4
If Y(i) > 19 Or E(X(i), Y(i) + 1) <> 0 Then
eE = 1 '如果下面有方块或...设定为停止的方块
Nuex = 1
End If
Next '如果方块不是停止的方块就向下运动
If eE = 0 Then
For i = 1 To 4
Y(i) = Y(i) + 1
Next
End If
End If
'********************************************************
If KeyCode = vbKeyUp Then
Selifh2 (B)
End If
For i = 1 To 4
If Y(i) > 0 Then
Form1.PaintPicture Image1(B).Picture, (X(i) - 1) * Image2.Width + 400, (Y(i) - 1) * Image2.Height + 400
End If
Next
End If
End Sub
Private Sub Form_Load()
jB = 1
Call PrI
Randomize
Show
Form1.Top = 0
Call LiN
Call LI
Pog = 0
End Sub
Sub Sel1(D)
Select Case D
Case 1
X(1) = X(2) - 1
Y(1) = Y(2)
X(3) = X(2) + 1
X(4) = X(2) + 1
Y(3) = Y(2)
Y(4) = Y(2) - 1
Case 2
X(1) = X(2) - 1
X(3) = X(2) + 1
X(4) = X(2) + 2
For i = 1 To 4
Y(i) = Y(2)
Next
Case 3
X(1) = X(2) - 1
For i = 1 To 3
Y(i) = Y(2)
Next
X(3) = X(2) + 1
X(4) = X(2)
Y(4) = Y(2) - 1
Case 4
X(1) = X(2)
X(3) = X(2) + 1
X(4) = X(2) + 1
Y(1) = Y(2) - 1
Y(3) = Y(2)
Y(4) = Y(2) + 1
Case 5
X(1) = X(2)
X(3) = X(2) + 1
Y(1) = Y(2) + 1
Y(3) = Y(2)
Y(4) = Y(2) - 1
X(4) = X(2) + 1
Case 6
X(1) = X(2)
X(3) = X(2) + 1
X(4) = X(2) + 1
Y(1) = Y(2) - 1
Y(3) = Y(2)
Y(4) = Y(2) - 1
Case 7
X(1) = X(2) - 1
X(3) = X(2) + 1
X(4) = X(2) - 1
Y(1) = Y(2)
Y(3) = Y(2)
Y(4) = Y(2) - 1
End Select
For i = 1 To 4
If Y(i) > 0 Then
Form1.PaintPicture Image1(D).Picture, (X(i) - 1) * Image2.Width + 400, (Y(i) - 1) * Image2.Height + 400
End If
Next
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -