急！高手制作VB连连看小游戏

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

急！高手制作VB连连看小游戏

15分…………

提供个思路吧！

1、图标没多大关系，把图片裁成统一尺寸，每张图用一个picturebox装起来，就是一个图标了。

2、倒计时用timer稳定性，但不好写，可以用timer控件，结合一个进度条，每次循环进度条长度减少，当长度为零时提示timer over，也可长度为某某值事提示“加油”等等

3、音效如果要不高就弄一点喜欢的轻音乐用会声会影编辑一下就好，要是要高的话建议找专业团队制作。

4、每次通关或者game over记录分数和用户名到文件，查看排行榜时调出文件把分数做从大到小排列，然后显示用户名，就成排行榜了。

5、难度体现在图标的个数、限制时间的长短等

6、两个图标能否消除的判断在于：是否相同图案、连线中间是否有其它图标隔着。

以上思路希望给你启发，自娱自乐够了，要做高端游戏还需具体讨论，留个QQ吧：598374334（注明：讨论连连看）

能不能帮我用VB制作一个简单的连连看游戏呀

重点是，装载相同的图片时，要同时将控件的 Tag 属性设置为相同的图片文件名。单击控件时，如果 Tag 属性相同就表示图片相同。下面是例子： Dim UpI As Long Private Sub Form_Load() Dim I As Long, S As Long, F As String Picture1(0).AutoRedraw = True For I = 0 To 10 If I >0 Then Load Picture1(I): Picture1(I).Visible = True Picture1(I).Left = I * Picture1(0).Width * 1.1 '这里用字符代替图片文件 S = 1 + Int(Rnd * 4) Picture1(I).Print ＂tu＂ & S Picture1(I).Tag = ＂tu＂ & S ''下面是假设目录 C:\MyTu\ 中有图片文件 tu1.ico、 tu2.ico、 tu3.ico、 tu4.ico ' F = ＂C:\MyTu\tu＂ & I & ＂.Ico＂ ' Picture1(I).Picture = Picture1(F) ' Picture1(I).Tag = ＂tu＂ & S 梗氦盾教墉寄堕犀乏篓Next UpI = -1 End Sub Private Sub Picture1_Click(Index As Integer) If Index UpI And UpI >-1 Then If Picture1(Index).Tag = Picture1(UpI).Tag Then '图片相同 Picture1(Index).Visible = False: Picture1(UpI).Visible = False Label1.Visible = False UpI = -1 Exit Sub End If End If '选中一个图片 UpI = Index Label1.Caption = ＂＂: Label1.BackColor = 255: Label1.Visible = True Label1.Move Picture1(Index).Left - Picture1(Index).Width * 0.1, Picture1(Index).Top - Picture1(Index).Height * 0.1, Picture1(Index).Width * 1.2, Picture1(Index).Height * 1.2 End Sub 补充：--------------------------------- 在窗体放置控件 Picture1，然后在属性窗口设置属性 Index=0

怎么用VB做一个连连看挂

编程遍了一个晚上，终于编出来了，代码给你发过去，如下：Private Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function ReadProcessMemory Lib ＂kernel32＂ (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesRead As Long) As Long Private Declare Function WriteProcessMemory Lib ＂kernel32＂ (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As LongPrivate Declare Function OpenProcess Lib ＂kernel32＂ (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPrivate Declare Function GetWindowThreadProcessId Lib ＂user32＂ (ByVal hwnd As Long, lpdwProcessId As Long) As LongPrivate Declare Function CloseHandle Lib ＂kernel32＂ (ByVal hObject As Long) As LongPrivate Const PROCESS_VM_OPERATION = &H8&Private Const PROCESS_VM_READ = &H10&Private Const PROCESS_VM_WRITE = &H20&Private Sub Timer1_Timer()Dim hwnd As Longhwnd = FindWindow(vbNullString， ＂连连看＂)If hwnd = 0 ThenLabel1.Caption = ＂游戏未加载＂Timer2.Enabled = FalseCheck1.Enabled = FalseCheck2.Enabled = FalseCheck3.Enabled = FalseExit SubEnd IfLabel1.Caption = ＂游戏已加载＂Timer2.Enabled = TrueCheck1.Enabled = TrueCheck2.Enabled = TrueCheck3.Enabled = TrueEnd SubPrivate Sub Timer2_Timer()Dim hwnd As LongDim PId As LongDim pHandle As Longhwnd = FindWindow(vbNullString， ＂连连看＂)GetWindowThreadProcessId hwnd, PIdpHandle = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, 0, PId)If pHandle = 0 Then MsgBox ＂打开程序错误＂ Exit SubEnd IfIf Check1.Value = Checked Then WriteProcessMemory pHandle, &H12FEB8, 100, 1, 0&； '生命If Check2.Value = Checked Then WriteProcessMemory pHandle, &H12FEBC, 100, 1, 0&； '提示If Check3.Value = Checked Then WriteProcessMemory pHandle, &H12F4D4, 100, 1, 0&； '时间CloseHandle pHandleEnd Sub

以下为关联内容：

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

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

连连看小游戏怎么一到五连连看小游戏怎么一到五，游戏连连看：请问是宠物连连看吗？如果是宠物连连看那我可是高手哦！那连连看也是要掌握技巧的哦第一关很容易，只要先把中间的拿开就很容易了。第二关是增加...

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

急连连看简单vb程序急连连看简单vb程序，连连看新手如何快速学会：给你段代码吧，直接复制粘贴到文本文件，改名为1.frm即可运行（关于连线的判断自己需要加一段算法代码，本程序中没写）：VERSION 5.00Begin V...

AS30制作的flash小游戏连连看的源文件谁有flash连连看的源代码文件且可以运行的最简单的最好：来的，希望能帮到你 as3.0-------------数字连连看的实现 这里用到2个文件，.fla和.ActionScripte。这两个文件一定要放在...

怎么用VB做一个连连看挂谁有连连看辅助：编程遍了一个晚上，终于编出来了，代码给你发过去，如下：Private Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByVal lpClassName As String, ByVal...

如何编vb连连看游戏连连看游戏用VB怎么编？Private Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private...

连连看小游戏的技巧高手赐教连连看5的游戏技巧：他们还真说错了，我研究过 这个是有技巧的 通关是常事 连F5\F6 都不用你要注意每关上面都会有通知说是什么顺序 从上到下 还是从左到右。。等等你就知道动哪...