急！求高手制作VB连连看小游戏
dsVCase《SDv鐧惧害鍦板浘
'添加picturebox控件数组,ProgressBar控件和2个timer控件'搜集自网络，在d:\新建文件夹下，放10个图片0个图片（名字分别为 1.jpg、2.jpg、3.jpg、4.jpg、5.jpg.....10.jpg）Dim i As Integer '要建立的图片框个数Dim aa As IntegerDim gg As IntegerDim ss As IntegerDim jj As Integer, hh As Integer '保存声明窗体的宽度和长度Dim tt As Integer '声明时间变量Dim ff As IntegerDim nn As Integer '声明图片框已经隐藏的变量Dim kk As StringDim pp As IntegerDim j, uu As IntegerDim tf As Integer, kl As IntegerDim oo As IntegerDim vv As IntegerDim rr, mm As IntegerDim cc As IntegerDim ee, qq As IntegerDim ll As IntegerDim ww As IntegerDim a As IntegerDim mm1, nn1 As IntegerDim ty, yt As IntegerDim strnn As StringDim strmm As StringPrivate Sub Form_Load()On Error GoTo MyerrorMe.Visible = Falsepp = 0kk = ".jpg"ProgressBar1.Max = 200Picture1(0).Visible = FalseFor i = 1 To 100 pp = pp + 1 If pp = 11 Then pp = 1 End If gg = gg + 1 If gg = 10 Then ss = ss + Picture1(0).Height + 50 gg = 0 aa = Picture1(0).Left hh = ss + 800 Else aa = aa + Picture1(0).Width + 50 jj = aa + Picture1(0).Width + 120 End If Load Picture1(i) Picture1(i).Picture = LoadPicture("d:\新建文件夹\" & pp & kk) Picture1(i).Width = Picture1(0).Width Picture1(i).Height = Picture1(0).Height Picture1(i).Left = aa Picture1(i).Top = ss Picture1(i).AutoRedraw = True Picture1(i).Visible = True If i = 100 Then Picture1(100).Left = Picture1(0).Left Picture1(100).Top = Picture1(0).Top Picture1(100).Height = Picture1(0).Height Picture1(100).Width = Picture1(0).Width Picture1(100).Visible = True Picture1(100).Picture = LoadPicture("d:\新建文件夹\" & pp & kk) End IfNext iMe.Width = jjMe.Height = hh - 150ProgressBar1.Height = 255ProgressBar1.Width = Me.WidthProgressBar1.Top = hh - 800ProgressBar1.Left = 0Timer1.Interval = 500Timer2.Interval = 100Timer1.Enabled = FalseRandomize Timer2tt = 200ProgressBar1.Value = ttExit SubMyerror:MsgBox "D:\新建文件夹 文件夹下加载图片", vbOKOnly, "错误对话框“"EndEnd SubPrivate Sub Picture1_Click(Index As Integer)nn = 0pp = 0Select Case IndexCase Index oo = oo + 1 If oo = 1 Then ee = Index For vv = 1 To 100 pp = pp + 1 If pp = 11 Then pp = 1 End If If vv = Index Then rr = vv tf = pp End If Next End If If oo = 2 Then qq = Index For vv = 1 To 100 pp = pp + 1 If pp = 11 Then pp = 1 End If If vv = Index Then mm = vv kl = pp End If Next vv oo = 0 End If If tf = kl Then If ee qq Then Picture1(rr).Visible = False Picture1(mm).Visible = False tf = 0 kl = 0 End If End IfEnd SelectFor i = 0 To 99 If Picture1(i).Visible = False Then nn = nn + 1 End If If nn = 100 Then MsgBox "恭喜！！！ 过关了！" Timer1.Enabled = False End IfNext iEnd SubPrivate Sub Timer1_Timer()tt = tt - 1ProgressBar1.Value = ttIf tt = 0 Then ff = MsgBox("哈哈 您已经输了", vbOKOnly, "关闭对话框") If ff = 1 Then End End IfEnd IfEnd SubPrivate Sub Timer2_Timer()a = a + 1If a = 100 Then Timer2.Enabled = False Timer1.Enabled = True Me.ShowEnd Ifll = Int(Rnd * 101)ww = Int(Rnd * 101)strnn = strnn + "," + Str(ll)strmm = strmm + "," + Str(ww)If InStr(ll, strnn) = 0 And InStr(ww, strmm) = 0 Then If ll 0 And ww 0 Then If ll ww Then mm1 = Picture1(ll).Left nn1 = Picture1(ll).Top ty = Picture1(ww).Left yt = Picture1(ww).Top Picture1(ll).Left = ty Picture1(ll).Top = yt Picture1(ww).Top = nn1 Picture1(ww).Left = mm1 End If End IfEnd IfEnd Sub
15分…………提供个思路吧！
1、图标没多大关系，把图片裁成统一尺寸，每张图用一个picturebox装起来，就是一个图标了。
2、倒计时用timer稳定性，但不好写，可以用timer控件，结合一个进度条，每次循环进度条长度减少，当长度为零时提示timer over，也可长度为某某值事提示“加油”等等
3、音效如果要求不高就弄一点喜欢的轻音乐用会声会影编辑一下就好，要是要求高的话建议找专业团队制作。
4、每次通关或者game over记录分数和用户名到文件，查看排行榜时调出文件把分数做从大到小排列，然后显示用户名，就成排行榜了。
5、难度体现在图标的个数、限制时间的长短等
6、两个图标能否消除的判断在于：是否相同图案、连线中间是否有其它图标隔着。
以上思路希望给你启发，自娱自乐够了，要做高端游戏还需具体讨论，留个QQ吧：598374334（注明：讨论连连看）
急！求高手制作VB连连看小游戏视频
相关评论：
储顾功眼急手快，尽量先不要点两个挨着的，看他是往什么方向变化的，尽量先点边上的，一排一排的挨个看，记住每一排看到过的每一个不一样的图案，出现看过的图案立即消除，等到边上没有可以连接的了，再点挨着的。有变化的情况下，要先看你要消除的那一对假如消除了，是否会影响其他可以消除的变得不能...
储顾功这有好多连连看，自己找找看吧 http:\/\/www.uucc5.com\/Play\/lianliankan.htm 推荐一下这个《爱情连连看》，不错 http:\/\/www.uucc5.com\/Special\/Linking\/article-201103287220.shtml
储顾功果蔬连连看4__2144小游戏.swf种子下载地址：thunder:\/\/QUFodHRwOi8vYWlrYW5keS5vcmcv5p6c6JSs6L+e6L+e55yLNF9fMjE0NOWwj+a4uOaIjy5zd2Y\/ZmlkPWlqdTF5NGNibnB5aCpqOHdDQ3BpYkJNR0NvMEFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUEmbWlkPTY2NiZ0aHJlc2hvbGQ9MTUwJnRpZD1FNTFERDdCQzAxQT...
储顾功把你的邮箱留下 我给你源文件 我这没有falsh软件 打不开 给你源文件 绝对使你满意 有四个不同的 flash 源文件 打开即可看到AS代码
储顾功3、因为制作群的美术和音份不佳，故作品中使用到的图案、配乐和音效某些是取自于网路资源，这些版权为原作者所有。如有不慎侵权，请来函告知，制作群会立即改善。4、如执行此游戏，而造成玩家系统当机或损坏，制作群不负任何责任。【游戏说明】1、玩法说明：这是针对小朋友制作的神奇宝贝图案版游戏，...
储顾功具体如下：连连看的小源码 package Lianliankan;import javax.swing.*;import java.awt.*;import java.awt.event.*;public class lianliankan implements ActionListener { JFrame mainFrame; \/\/主面板 Container thisContainer;JPanel centerPanel,southPanel,northPanel; \/\/子面板 JButton diamondsButton[]...
储顾功学习后的一种娱乐，休闲的一种方式，不是为了叫玩家为之花费金钱，花费精力，更不是叫玩家为他痴迷，他就一个特点，就是一种叫人在工作，学习小游戏也可以理解为“Flash游戏”，是以SWF为后缀的游戏的总称.这些游戏是通过Flash软件和 Flash 编程语言 Flash ActionScript 制作而成。
储顾功1、熟识连连看的基本设定！连连看 反斗乐园乐翻天 2008-2-15 14:19:01 活动举办方:,每张电影票兑换两个游戏币,兑换时,由反斗乐园收取电影票根; 3.活动... 连连看游戏 深圳中影今典影城在影城看《大灌篮》, 连连看小游戏凭票根可获赠反斗乐园游2枚戏币,参与反斗乐园游戏项目 宠物连连看 水晶连连看...
储顾功你可以叫上小伙伴们一起来玩耍，多种不同的趣味游戏可以选择，两屏三屏四屏随机切换，在回味时光的经典游戏中，度过愉快的聚会时间，再也不怕无聊！多人益智游戏手动小游戏内容介绍适合多人一起玩的游戏多人益智游戏，有图片、算术、声音配对几个类型。游戏最多支持4人对战，也可以单人刷记录。多人益...
储顾功百度来的，希望能帮到你 as3.0---数字连连看的实现 这里用到2个文件，.fla和.ActionScripte。这两个文件一定要放在同一个文件夹下 第一：创建一个名为LMC的ActionScripte文件，代码如下：package { import flash.display.MovieClip;import flash.text.TextField;import flash.display.Sprite;import fla...
