急连连看简单vb程序

[连连看游戏程序主要功能是可以实现什么]连连看游戏程序主要功能是可以实现什么，连连看的规则：////// 简单连连看游戏//////#include#include#include#define ROW 4 //行数目#define COL 4 #define ICO_NUM 5//游戏图...+阅读

急连连看简单vb程序

给你段代码吧，直接复制粘贴到文本文件，改名为1.frm即可运行（关于连线的判断自己需要加一段算法代码，本程序中没写）：VERSION 5.00Begin VB.Form Form1 BorderStyle = 1 'Fixed Single Caption = ＂Form1＂ ClientHeight = 7680 ClientLeft = 45 ClientTop = 435 ClientWidth = 7170 LinkTopic = ＂Form1＂ MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 7680 ScaleWidth = 7170 StartUpPosition = 3 '窗口缺省 Begin VB.Timer Timer1 Left = 6720 Top = 2880 End Begin VB.ComboBox dengji Height = 300 Left = 4680 Style = 2 'Dropdown List TabIndex = 6 Top = 720 Width = 1935 End Begin VB.CommandButton Jieshu Caption = ＂结束游戏＂ Height = 495 Left = 1800 TabIndex = 5 Top = 600 Width = 1215 End Begin VB.PictureBox P1 Appearance = 0 'Flat BackColor = &H00000000& ForeColor = &H80000008& Height = 255 Left = 240 ScaleHeight = 225 ScaleWidth = 6585 TabIndex = 4 Top = 240 Width = 6615 End Begin VB.PictureBox p0 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 255 Left = 240 ScaleHeight = 225 ScaleWidth = 6585 TabIndex = 3 Top = 240 Width = 6615 End Begin VB.Frame Frame1 Height = 6255 Left = 360 TabIndex = 1 Top = 1200 Width = 6255 Begin VB.PictureBox nPic BackColor = &H008080FF& BorderStyle = 0 'None Height = 615 Index = 0 Left = 360 ScaleHeight = 615 ScaleWidth = 105 TabIndex = 2 Top = 240 Visible = 0 'False Width = 100 End End Begin VB.CommandButton kaishi Caption = ＂开始游戏＂ Height = 495 Left = 240 TabIndex = 0 Top = 600 Width = 1335 End Begin VB.Label Label1 Caption = ＂难度等级＂ Height = 255 Left = 3720 TabIndex = 7 Top = 720 Width = 855 EndEndAttribute VB_Name = ＂Form1＂Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim tmp() As Integer '假设有10种类别的图片，本数组用以记录每组图片加载的次数Dim pic(10) As ColorConstantsDim tCnt As IntegerDim Fhit As ColorConstantsDim FhitIndex As LongPrivate Sub Command1_Click()End SubPrivate Sub jieshu_Click() Timer1.Enabled = False dengji.Enabled = True P1.Width = p0.Width Jieshu.Enabled = False kaishi.Enabled = TrueEnd SubPrivate Sub Form_Initialize() Dim i As Integer For i = 1 To 10 pic(i) = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)) Next i dengji.Clear For i = 3 To 1 Step -1 dengji.AddItem i & ＂分钟＂ Next i dengji.ListIndex = 0 Timer1.Interval = 1000 Timer1.Enabled = False Jieshu.Enabled = FalseEnd SubPrivate Sub Form_Load() 'IntPicEnd Sub'初始化控件数组Private Sub IntPic() Dim i As Integer ReDim tmp(10) As Integer nPic(0).Move 200, 200, 500, 500 nPic(0).Visible = False For i = 1 To 100 If ExistPic(nPic(i)) Then Unload nPic(i) Load nPic(i) nPic(i).Visible = True nPic(i).Width = 500 nPic(i).BackColor = pic(LoadPic) nPic(i).Top = (i Mod 10) * (500 + 100) + 200 nPic(i).Left = ((i - 1) \ 10) * (500 + 100) + 200 nPic(i).Visible = True Next iEnd Sub'判断控件是否存在Function ExistPic(obj As PictureBox) As Boolean On Error GoTo errobj obj.Move obj.Left ExistPic = True Exit Functionerrobj: ExistPic = FalseEnd Function'随机赋予控件颜色，可更改为指定的图片Private Function LoadPic() Dim ntmp As Integer Do ntmp = Int(Rnd * 10) + 1 If tmp(ntmp) LoadPic = ntmp tmp(ntmp) = tmp(ntmp) + 1 Exit Do End If LoopEnd FunctionPrivate Sub kaishi_Click() tCnt = 0 IntPic Timer1.Enabled = True dengji.Enabled = False kaishi.Enabled = False Jieshu.Enabled = TrueEnd SubPrivate Sub nPic_Click(Index As Integer) If Fhit = 0 Then Fhit = nPic(Index).BackColor FhitIndex = Index nPic(Index).BorderStyle = 1 ElseIf Fhit = nPic(Index).BackColor And Index FhitIndex Then nPic(FhitIndex).Visible = False nPic(Index).Visible = False FhitIndex = 0 Fhit = 0 nPic(Index).BorderStyle = 1 nPic(FhitIndex).BorderStyle = 0 Else Fhit = nPic(Index).BackColor nPic(FhitIndex).BorderStyle = 0 nPic(Index).BorderStyle = 1 FhitIndex = Index End If Debug.Print FhitEnd SubPrivate Sub Timer1_Timer() If tCnt >Val(dengji.Text) * 60 Then MsgBox ＂游戏结束＂ Timer1.Enabled = False Exit Sub End If tCnt = tCnt + 1 P1.Width = p0.Width * (1 - Format((tCnt / (Val(dengji.Text) * 60)), ＂0.000＂))End Sub

