打地鼠类小游戏VB代码解析.doc

打地鼠类小游戏VB代码解析 相信大家都知道打地鼠这个小游戏，在植物大战僵尸中也有类似于打地鼠这样的小游戏，叫打僵尸，那么，我们就一起编写一个这样的小游戏吧。 窗体的美术效果很重要，我在网上找到一个很好看的游戏窗体（Form1）背景图 1、我们说一下窗体Form1的属性设置，属性中的picture设为已经找好的背景图片，窗体Form1的大小应当和背景图一样大才好，其它的取默认值就可以了 2、现在我们开始在Form1窗体的相应位置放置花瓶图像，在窗体上放置图像框控件Image1，然后拷贝、粘贴变成一个控件组，包括十二个图像框控件Image1(0)-----------Image1(11) ， Image1(0)-------------------Image1(11)控件的picture的属性为： 放好之后如下图所示 3、在Form1窗体上添加三个按钮控件Command1 Commmand2 Command5，分别代表开始、停止和退出，原来也有的Command3 Command4控件的，后来觉得有点复杂，所以后来就删掉了，所以只有Command1 Command2 Command5这三个控件了 4、别外再添加三个Label标签控件，这三个标签控件在代码中不出现，只起到文字说明的作用，属性中的Caption分别设为 生命值： 时间： 分数： 5、在窗体上再添加三个Text控件，名称分别为Text1 ; Text2 ; Text3 ，分别与生命值、时间、分数相对应，在VB代码中分别用变量hp a f表示，即Text1.Text=hp Text2.Text=a Text3.Text=f 代表生命值的大小、时间的多少和分数和多少 6、另外再添加二个Image图像控件，名称分别为Image2和Image3，Image2和Image3的picture属性分别如下图，用photoshop图像制作软件把这两个图片制作成一样大小，在VB中，Image1(0)---------Image11 Image2 Image3要求一样大，即它们属性中的picture设为一样大小。 Image2 Image3控件属性中的picture如下图所示 我先讲一下这部分代码的原理：最简单的原理是：设一个变量x，这个变量x的值设为0，即x=0，然后我们又设为x=x+1，这个等式在VB中是成立的，x=0 x变量的最新值为0+1=1,然后如果它再继续变下去也可以，如果我们还有一个变量y，y的值设为5，然后还有一个变量temp ，temp=x x=y y=temp 注意x的值为1，temp=x，即temp=1, x=y x=5 y=temp y=1，结果大家都能发现原来x=1,y=5变成了x=5 y=1，这段程序也就是经常用到的变量x y互换代码，在Image控件是，也可以用到的是Image1=Image2 6、最后在窗体Form1上添加一个时钟控件 添加完控件后，窗体Form变为： 编写代码： ‘定义变量 Dim i As Integer ‘表示Image1图像组的12个图像 Dim hp As Integer ‘生命值 Dim f As Integer ‘分数 Dim a As Integer ‘时间 Dim c As Integer ‘和Timer1控件属性的Interval的值 Private Sub Command1_Click() f = 0 a = 10 hp = 5 c = 200 Call Image2_Click Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False Command1.Enabled = True For i = 0 To 11 i = i + 1 Image1(i) = Image3 Next i Command2.Enabled = False End Sub Private Sub Command5_Click() End End Sub Private Sub Form_Load() hp = 5 f = 0 a = 10 c = 0 Text1.Text = hp Text2.Text = a Text3.Text = f Timer1.Interval = c End Sub Private Sub Image1_Click(Index As Integer) For i = 0 To 11 If Image1(i) = Ima