俄罗斯方块的VB实现，部分代码！_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

俄罗斯方块的VB实现，部分代码！

作者：闵涛文章来源：闵涛的学习笔记点击数：10370 更新时间：2009/4/23 15:43:16

nbsp;                  bx = bx - 2
                    Call show7(bx, by)
                    next_block_kind = 7
                End If
            ElseIf by * 10 + bx + 30 < 169 And bx = 9 Then
                If Form_main.Image_block(by * 10 + bx + 7).Visible = False And Form_main.Image_block(by * 10 + bx + 8).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False Then
                    Form_main.Image_block(by * 10 + bx).Visible = False
                    Form_main.Image_block(by * 10 + bx + 20).Visible = False
                    Form_main.Image_block(by * 10 + bx + 30).Visible = False
                    by = by + 1
                    bx = bx - 3
                    Call show7(bx, by)
                    next_block_kind = 7
                End If
            End If
    End Select
End Sub

Option Explicit
Dim block_i, block_j As Integer
Dim next_i, next_j As Integer

Sub face()

    Form_main.Height = 8420 ''''设置窗体的大小
    Form_main.Width = 8000

    Form_main.Picture_play_field.Left = 0 ''''设置容器位置
    Form_main.Picture_play_field.Top = -480

    Form_main.Picture_play_field.Height = 8200 ''''设置容器大小
    Form_main.Picture_play_field.Width = 4850

End Sub
Sub image_position()
    For block_i = 0 To 16
        For block_j = 0 To 9
            Form_main.Image_block(block_i * 10 + block_j).Left = block_j * 480
            Form_main.Image_block(block_i * 10 + block_j).Top = block_i * 480
            Form_main.Image_block(block_i * 10 + block_j).Visible = False


        Next
    Next

    For next_i = 0 To 3
        For next_j = 0 To 3
            Form_main.Image_next(next_i * 4 + next_j).Left = next_j * 480
            Form_main.Image_next(next_i * 4 + next_j).Top = next_i * 480
            Form_main.Image_next(next_i * 4 + next_j).Visible = False
        Next
    Next