block_kind)
End Sub
Sub down_block(block_k As Integer) ''''方块下落，慢
Call fall_buttom(block_k)
Select Case block_k
Case 1
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 1).Visible = False
by = by + 1
Call show1(bx, by)
Case 2
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 12).Visible = False
by = by + 1
Call show2(bx, by)
Case 3
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 2).Visible = False
Form_main.Image_block(by * 10 + bx + 10).Visible = False
by = by + 1
Call show3(bx, by)
Case 4
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 10).Visible = False
Form_main.Image_block(by * 10 + bx + 12).Visible = False
by = by + 1
Call show4(bx, by)
Case 5
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
Form_main.Image_block(by * 10 + bx + 12).Visible = False
by = by + 1
Call show5(bx, by)
Case 6
Form_main.Image_block(by * 10 + bx + 2).Visible = False
Form_main.Image_block(by * 10 + bx + 10).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
by = by + 1
Call show6(bx, by)
Case 7
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 2).Visible = False
Form_main.Image_block(by * 10 + bx + 3).Visible = False
by = by + 1
Call show7(bx, by)
Case 8
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 10).Visible = False
by = by + 1
Call show8(bx, by)
Case 9
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
by = by + 1
Call show9(bx, by)
Case 10
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 10).Visible = False
by = by + 1
Call show10(bx, by)
Case 11
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
by = by + 1
Call show11(bx, by)
Case 12
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 2).Visible = False
by = by + 1
Call show12(bx, by)
Case 13
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 1).Visible = False
by = by + 1
Call show13(bx, by)
Case 14
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 2).Visible = False
by = by + 1
Call show14(bx, by)
Case 15
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
by = by + 1
Call show15(bx, by)
Case 16
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 1).Visible = False
by = by + 1
Call show16(bx, by)
Case 17
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 2).Visible = False
by = by + 1
Call show17(bx, by)
Case 18
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 21).Visible = False
by = by + 1
Call show18(bx, by)
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
