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


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

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

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

l show14(bx, by)
        Case 15
            Call show15(bx, by)
        Case 16
            Call show16(bx, by)
        Case 17
            Call show17(bx, by)
        Case 18
            Call show18(bx, by)
        Case 19
            Call show19(bx, by)
    End Select
End Sub
Sub move_left(move_left_kind)
    Select Case move_left_kind
        Case 1 ''''ok
            If Form_main.Image_block(by * 10 + bx - 1).Visible = False And Form_main.Image_block(by * 10 + bx + 9).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
                    bx = bx - 1
                    Call show1(bx, by)
                End If
            End If
        Case 2 ''''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 + 1).Visible = False
                    Form_main.Image_block(by * 10 + bx + 12).Visible = False
                    bx = bx - 1
                    Call show2(bx, by)
                End If
            End If
        Case 3 ''''ok
            If Form_main.Image_block(by * 10 + bx).Visible = False And Form_main.Image_block(by * 10 + bx + 9).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 show3(bx, by)
                End If
            End If
        Case 4 ''''ok
            If Form_main.Image_block(by * 10 + bx).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False Then
                If bx >= 1 Then
                    Form_main.Image_block(by * 10 + bx + 1).Visible = False
                    Form_main.Image_block(by * 10 + bx + 12).Visible = False
                    bx = bx - 1
                    Call show4(bx, by)
                End If
            End If
        Case 5 ''''ok
            If Form_main.Image_block(by * 10 + bx - 1).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False Then
                If bx >= 1 Then
                    Form_main.Image_block(by * 10 + bx).Visible = False
                    Form_main.Image_block(by * 10 + bx + 12).Visible = False
                    bx = bx - 1
                    Call show5(bx, by)
                End If
            End If
        Case 6
            If Form_main.Image_block(by * 10 + bx + 1).Visible = False And Form_main.Image_block(by * 10 + bx + 9).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 show6(bx, by)
                End If
            End If
        Case 7 ''''ok
            If Form_main.Image_block(by * 10 + bx - 1).Visible = False Then
                If bx >= 1 Then
                    Form_main.Image_block(by * 10 + bx + 3).Visible = False
                    bx = bx - 1
                    Call show7(bx, by)
                End If
            End If
        Case 8 ''''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 + 11).Visible = False
                    Form_main.Image_block(by * 10 + bx + 20).Visible = False
                    bx = bx - 1
                    Call show8(bx, by)

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

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： [转帖]VB编程的七个优良习惯

下一篇教程：在VB 6.0中数据窗体向导问题?

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……