**

**

扫雷是一个非常经典的windows游戏，相信每个人都玩过。我做的这个扫雷基本上继承了windows中扫雷的玩法。通过菜单栏中的新游戏，选择一个游戏难度，即可进入扫雷界面。单击任意一个按钮，就开始了游戏。

具体的规则和逻辑是：

1，鼠标左击则弹开一个雷区，如果是炸弹，则游戏结束，如果不是炸弹且其周围有炸弹，那么将会出现一个数字，指示玩家周围有几个炸弹。如果不是炸弹且周围也没有炸弹，那么则自动弹开周围所有的雷区，并按照上述规则做递归执行。这里用到了递归思想。

2，对一个数字区双击鼠标左击或者同时按下左键和右键时，可以自动为用户检查周围雷区，如果满足条件，则会自动弹开所有周围雷区。其中同时按下左键和右键这个功能，在VB中是没有此类事件的，其难点在于左键和右键的单击事件在vb中是单独的事件过程，而玩家在“同时”按下左键和右键时，其实并不是真正的同时，而是有一定的时间间隔的。这里我用了一个方法完美的完成了这个功能。大概逻辑就是，当用户按下一个左键或者右键时，那么记录此时的时间1，然后在按下另外一个右键或者左键时，记录时间2，如果时间1和时间2的间隔小于一个设定值时，那么认为玩家同时按下了左键和右键，具体代码见下方。

3，鼠标右键可以标记某个雷区，在三种状态中来回切换（不标记，标记，问号）

4，游戏中的排行榜功能，用到了文件操作，这里使用的是txt文本来记录玩家的记录。仅记录打破记录的时间和玩家姓名。

5，扫雷结束有三种方式：玩家主动退出、玩家扫雷失败、玩家扫雷成功。扫雷成功的判断条件是：当用户标记（即红旗）的数量与游戏中隐藏的炸弹数量一致时，判断其所有标记是否正确，如果正确则提示扫雷成功。

6，游戏难度分为4个等级，当时，我这里采用的是function函数，可以自定义任意难度，而不需要修改代码，只需要输入不同的参数即可，非常的方便。

7，第一个必定不是雷，新的扫雷游戏为了提升玩家体验，已经自动适配，让玩家点的第一个格子必定不是炸弹，且一定是一个空格子，因为空格子可以自动弹开周围的雷区。

下面看一下这个游戏的界面：

1，主界面

2，扫雷界面（中等难度）

3，扫雷界面（骨灰级难度）

4，扫雷失败时

5，扫雷成功并打破记录时

6，排行榜界面

下面看一下整个工程结构：

文件目录比较简单，需要注意的是，要在工程所在目录下建立一个image文件夹，用于存放用到的图片。并在工程所在目录同级下建立一个rank.txt文件，用来记录玩家排行榜。当然rank.txt文件不建立也没关系，因为代码中可以自动创建。

Image文件夹中需要准备以下这些图片和图标。这些都可以在网上找到。图标和图片不一定要和我的一样，但是命名必须一样，格式也要一样。图片大小也要差不多大小的。

工程包含两个窗体，如下所示：

接着我们分别来看一下两个窗体中的控件布置：

窗体1（form1）包含了菜单栏、一个frame2（其中包含两个标签和2个文本框），一个frmae1（其中包含一个按钮和一个标签），一个Image1图像，一个timer1

菜单栏设计如下：

Frame1框架中包含： 一个按钮和一个标签。Label3(0)和Command1(0)两个控件数组。控件数组是将其index属性值设置为非空，这里是设置的0，这样可以利用控件数组方便的控制控件的数量和大小位置。

Frame2框架中包含： 两个标签和2个文本框，名称分别是：Label1和Label2，Text1和Text2，分别用于显示游戏进行的时间和排雷的数量。

窗体2中，包含了一个frame1控件，和若干标签，标签名称见下图所示。

下面来看完整的代码：

窗体Form1的代码如下：

'窗体1加载

'卸载窗体按钮

'开始初级难度游戏

'开始中级难度游戏

'开始高级难度游戏

'开始骨灰级难度游戏

'创建窗体及按钮（创建雷区）