当前位置: 网学 > 编程文档 > VB > 正文

VB扫雷源代码

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式
bsp;            ''打开下面的点
              If mY + 1 <= NowHeight Then
                 If What(mX, mY + 1) = 0 Then
                    What(mX, mY + 1) = 11
                    Picture1.PaintPicture image1(0).Picture, mX - 1, mY
                    OpenFlag = OpenFlag + 1
                 ElseIf What(mX, mY + 1) >= 1 And What(mX, mY + 1) <= 9 Then
                    Picture1.PaintPicture image1(What(mX, mY + 1)).Picture, mX
- 1, mY
                    What(mX, mY + 1) = -What(mX, mY + 1)
                    OpenFlag = OpenFlag + 1
                 End If
              End If
              ''最后打开左下的点
              If mY + 1 <= NowHeight And mX - 1 >= 1 Then
                    If What(mX - 1, mY + 1) = 0 Then
                       What(mX - 1, mY + 1) = 11
                       Picture1.PaintPicture image1(0).Picture, mX - 2, mY
                       OpenFlag = OpenFlag + 1
                    ElseIf What(mX - 1, mY + 1) >= 1 And What(mX - 1, mY + 1)
<= 9 Then
                       Picture1.PaintPicture image1(What(mX - 1, mY +
1)).Picture, mX - 2, mY
                       What(mX - 1, mY + 1) = -Wha

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号