移动拼图游戏vb代码（Mobile jigsaw puzzle VB code）

《移动拼图游戏vb代码（Mobile jigsaw puzzle VB code）》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、移动拼图游戏vb代码（MobilejigsawpuzzleVBcode）dimaasinteger,basinteger,casinteger,dasinteger,sasstring,jbasintegerprivatesubend_click()endendsubprivatesubform_load()dimiasinteger,basintegerhaveinteger.for(i=0to7)(i)loadpictureimage1.picture="c:).移动拼图thinkpaddesktop1&+1&-.jpg")(i).fontsizelabel1110nextira

2、ndomizeendsubprivatesubimage1_click(indexasinteger)ifindex=8.ifimage1(5).picture=falsethenimage2.picture=image1(8).pictureimage1(8).picture=image1(5).pictureimage1(5).picture=image2."e=label1.caption(8)label1(8).caption=label1(5).captionlabel1(5)=etext3.text=val(text3.text)+1timer2.enabled=trueels

3、eifimage1(7).picture=falsethenimage2.picture=image1(8).pictureimage1(8)=(7).picture.pictureimage1image1(7).picture=image2."e=label1.caption(8)label1(8)=(7).caption.captionlabel1label1(7).text3.text=val(text3.text)+1timer2.enabled=trueendifendifendififindex=6.(3)ifimage1.picture=falsethenimage2.pic

4、ture=image1(6).pictureimage1(6).picture=image1(3).picture(3)image1.picture=image2."e=label1.caption(6)label1(6).caption=label1(3).captionlabel1(3)=etext3.text=val(text3.text)+1timer2.enabled=trueelseifimage1(7).picture=falsethenimage2.picture=image1(6).pictureimage1(6)and(7).picture.picture=image1

5、image1(7).picture=image2."e=label1.caption(6)label1(6)and(7).caption.caption=label1label1(7).text3.text=val(text3.text)+1timer2.enabled=trueendifendifendififindex=0.(3)ifimage1.picture=falsethenimage2.picture=image1.picture(0)image1(0)=(3).pictureimage1.picture(3)image1.picture=image2."e=label1.ca

6、ption(0)label1(0)=(3).captionlabel1.captionlabel1(3)=etext3.Text=exp(text3.text)+1Timer2enabled=true.ElseIfimage1(1).Picture=falsethenImage2.Picture=image1(0).PictureImage1(0).Picture=image1(1).PictureImage1(1).Picture=image2.PictureE=label1(0).CaptionLabel1(0).Caption=label1(1).CaptionLabel1(1)=.

7、Text3.Text=exp(text3.text)+1Timer2enabled=true.EndifEndifEndifIfindex=2thenIfimage1(5).Picture=falsethenImage2.Picture=image1(2).PictureImage1(2).Picture=image1(5).PictureImage1(5).Picture=image2.PictureE=label1(