用VB编写拼图游戏

云飞 
2001年 5期

　　相信许多朋友都玩过拼图游戏，在VB6.0中有一个PictureClip控件，它可以把一张图片划分为若干个单元，用它来设计拼图游戏，非常方便。你要是有兴趣，就跟我来吧！
　　　　1.首先要准备一张大小适中的图片。
　　　　2.单击“工程”→“部件”，然后找到“Microsoft PictureClip Controls6.0”，选中后PictureClip控件就会出现在工具箱中。
　　　　3.将PictureClip控件拖到窗体上，在属性窗口中设置其属性：点击Picture属性，加入刚才准备的图片。将Cols、Rows属性均设为3，这样就将图片划分为3行3列9个单元了。这些单元用GraphicCell属性进行编号，编号从0开始，编号的顺序是从左到右，从上到下。我们这样来访问这些单元，比如：在From_load过程中加入下面的语句：
　　　　Form1.Picture=PictureClip1.GraphicCell（0）　
　　　　一运行就会发现，窗体上显示的是PictureClip1中图片左上角的一块了。
　　　　4.在窗体上摆上9个Image控件，为了减化程序代码，我们使用一个Image控件数组。那么如何建立控件数组呢？先在窗体上放置一个控件Image1，然后点击“复制”按钮，再点击“粘贴”按钮，将询问是否要建立一个控件数组，单击“是”即可。连续单击“粘贴”按钮，增加数组成员，这样窗体上就有了Image1（0）、Image1（1）、……Image1（8）等9个Image控件了。这些控件是用来显示图片的9个单元，即每一个图块用一控件显示。
　　　　这样就差不多了，再加上一个命令按钮Command1和两个标签控件Label1、label2，将它们的Caption属性分别设为“开始”、“步数”和“0”。界面的设计就算大功告成了。
　　　　程序代码如下：
　　　　Option Explicit
　　　　Dim i As Integer＇定义循环变量
　　　　Dim j As Integer
　　　　Dim step As Integer
　　　　Dim x（8） As Integer＇定义一个数组，用来存放随机编号
　　　　Private Sub Command1_Click（）　
　　　　init＇初始化游戏
　　　　Command1.Enabled = False＇使开始按钮失效
　　　　End Sub
　　　　Private Sub Form_Load（）　
　　　　Randomize
　　　　End Sub
　　　　Sub init（）＇初始化游戏子程序
　　　　For i = 0 To 7＇随机产生不重复的8个编号（从0到7）
　　　　a0: x（i）=Int（Rnd*8）
　　　　For j = 0 To i - 1
　　　　If x（i）=x（j） Then GoTo a0
　　　　Next
　　　　Next
　　　　For i = 0 To 7
　　　　Image1（i）.Enabled = True＇使Image1响应鼠标事件
　　　　Image1（x（i））.Picture = PictureClip1.GraphicCell（i）＇让图片的8个单元分别赋予 8个Image控件
　　　　Next
　　　　Image1（8）.Picture = LoadPicture（“”）＇空位用于移动图片
　　　　End Sub
　　　　Private Sub Image1_Click（Index As Integer）＇注意索引值的运用
　　　　Select Case Index Mod 3＇把9个Image控件分成三列
　　　　Case 0＇当鼠标点击第1列时
　　　　If Image1（Index + 1）.Picture = LoadPicture（“”） Then＇判断右边是否为空
　　　　Image1（Index + 1）.Picture = Image1（Index）.Picture＇交换图片
　　　　Image1（Index）.Picture=LoadPicture（“”）win＇测试是否拼图成功
　　　　End If
　　　　Case 1＇当鼠标点击第2列时
　　　　If Image1（Index - 1）.Picture = LoadPicture（“”）Then＇判断左边是否为空
　　　　Image1（Index - 1）.Picture = Image1（Index）.Picture
　　　　Image1（Index）.Picture=LoadPicture（“”）　
　　　　win
　　　　End If
　　　　If Image1（Index + 1）.Picture = LoadPicture（“”）Then＇判断右边是否为空
　　　　Image1（Index + 1）.Picture = Image1（Index）.Picture
　　　　Image1（Index）.Picture=LoadPicture（“”）　
　　　　win
　　　　End If
　　　　Case 2＇当鼠标点击第3列时
　　　　If Image1（Index - 1）.Picture = LoadPicture（“”）Then＇判断左边是否为空
　　　　Image1（Index - 1）.Picture = Image1（Index）.Picture
　　　　Image1（Index）.Picture=LoadPicture（“”）　
　　　　win
　　　　End If
　　　　End Select
　　　　Select Case Index\ 3＇把9个Image控件分成三行
　　　　Case 0＇当鼠标点击第1行时
　　　　If Image1（Index + 3）.Picture = LoadPicture（“”）Then＇判断下边是否为空
　　　　Image1（Index + 3）.Picture = Image1（Index）.Picture
　　　　Image1（Index）.Picture=LoadPicture（“”）　
　　　　win
　　　　End If
　　　　Case 1＇当鼠标点击第2行时
　　　　If Image1（Index - 3）.Picture = LoadPicture（“”）Then＇判断上边是否为空
　　　　Image1（Index - 3）.Picture = Image1（Index）.Picture
　　　　Image1（Index）.Picture=LoadPicture（“”）　
　　　　win
　　　　End If
　　　　If Image1（Index + 3）.Picture = LoadPicture（“”）Then＇判断下边是否为空
　　　　Image1（Index + 3）.Picture = Image1（Index）.Picture
　　　　Image1（Index）.Picture=LoadPicture（“”）　
　　　　win
　　　　End If
　　　　Case 2＇当鼠标点击第3行时
　　　　If Image1（Index - 3）.Picture = LoadPicture（“”）Then＇判断上边是否为空
　　　　Image1（Index - 3）.Picture = Image1（Index）.Picture
　　　　Image1（Index）.Picture=LoadPicture（“”）　
　　　　win
　　　　End If
　　　　End Select
　　　　End Sub
　　　　Sub win（）＇测试是否拼图成功的子程序
　　　　Dim num As Integer
　　　　step=step + 1＇步数加1
　　　　Label2.Caption= step
　　　　For i = 0 To 8＇判断图块是否全部就位
　　　　If Image1（i）.Picture= PictureClip1.GraphicCell（i）　Then num = num + 1
　　　　Next
　　　　If num ?=8 Then
　　　　MsgBox “你真棒！”
　　　　For i=0 To 8
　　　　Image1 （i）.Enabled=False＇使之不响应鼠标事件
　　　　Next
　　　　Command1.Enabled=True＇恢复命令按钮
　　　　End If
　　　　End Sub
　　　　这个程序可能有些难度，不过玩玩自己编的游戏，一定会让PFans兴奋不已。我想编程的乐趣大概就在于此吧，嘿嘿。
　　
　　 
 