后使用快捷导航没有帐号？
　论坛入口：
　　|　　　|　　　　|　　　|　
我要游戏程序
查看: 7185|回复: 24
用VB做个连连看（转载）
这个是设计原理，可以设计更复杂的连连看。
Option Explicit
'添加一个picture1(0),一个时钟控件 一个 滚动条
'图片随即还没想出来 如果你想出来了好办法 请贴出来吧！
'请在D:\新建文件夹 文件夹下加载5个图片（名字分别为 1、2、3、4、5）
'虽然做的不好 却是用心去做的
Dim i As Integer '要建立的图片框个数
Dim aa As Integer
Dim gg As Integer
Dim ss As Integer
Dim jj As Integer, hh As Integer '保存声明窗体的宽度和长度
Dim tt As Integer '声明时间变量
Dim ff As Integer
Dim nn As Integer '声明图片框已经隐藏的变量
Dim kk As String
Dim pp As Integer
Dim j, uu As Integer
Dim tf As Integer, kl As Integer
Dim oo As Integer
Dim vv As Integer
Dim rr, mm As Integer
Dim cc As Integer
Dim ee, qq As Integer
Private Sub Form_Load()
On Error GoTo Myerror
kk = &.jpg&
ProgressBar1.Max = 200
Picture1(0).Visible = False
For i = 1 To 100
pp = pp + 1
If pp = 6 Then
gg = gg + 1
If gg = 10 Then
ss = ss + Picture1(0).Height + 50
aa = Picture1(0).Left
hh = ss + 800
aa = aa + Picture1(0).Width + 50
jj = aa + Picture1(0).Width + 120
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).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)
Me.Width = jj
Me.Height = hh
ProgressBar1.Height = 255
ProgressBar1.Width = me.width
ProgressBar1.Top = hh - 800
ProgressBar1.Left = 0
Timer1.Interval = 500
ProgressBar1.Value = tt
MsgBox &D:\新建文件夹 文件夹下加载图片&, vbOKOnly, &错误对话框“&
Private Sub Picture1_Click(Index As Integer)
Select Case Index
Case Index
oo = oo + 1
If oo = 1 Then
ee = Index
For vv = 1 To 100
pp = pp + 1
If pp = 6 Then
If vv = Index Then
If oo = 2 Then
qq = Index
For vv = 1 To 100
pp = pp + 1
If pp = 6 Then
If vv = Index Then
If tf = kl Then
If ee && qq Then
Picture1(rr).Visible = False
Picture1(mm).Visible = False
End Select
For i = 0 To 99
If Picture1(i).Visible = False Then
nn = nn + 1
If nn = 100 Then
MsgBox &恭喜！！！ 过关了！&
Timer1.Enabled = False
Private Sub Timer1_Timer()
tt = tt - 1
ProgressBar1.Value = tt
If tt = 0 Then
ff = MsgBox(&哈哈 您已经输了&, vbOKOnly, &关闭对话框&)
If ff = 1 Then
Re:用VB做个连连看（转载）
我看过最著名的阿达连连看是用VB6编写的
Re:用VB做个连连看（转载）
连连看是什么?
Re:用VB做个连连看（转载）
就是那个几个相同的连在一起就可以消去，直到全部消去的游戏。QQ有。
Re:用VB做个连连看（转载）
Re:用VB做个连连看（转载）
连连看说白了,就是判断两点之间的所寻得的路线是否符合游戏规则的要求,其实逻辑上只要进行其中一个点向另一个点寻路就行了
Re:用VB做个连连看（转载）
实际上有的东西说起来很简单做起来不简单呀
有些东西看书看明白了 可真编代码的时候 不一定能写出来
Re: Re:用VB做个连连看（转载）
杜飞: Re:用VB做个连连看（转载）
实际上有的东西说起来很简单做起来不简单呀
有些东西看书看明白了 可真编代码的时候 不一定能写出来
这里主要还是经验问题,就是要知道怎么去&翻译&上面我那句话,一般的作法是把界面上各个&格子&的情况用二维数组存起来,然后就是在数组里用坐标的方法判断了.至于显示问题的话,只要在界面上有操作屏幕就应该刷新了,显示的根据就是那个数组.方法大体上是这样的.其实学做游戏还是要靠多实践,不断摸索&翻译&的方法,这样才能不断积累,提高开发能力.
Re:用VB做个连连看（转载）
顶楼上真言！
Re:用VB做个连连看（转载）
我也顶!陈?是最棒的!12345678910
搜索配件：
&&价格区间：从
折扣价格￥39.50元
原价：￥69.80元 (5.7折)
最近30天销量：月销 49 笔
商品来源：
&购物咨询(商品***)：
由卖家 金帛三木图书专营店 从 北京 发货
推荐服务商：&&&&&&&&&&
双氙商品详情
商品标签云
买过的人评价...
火热抢购 闪电发货!
倒计时: 01天19时09分秒
【2016年9月新版】 java开发从入门到精通 java入门经典
￥48.8价格：￥59.00
99 人已在抢！
火热抢购中：【赠10本电子书】 C语言从入门到精通
价格￥55.00
节省￥15.4
抢购结束倒计时
黑客大神入门经典
黑客经典入门教程书籍。零基础学黑客攻防 从新手到高手【送黑客工具包】
价格：￥49.00
999 人购买
抢购价: ￥39.7
还剩：02 天 23 小时 58 分
程序员书籍大促！
冰点价特卖，数量有限！
预售包邮 HTML5从入门到精通(附光盘)/软件开发视频大讲堂 精通css3揭秘网站制作书籍 网页设计三剑客制作教程 div前端网站建设书
Visual C++从入门到精通(第3版) Visual C++语言入门自学教程 电脑程序设计 基础自学教材书籍 初学c语言 计算机书籍C++编程入门
正版包邮 JavaScript从入门到精通 计算机书籍 语言入门经典从入门到精通 数字图像处理开发技术大全书籍 游戏编程基础书籍 清华
正版包邮Android从入门到精通(附光盘)/软件开发视频大讲堂安卓软件开发自学教材Android应用开发 第一行代码 教程开发书籍
正版包邮 C语言从入门到精通第2版 赠计算机c语言入门视频教程光盘零基础学c语言入门经典教材C程序设计语言c语言程序设计教科书籍
正版包邮 PHP从入门到精通 第3版 赠PHP视频自学教程正版书籍程序开发设计环境核心技术基础教程实战 网站编程语言案例分析计算机
正版包邮 C#从入门到精通(附光盘第3版)/软件开发视频大讲堂 C#入门经典教材培训教程程序设计asp.net 软件开发自学编程书籍
包邮正版SQL Server 从入门到精通 赠sql server 2008视频教程光盘畅销关系数据库管理系统入门经典计算机书籍 数据库基础教材宝典
正版包邮 Oracle从入门到精通 视频开发大讲堂 数据库基础教程书 oracle 11g 指南参考书籍 sql深入解析 MySQL从入门到精通
书 & &名:Visual Basic从入门到精通 第2版
作 & &者:龙马高新教育 策划 国家863中部软件孵化器 编著
I S B N :3
出 版 社:人民邮电出版社
出版时间:2015年3月第2版
印刷时间:2015年3月第1次印刷
字 & &数:1112千字
页 & &数:614页
开 & &本:16开
包 & &装:平装
重 & &量:克
原 & &价:69.80元
第 0章 Visual Basic学习指南
0.1 Visual Basic的来源
0.2 Visual Basic的特点
0.3 Visual Basic无处不在
0.4 Visual Basic学习经验
0.5 Visual Basic的学习路线
第1篇 基础知识
第 1章 步入VB开发之门 —— 初识Visual Basic 6.0
1.1 Visual Basic简介
1.1.1 Visual Basic的发展
1.1.2 Visual Basic 6.0的功能特点
1.2 Visual Basic 6.0的***与启动
1.2.1 Visual Basic 6.0的***
1.2.2 Visual Basic 6.0开发环境的定制
1.2.3 启动与退出
1.3 Visual Basic 6.0的集成开发环境
1.3.1 认识Visual Basic 6.0的工作界面
1.3.2 主窗口
1.3.3 窗体设计/代码设计窗口
1.3.4 属性窗口
1.3.5 工程资源管理器窗口
1.3.6 工具箱窗口
1.3.7 其他窗口
1.3.8 Visual Basic帮助系统的使用
1.4 用Visual Basic 6.0管理工程
1.4.1 工程介绍
1.4.2 新建、保存工程
1.4.3 向工程中添加窗体和模块
1.4.4 运行和关闭工程
1.4.5 删除工程
1.4.6 生成可执行文件
1.5 来自VB世界的第一声问候——第1个应用程序
1.5.1 VB程序设计的一般步骤
1.5.2 创建应用程序的界面
1.5.3 设置控件属性
1.5.4 编写代码
1.5.5 调试、运行程序
1.6 实战练习
第 2章 Visual Basic的入门钥匙——Visual Basic语言基础
2.1 标识符和数据类型
2.1.1 标识符
2.1.2 数据类型
2.2 常量和变量
2.2.1 常量
2.2.2 变量
2.3 运算符
2.3.1 算术运算符
2.3.2 赋值运算符
2.3.3 关系运算符
2.3.4 逻辑运算符
2.3.5 连接运算符
2.3.6 特殊运算符
2.3.7 运算符的优先级
2.4 表达式
2.4.1 算术表达式
2.4.2 字符串表达式
2.4.3 日期表达式
2.5 代码编写规范
2.5.1 Visual Basic 6.0标识符的定义规则
2.5.2 Visual Basic 6.0中变量及控件的命名规则
2.5.3 程序书写规则
2.5.4 添加注释
2.5.5 格式化缩排程序语句
2.6 高手点拨
2.7 实战练习
第 3章 Visual Basic的秘密——算法和程序控制结构
3.2 结构化程序设计
3.3 顺序结构
3.3.1 赋值运算符
3.3.2 数据的输入与输出
3.4 选择结构
3.4.1 If条件语句
3.4.2 Select case语句
3.4.3 条件函数
3.5 循环结构
3.5.1 For循环语句
3.5.2 Do...Loop循环语句
3.5.3 循环的嵌套
3.6 其他辅助控制语句
3.6.1 End结束语句
3.6.2 Exit退出语句
3.6.3 GoTo跳转语句
3.6.4 On Error语句
3.6.5 复用语句With...End With
3.7 高手点拨
3.8 实战练习
第 4章 同类型批量数据管理的技巧 —— 数组
4.1 数组的概念
4.1.1 定长数组及声明
4.1.2 动态数组及声明
4.2 数组基本操作
4.2.1 数组的引用
4.2.2 数组的初始化
4.2.3 数组元素的输入、输出
4.2.4 数组元素的插入、删除和查找
4.2.5 数组元素的应用及排序
4.3 数组相关函数及语句
4.3.1 Array 函数
4.3.2 UBound函数和LBound函数
4.3.3 Split函数
4.3.4 Option Base语句
4.4 高手点拨
4.5 实战练习
第 5章 应用程序提升的法宝——内置函数与过程
5.1 秘密武器——常用的内置函数
5.1.1 数学函数
5.1.2 字符串函数
5.1.3 转换函数
5.1.4 日期时间函数
5.1.5 随机函数
5.1.6 判断函数
5.1.7 格式化函数
5.1.8 Shell函数
5.2 提升法宝——过程
5.2.1 事件过程
5.2.2 Sub过程（子过程）
5.2.3 Function过程（函数过程）
5.2.4 参数的传递
5.2.5 过程的嵌套与递归
5.3 高手点拨
5.4 实战练习
第2篇 核心技术
第 6章 应用程序的精髓——可视化编程
6.1 对象概念
6.1.1 对象和类
6.1.2 VB中对象的建立和编辑
6.2 对象的属性、方法和事件
6.2.1 对象的属性及设置
6.2.2 对象的方法及调用
6.2.3 对象的事件及事件过程
6.3 高手点拨
6.4 实战练习
第 7章 应用程序的脸——窗体和系统对象
7.1 窗体简介
7.1.1 窗体的基本概念
7.1.2 在工程中添加窗体的方法
7.2 控制窗体表情——窗体的属性、方法和事件
7.2.1 窗体的属性
7.2.2 窗体的方法
7.2.3 窗体的事件
7.3 窗体的生命周期
7.3.1 选择启动窗体
7.3.2 快速显示窗体
7.3.3 结束窗体
7.4 多窗体设计
7.4.1 创建多窗体应用程序
7.4.2 多窗体特性
7.5 登录窗体设计实例
7.6 系统对象
7.6.1 应用程序APP对象
7.6.2 屏幕Screen对象
7.6.3 剪贴片Clipboard对象
7.6.4 调试Debug对象
7.7 高手点拨
7.8 实战练习
第 8章 标准模块和类模块
8.1 标准模块
8.1.1 标准模块概述
8.1.2 添加标准模块
8.2 类模块
8.2.1 类模块概述
8.2.2 添加类模块
8.3 标准模块和类模块的区别
8.4 高手点拨
8.5 实战练习
第 9章 VB的简易之道—— 标准控件
9.1 控件概述
9.2 标签控件
9.2.1 标签控件的主要属性
9.2.2 标签控件（Label）的主要事件
9.2.3 标签控件应用示例
9.3 文本框控件
9.3.1 文本框的主要属性
9.3.2 文本框控件常用的事件
9.3.3 文本框控件应用示例
9.4 命令按钮控件
9.4.1 命令按钮控件的主要属性
9.4.2 命令按钮控件的事件
9.4.3 命令按钮控件应用示例
9.5 单选按钮控件
9.5.1 单选按钮的主要属性
9.5.2 单选按钮的常用事件
9.5.3 单选按钮控件应用示例
9.6 复选框控件
9.6.1 复选框的主要属性
9.6.2 复选框的常用事件
9.6.3 复选框控件应用示例
9.7 框架控件
9.7.1 框架的主要属性
9.7.2 框架控件应用示例
9.8 列表框控件
9.8.1 列表框的主要属性
9.8.2 列表框的主要事件
9.8.3 列表框控件的方法
9.8.4 列表框控件应用示例
9.9 组合框控件
9.9.1 组合框控件的主要属性
9.9.2 组合框的事件和方法
9.9.3 组合框应用示例
9.10 图像框控件
9.10.1 图像框控件的主要属性
9.10.2 图像框控件的主要事件和方法
9.10.3 图像框应用示例
9.11 滚动条控件
9.11.1 滚动条控件的主要属性
9.11.2 滚动条控件的主要事件
9.11.3 滚动条应用示例
9.12 程序中的闹钟──定时器控件
9.12.1 定时器控件的主要属性
9.12.2 定时器控件的主要事件
9.12.3 定时器控件应用示例
9.13 文件系统控件
9.13.1 驱动器列表框控件
9.13.2 目录列表框控件
9.13.3 文件列表框控件
9.13.4 文件系统应用示例
9.14 控件数组
9.14.1 控件数组的概念
9.14.2 控件数组的创建
9.14.3 控件数组的使用
9.15 高手点拨
9.16 实战练习
第 10章 扩展你的需求——ActiveX控件、工具栏和状态栏
10.1 ActiveX控件的使用
10.1.1 ActiveX控件的添加
10.1.2 ActiveX控件的删除
10.1.3 ActiveX控件的注册
10.2 图像列表控件
10.2.1 向图像列表控件添加图片
10.2.2 图像列表控件与其他控件关联
10.2.3 图像列表控件的应用
《Visual Basic从入门到精通（第2版）》以零基础讲解为宗旨，用实例引导读者学习，深入浅出地介绍了Visual Basic的相关知识和实战技能。《Visual Basic从入门到精通（第2版）》第1篇【基础知识】主要讲解Visual Basic的基础知识、语言基础、算法和程序控制结构、数组以及内置函数与过程等；第2篇【核心技术】主要讲解可视化编程、窗体和系统对象、标准模块和类模块、标准控件，ActiveX控件、工具栏和状态栏、鼠标和键盘事件、菜单和对话框设计、程序调试与错误处理等；第3篇【高级应用】主要讲解数据库与SQL语言基础、Visual Basic 6.0中的数据库编程、数据报表、API 编程、网络编程、图形图像与多媒体编程、文件系统编程以及应用程序打包等；第4篇【应用开发】主要讲解项目规划、VB实现远程控制、仿Windows画图程序、播放器、文件分割与合并程序以及VB连连看等各种实用程序的开发；第5篇【项目实战】介绍了个人账目管理系统和超市进销存管理系统2个项目的开发流程。《Visual Basic从入门到精通（第2版）》所附DVD光盘中包含了与图书内容全程同步的教学录像。此外，还赠送了大量相关学习资料，以便读者扩展学习。《Visual Basic从入门到精通（第2版）》适合任何想学习Visual Basic的读者，无论您是否从事计算机相关行业，是否接触过Visual Basic，均可通过学习快速掌握Visual Basic的开发方法和技巧。
卖家：馨园青图书专营店
来自：河南 郑州
最近30天销量：337件
相关内容：&
￥69.80(6折)
卖家：金帛三木图书专营店
来自：北京
最近30天销量：3件
相关内容：&
￥69.80(8.4折)
卖家：葫芦弟弟图书专营店
来自：北京
最近30天销量：5件
相关内容：&
￥69.80(5.7折)
卖家：杰城图书专营店
来自：福建 福州
最近30天销量：7件
相关内容：&
￥69.80(7.8折)
卖家：奥维博世图书专营店
来自：北京
最近30天销量：18件
相关内容：&
卖家：弘苑图书专营店
来自：江西 南昌
最近30天销量：0件
相关内容：&
卖家：金帛三木图书专营店
来自：北京
最近30天销量：4件
相关内容：&
￥128.00(7.7折)
卖家：瑞意图书专营店
来自：重庆
最近30天销量：8件
相关内容：&
￥47.00(8.9折)
卖家：荣丰通达图书专营店
来自：北京
最近30天销量：0件
相关内容：&
￥69.80(7.1折)
卖家：志达图书专营店
来自：上海
最近30天销量：3件
相关内容：&
卖家：金帛三木图书专营店
来自：北京
最近30天销量：4件
相关内容：&
￥128.00(7.7折)
卖家：多远图书专营店
来自：广东 深圳
最近30天销量：7件
相关内容：&
￥69.80(5折)
您或许还喜欢
42.00&&&&(8.9折)
42.80&&&&(8.3折)
20.00&&&&(无折)
39.91&&&&(8.1折)
请留下你对双氙的意见或建议，感谢！
（如果有个人或商家的相关问题需要解决或者投诉，请致电400-000-5668）
联系***/微信/QQ：
支持中英文(Support in both Chinese and English)
感谢您的反馈，我们会努力做得更好！