您的位置：程序门 -> vb -> 基础类

在做一个拼图游戏时遇到的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

在做一个拼图游戏时遇到的问题

发表于：2007-02-27 10:18:11 楼主

select case index mod 3 '把9个image控件分成三列
case 0 '当鼠标点击第1列时
if image1（index + 1).picture = loadpicture（ " ") then '判断右边是否为空
image1（index + 1).picture = image1（index).picture '交换图片
image1（index).picture = loadpicture（ " ")
win '测试是否拼图成功
end if ‘到这都没问题从下面就开始出错了
case 1 '当鼠标点击第2列时
if image1（index - 1).picture = loadpicture（ " ") then '判断左边是否为空
image1（index - 1).picture = image1（index).picture
image1（index).picture = loadpicture（ " ")
win
end if
if image1（index + 1).picture = loadpicture（ " ") then '判断右边是否为空
image1（index + 1).picture = image1（index).picture
image1（index).picture = loadpicture（ " ")
win
end if
case 2 '当鼠标点击第3列时
if image1（index - 1).picture = loadpicture（ " ") then '判断左边是否为空
image1（index - 1).picture = image1（index).picture
image1（index).picture = loadpicture（ " ")
 win
end if
end select

发表于：2007-02-27 10:42:471楼得分:0

完整的程序可以看这个网址 http://www.vbzx.net/articleview/vbzx_article_view_494.asp

发表于：2007-02-27 14:43:402楼得分:0

报了什么错误？

发表于：2007-02-28 11:01:173楼得分:0

报语法错误但是具体没提示

下一篇：关于max_dir_length，请教！
上一篇：谁会用msxml2.domdocument，指导一下小弟！（100分）

其他资讯