打印本文 打印本文 关闭窗口 关闭窗口
俄罗斯方块的VB实现，部分代码！
作者：武汉SEO闵涛  文章来源：敏韬网  点击数10371  更新时间：2009/4/23 15:43:16  文章录入：mintao  责任编辑：mintao
   If by = 15 Then
            Call clear(block_l, by)
                bx = 3
                by = 0
                Form_main.Timer_speed.Enabled = False
                Call next_block
            ElseIf Form_main.Image_block(by * 10 + bx + 12).Visible = True Or Form_main.Image_block(by * 10 + bx + 20).Visible = True Or Form_main.Image_block(by * 10 + bx + 21).Visible = True Then
                Call clear(block_l, by)
                bx = 3
                by = 0
                Form_main.Timer_speed.Enabled = False
                Call next_block
            Else
            End If
        Case 4 ''''土字型
        If by = 15 Then
                Call clear(block_l, by)
                bx = 3
                by = 0
                Form_main.Timer_speed.Enabled = False
                Call next_block
            ElseIf Form_main.Image_block(by * 10 + bx + 21).Visible = True Or Form_main.Image_block(by * 10 + bx + 20).Visible = True Or Form_main.Image_block(by * 10 + bx + 22).Visible = True Then
                Call clear(block_l, by)
                bx = 3
                by = 0
                Form_main.Timer_speed.Enabled = False
                Call next_block
            Else
            End If
        Case 5 ''''L字型
        If by = 15 Then
                Call clear(block_l, by)
                bx = 3
                by = 0
                Form_main.Timer_speed.Enabled = False
                Call next_block
            ElseIf Form_main.Image_block(by * 10 + bx + 21).Visible = True Or Form_main.Image_block(by * 10 + bx + 20).Visible = True Or Form_main.Image_block(by * 10 + bx + 22).Visible = True Then
                Call clear(block_l, by)
                bx = 3
                by = 0
                Form_main.Timer_speed.Enabled = False
                Call next_block
            Else
            End If
        Case 6 ''''反L字型
        If by = 15 Then
                Call clear(block_l, by)
                bx = 3
                by = 0
                Form_main.Timer_speed.Enabled = False
                Call next_block
            ElseIf Form_main.Image_block(by * 10 + bx + 21).Visible = True Or Form_main.Image_block(by * 10 + bx + 20).Visible = True Or Form_main.Image_block(by * 10 + bx + 22).Visible = True Then
                Call clear(block_l, by)
                bx = 3
                by = 0
                Form_main.Timer_speed.Enabled = False
                Call next_block
            Else
            End If
        Case 7 ''''一字型
        If by = 16 Then
                Call clear(block_l, by)
                bx = 3
                by = 0
                Form_main.Timer_speed.Enabled = False
                Call next_block
            ElseIf Form_main.Image_block(by * 10 + bx + 10).Visible = True Or Form_main.Image_block(by * 10 + bx + 11).Visible = True Or Form_main.Image_block(by * 10 + bx + 12).Visible = True Or Form_main.Image_block(by * 10 + bx + 13).Visible = True Then
                Call clear(block_l, by)
                bx = 3
                by = 0
                Form_main.Timer_speed.Enabled = False
                Call next_block
            Else
            End If
        Case 8
            If by = 14 Then
                Call clear(block_l, by)
                bx = 3
                by = 0
                Form_main.Timer_speed.Enabled = False
                Call next_block
            ElseIf Form_main.Image_block(by * 10 + bx + 30).Visible = True Or Form_main.Image_block(by * 10 + bx + 21).Visible = True Then
                Call clear(block_l, by)
                bx = 3
                by = 0
                Form_main.Timer_speed.Enabled = False
                Call next_block
            Else
            End If
        Case 9
            If by = 14 Then
     

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ...  下一页 >> 

打印本文 打印本文 关闭窗口 关闭窗口