; Case 19 Form_main.Image_block(by * 10 + bx).Visible = False by = by + 1 Call show19(bx, by) End Select End Sub Sub clear(b_kinds As Integer, now_y As Integer) ''''满行后清行 '''' Dim i As Integer ''''Dim q As Integer Select Case b_kinds Case 1, 2, 3, 4, 5, 6, 12, 14, 17 p = 1 Case 7 p = 0 Case 8, 9, 10, 11, 13, 16, 15, 18 p = 2 Case 19 p = 3 End Select For q = 0 To p If canClear(now_y + q) Then Call clearOneLine(now_y + q) End If Next End Sub Function canClear(l As Integer) As Boolean ''''Dim a As Integer For a = (l * 10 + 0) To (l * 10 + 9) If Form_main.Image_block(a).Visible = False Then canClear = False Exit Function End If Next canClear = True End Function Sub clearOneLine(lineNum As Integer) ''''Dim n As Integer ''''Dim m As Integer For n = lineNum To 1 Step -1 For m = 0 To 9 Form_main.Image_block(n * 10 + m).Visible = Form_main.Image_block((n - 1) * 10 + m).Visible Next Next End Sub
Sub is_full(block_end As Integer) ''''是否游戏结束 Select Case block_end Case 1 ''''田字型 If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 13).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Then Form_main.Timer_speed.Enabled = False Form_main.timer_now.Enabled = False MsgBox "游戏结束!^_^" Else Form_main.Timer_speed = True End If Case 2 ''''Z字型 If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Or Form_main.Image_block(by * 10 + 15).Visible = True Then Form_main.Timer_speed.Enabled = False Form_main.timer_now.Enabled = False MsgBox "游戏结束!^_^" Else Form_main.Timer_speed = True End If Case 3 ''''反Z字型 If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 13).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Then Form_main.Timer_speed.Enabled = False Form_main.timer_now.Enabled = False MsgBox "游戏结束!^_^" Else Form_main.Timer_speed = True End If Case 4 ''''土字型 If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 13).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Then Form_main.Timer_speed.Enabled = False Form_main.timer_now.Enabled = False MsgBox "游戏结束!^_^" Else Form_main.Timer_speed = True End If Case 5 ''''L字型 If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 13).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Then Form_main.Timer_speed.Enabled = False Form_main.timer_now.Enabled = False MsgBox "游戏结束!^_^" Else Form_main.Timer_speed = True End If Case 6 ''''反L字型 If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 13).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Then Form_main.Timer_speed.Enabled = False Form_main.timer_now.Enabled = False MsgBox "游戏结束!^_^" &n