; End If
End If
Case 9 ''''ok
If Form_main.Image_block(by * 10 + bx - 1).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False And Form_main.Image_block(by * 10 + bx + 20).Visible = False Then
If bx >= 1 Then
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 + 21).Visible = False
bx = bx - 1
Call show9(bx, by)
End If
End If
Case 10 ''''ok
If Form_main.Image_block(by * 10 + bx).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False And Form_main.Image_block(by * 10 + bx + 20).Visible = False Then
If bx >= 1 Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
Form_main.Image_block(by * 10 + bx + 21).Visible = False
bx = bx - 1
Call show10(bx, by)
End If
End If
Case 11 ''''ok
If Form_main.Image_block(by * 10 + bx - 1).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False And Form_main.Image_block(by * 10 + bx + 19).Visible = False Then
If bx >= 1 Then
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 + 20).Visible = False
bx = bx - 1
Call show11(bx, by)
End If
End If
Case 12 ''''ok
If Form_main.Image_block(by * 10 + bx - 1).Visible = False And Form_main.Image_block(by * 10 + bx + 10).Visible = False Then
If bx >= 1 Then
Form_main.Image_block(by * 10 + bx + 2).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
bx = bx - 1
Call show12(bx, by)
End If
End If
Case 13 ''''ok
If Form_main.Image_block(by * 10 + bx - 1).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False And Form_main.Image_block(by * 10 + bx + 19).Visible = False Then
If bx >= 1 Then
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 + 20).Visible = False
bx = bx - 1
Call show13(bx, by)
End If
End If
Case 14 ''''ok
If Form_main.Image_block(by * 10 + bx - 1).Visible = False And Form_main.Image_block(by * 10 + bx + 11).Visible = False Then
If bx >= 1 Then
Form_main.Image_block(by * 10 + bx + 2).Visible = False
Form_main.Image_block(by * 10 + bx + 12).Visible = False
bx = bx - 1
Call show14(bx, by)
End If
End If
Case 15 ''''ok
If Form_main.Image_block(by * 10 + bx).Visible = False And Form_main.Image_block(by * 10 + bx + 10).Visible = False And Form_main.Image_block(by * 10 + bx + 19).Visible = False Then
If bx >= 1 Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
Form_main.Image_block(by * 10 + bx + 21).Visible = False
bx = bx - 1
Call show15(bx, by)
End If
End If
Case 16 ''''ok
If Form_main.Image_block(by * 10 + bx - 1).Visible = False And Form_main.Image_block(by * 10 + bx + 10).Visible = False And Form_main.Image_block(by * 10 + bx + 20).Visible = False Then
If bx >= 1 Then
Form_main.Im上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
