bx = bx + 1
Call show4(bx, by)
End If
End If
End If
Case 5
If (by * 10 + bx + 22) < 169 Then
If Form_main.Image_block(by * 10 + bx + 1).Visible = False And Form_main.Image_block(by * 10 + bx + 13).Visible = False Then
If bx < 7 Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 10).Visible = False
bx = bx + 1
Call show5(bx, by)
End If
End If
End If
Case 6
If (by * 10 + bx + 22) < 169 Then
If Form_main.Image_block(by * 10 + bx + 3).Visible = False And Form_main.Image_block(by * 10 + bx + 13).Visible = False Then
If bx < 7 Then
Form_main.Image_block(by * 10 + bx + 2).Visible = False
Form_main.Image_block(by * 10 + bx + 10).Visible = False
bx = bx + 1
Call show6(bx, by)
End If
End If
End If
Case 7
If (by * 10 + bx + 22) < 169 Then
If Form_main.Image_block(by * 10 + bx + 4).Visible = False Then
If bx < 6 Then
Form_main.Image_block(by * 10 + bx).Visible = False
bx = bx + 1
Call show7(bx, by)
End If
End If
End If
Case 8
If Form_main.Image_block(by * 10 + bx + 2).Visible = False And Form_main.Image_block(by * 10 + bx + 12).Visible = False And Form_main.Image_block(by * 10 + bx + 21).Visible = False Then
If bx < 8 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 show8(bx, by)
End If
End If
Case 9
If (by * 10 + bx + 22) < 169 Then
If Form_main.Image_block(by * 10 + bx + 1).Visible = False And Form_main.Image_block(by * 10 + bx + 12).Visible = False And Form_main.Image_block(by * 10 + bx + 22).Visible = False Then
If bx < 8 Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 10).Visible = False
Form_main.Image_block(by * 10 + bx + 21).Visible = False
bx = bx + 1
Call show9(bx, by)
End If
End If
End If
Case 10
If (by * 10 + bx + 22) < 169 Then
If Form_main.Image_block(by * 10 + bx + 2).Visible = False And Form_main.Image_block(by * 10 + bx + 12).Visible = False And Form_main.Image_block(by * 10 + bx + 22).Visible = False Then
If bx < 8 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 + 21).Visible = False
bx = bx + 1
Call show10(bx, by)
End If
End If
End If
Case 11
If Form_main.Image_block(by * 10 + bx + 1).Visible = False And Form_main.Image_block(by * 1 << 上一页 [11] [12] [13] [14] [15] [16] [17] [18] 下一页 |
