ＶＢ环境下拼图游戏的开发.docVIP

ＶＢ环境下拼图游戏的开发 　　摘要：在VB环境下利用第三方控件TilePuzzle开发拼图游戏，以及给游戏开发出进一步完善的效果，并给出了源代码。通过小游戏的开发，提高学习者的兴趣。 　　关键词：VB；拼图游戏；TilePuzzle 　　中图分类号：TP311文献标识码：A 文章编号：1009-3044(2008)30-0609-02 　　 　　The Exploitation of Jigsaw Puzzle Based on Visual Basic 　　HUANG Min 　　(Xuzhou Normal Higher School, Xuzhou 221116, China) 　　Abstract: makeing use of the third party control tilepuzzle to explore jigsaw puzzle,and to improve the effect of the game.it will offer the code of the game.by the exploitation of this small game,it will boost the interest of learner. 　　Key words: VB; Jigsaw Puzzle; Tilepuzzle 　　 　　1 引言 　　 　　大家都玩过拼图游戏，但有没有想过自己也开发一个。在Bisual Basic的环境下，我们可以开发出功能非常完善的拼图游戏。 　　VB的基本概念的学习很简单，但实际编程时却常常感到无从着手，尤其是一些综合的实例更感觉遥不可及。对于任何学习者，想一步完成所有的效果，那是不可能的。将实例分解，先解决其中主要的一个或两个问题，其他的再慢慢解决，即使解决不了，也只是程序的效果不算完善，并不算是没有解决。 　　 　　2 TilePuzzle控件 　　 　　如何把图片分割成小图片，并且能设置图片的移动呢？在拼图游戏中，要用到一个第三方控件TilePuzzle 控件，是另外软件供应商提供的控件。要先装入VB的控件工具箱。它有一些常用的属性和事件： 　　Cols属性：该属性是指把拼图图像分割的列数。 　　Rows属性：该属性是指把拼图图像分割的行数。 　　Picture属性：该属性是指设置拼图控件中的图形。 　　Moved方法：该方法在图像移动时发生。 　　Solved方法：该方法在拼图完成时发生。 　　利用这些属性和事件，以及VB的其他控件。我们就可以去开发拼图游戏了。 　　3 拼图游戏的初步效果 　　 　　先来做一个有初步拼图效果的程序。在这个程序里用两个按钮，第一个按钮是“开局”，点击按钮后，需要向 　　TilePuzzle中加载图片，还需要将图片分成2行2列打乱次序。 　　Private Sub Command1_Click() 　　TilePuzzle1.Cols = 2 　　TilePuzzle1.Rows = 2 　　TilePuzzle1.Randomize 　　End Sub 　　第二个按钮是“下一关”，当拼图游戏完成后点击按钮进入下一关，拼图的行和列都要增加： 　　Private Sub Command2_Click() 　　TilePuzzle1.Cols = TilePuzzle1.Cols + 1 　　TilePuzzle1.Rows = TilePuzzle1.Rows + 1 　　TilePuzzle1.Randomize 　　End Sub 　　在进行拼图游戏的时候，定义窗体变量m记录移动的次数。可以通过标签在窗体上显示出m的值。让玩家在游戏时看到自己的成绩。 　　Private Sub TilePuzzle1_Moved() 　　m = m + 1 　　Label1.Caption = m 　　End Sub 　　当本次拼图完成时，弹出消息框，“恭喜过关，下关更要努力”，同时进入下一关： 　　Private Sub TilePuzzle1_Solved() 　　MsgBox 恭喜过关，下关更要努力 　　TilePuzzle1.Cols = TilePuzzle1.Cols + 1 　　TilePuzzle1.Rows = TilePuzzle1.Rows + 1 　　TilePuzzle1.Randomize 　　m=0 　　Label1.Caption = m 　　End Sub 　　到此为止，这个游戏的雏形就算完成了。但是我们还需要对它做进一步的完善。 　　 　　4 拼图游戏的效果完善 　　 　　4.1 拼图图片的更改 　　先增加