连连看新手如何快速学会

1.一定要对自己有信心，这点好重要。要是你一开始就觉得自己不行了，那你怎么能获胜呢？

2. 游戏开始后就尽快点击牌，在点击的同时眼睛的余光得注意其他可能连的牌，当你找到一个认为可以连的牌就别犹豫尽管大胆去点它们。就算错了也不要灰心，继续点。

3. 我们玩连连看不是比耐心谁能先点完，点的同时还要知道自己身边有5位和自己一 样渴望胜利的人和你一起在点。所以速度最重要。所以我建议大家不要使用提示，因为那样只会减慢你的速度。而是用重列。但有一点很重要： 只要一觉得点的不连贯 马上就按重列 不要觉得可惜。这也许就是你比人家快的。

4.熟悉各种地图。某些地图比较复杂，中间还有障碍，或者排的很满，让你无法下手，这样的地图，连法也比较重要，玩熟练之后，在某些复杂地图最好形成固定的连法。先连哪儿再连哪儿，心里有个谱，必须的时候使用道具。这样，通过一定的练习，那张地图你就是高手。

5.选择灵敏鼠标 ，玩连连看这样的游戏，鼠标的灵敏对成绩的好坏来说，重要性也是不言而喻的哦，战士总得有好武器嘛。条件允许的话呢，选一个灵敏度高的鼠标，也许一下子就成绩就上去了哦~

6.最重要的是： 不要有争斗的心 你心里老是想着要赢 会给自己压力的。 游戏毕竟是游戏。。玩的时候大家可以尽量放松，不要紧张。我玩的时候就是把原来的背景音乐关掉，而是换用自己喜欢的R&B，或者能让自己舒服的歌曲，这样玩的时候就很轻松了。

7.你自己的反映和灵敏度当然很重要，但我相信：熟能生巧 没有天生的高手 只有苦练才能成就英雄！~成功没有捷径，不要想着用外挂。

8.当你点完的时候，你赢的是你自己。每玩一次，你自己就更强了。

连连看怎么玩

二.概述 连连看游戏 ，只要将相同花色的两张牌用三根以内的直线连在一起就可以消除， 规则简单容易上手 。 游戏速度节奏快，画面清晰可爱 ， 适合以 MM 为主心细的玩家 。 丰富的道具和公共模式的加入 ， 增强游戏的竞争性。多样式的地图，使玩家在各个游戏水平都可以寻找到挑战的目标，长期地保持游戏的新鲜感。使用新颖的连击积分规则，使游戏玩家在体会连击的快感后，同时对自己的游戏速度，更有挑战性和追极速的欲望。 三.基本规则 概要 玩家可以将 2 个相同图案的对子连接起来，连接线不多于 3 根直线，就可以成功将对子消除。 操作 第一次使用鼠标点击棋盘中的棋子，该棋子此时为“被选中”，以特殊方式显示；再次以鼠标点击其他棋子，若该棋子与被选中的棋子图案相同，且把第一个棋子到第二个棋子连起来，中间的直线不超过 3 根，则消掉这一对棋子，否则第一颗棋子恢复成未被选中状态，而第二颗棋子变成被选中状态 胜利条件 ： • 将棋盘上面的对子全部消除掉。

按消除的数量排列名次。 • 其他玩家都输掉了。 失败条件 ： • 每个玩家选择牌的时间为 30 秒，超过时间而未消除一对的玩家以判为输掉。 • 有一个玩家将所有的牌都全部消掉。 计分规则： 每次得分附加分数为连攻击的分数。每次得分只统计最大连攻击数。 最大得分： 60+108=168 分 经常性得分： 12+18=30 分 使用道具： 道具分为两种： 对自己使用的：将鼠标移到道具上面，点击左键。 对其他玩家使用：将鼠标移到道具上面，点击左键。就会激活道具，鼠标处会出现道具的图标。只要再将鼠标移到你想对其使用道具的人的游戏池上，点击右键就可以对其使用道具。 道具说明： 只要将鼠标移到道具上面，就会出现道具的说明。对自己使用的类型为蓝色字体表示，对其他玩家使用的为红色字体表示。

以下为关联内容：

vb连连看游戏代码要全部的vb连连看游戏代码要全部的，连连看游戏的java源代码程序！Picture1(I); F = UpI And UpI ;MyTu, Picture1(Index).Tag = Picture1(UpI)；选中一个图片 UpI = Index Label1.AutoRed...

谁能帮忙写一个c语言连连看游戏要4x4的功能最简单的就可以！谁能帮忙写一个c语言连连看游戏要4x4的功能最简单的就可以！一个用java语言编写的图片连连看游戏有没有大神肯教啊：////// 简单连连看游戏//////#include#include#include#defi...

连连看游戏用VB怎么编连连看游戏用VB怎么编，急！高手制作VB连连看小游戏：编程遍了一个晚上，终于编出来了，代码给你发过去，如下： Private Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByV...

一个简单的连连看一个简单的连连看，哪位高手帮个忙帮我用VB编一个简单的连连看的小游戏吧！感：import javax.swing.*; import java.awt.*; import java.awt.event.*; public class lianliankan i...

能不能帮我用VB制作一个简单的连连看游戏呀能不能帮我用VB制作一个简单的连连看游戏呀，怎样快速玩翻连连看：重点是，装载相同的图片时，要同时将控件的 Tag 属性设置为相同的图片文件名。单击控件时，如果 Tag 属性相同就表示...

怎样升级连连看怎样升级连连看，QQ游戏连连看积分与等级对照：连连看等级 等级，星座， 起始分数 1.小星星积分 0分 2.摩羯座积分 100分 3.水瓶座积分 200分 4.双鱼座积分 500分 5.白羊座积分 1000...

爱情连连看。。爱情连连看。，爱情连连看的全部歌曲是什么：有人说她是“托” 她到底是不是“托”这个话题被讨论了很久 其实是个很无聊的话题，有人刚提出这个疑问时，周围人一片窃笑：人家是不是托...

连连看游戏的java源代码程序！连连看游戏的java源代码程序！能不能帮我用VB制作一个简单的连连看游戏呀：import java.util.*; public class bycomma{ public static String[] splitStringByComma(String sou...

利用VB做一个连连看游戏我需要完整的VB代码要确保能用的希望能利用VB做一个连连看游戏我需要完整的VB代码要确保能用的希望能，一个用java语言编写的图片连连看游戏有没有大神肯教啊：'添加picturebox控件数组，ProgressBar控件和2个timer控件...