[原创]连连看2.0Excel窗体版

清风_ll

QUOTE:

以下是引用plxmm在2006-9-6 10:08:30的发言：
好东东。消图片的拐弯连线的直角处出现缺口。

plxmm很细心,是有这个问题,暂时没想到好的解决方法.

plxmm

另外：那个提示的快捷键，是否可以改进为：按组合键一次来完成啊。每次要做提示操作时，得先用鼠标点菜单、或者Alt+o......，有点浪费时间。

要是能够做游戏进度保存就好了。

清风_ll

QUOTE:

以下是引用plxmm在2006-9-6 10:55:17的发言：

另外：那个提示的快捷键，是否可以改进为：按组合键一次来完成啊。每次要做提示操作时，得先用鼠标点菜单、或者Alt+o......，有点浪费时间。

下一步准备去掉所有菜单,常用功能做成图形按钮直接放在界面中.

要是能够做游戏进度保存就好了。

这个就没有必要了吧.

另.原文件中发现一个错误,已更新.

simen

哈哈，清风也相当LAZY了，默认的form1也不改个名字！

当然做得是不错的，表扬！

Private Sub UserForm_Initialize()
Dim mdbFile As String
mdbFile = ThisWorkbook.Path & "\qfllk.mdb"
If Dir(mdbFile) = "" Then
MsgBox ""                                                                '这一句是不是忘记写内容了，老大？
Else
ShowHero 1
End If

模块写了很多，很辛苦

[此贴子已经被作者于2006-9-6 15:53:10编辑过]

simen

再有一个，好象所有的临时文件都逃不过XX的黑手，

LZ的yyyymmddhhmmss & "qfllk.xls"还是被抓住了，咋办？

英雄们都说说？

还是路径，个人觉得不宜用app.path这类，如果软件是在光盘上打开呢？还是写在硬盘的某个位置比较好。

[此贴子已经被作者于2006-9-6 14:22:38编辑过]

tly11233

很好啊，只是图片看不清楚

清风_ll

QUOTE:

以下是引用simen在2006-9-6 14:16:38的发言：

再有一个，好象所有的临时文件都逃不过XX的黑手，

LZ的yyyymmddhhmmss & "qfllk.xls"还是被抓住了，咋办？

在论坛中这是一个老生常谈的问题了,不管是怎样的封装都是很脆弱的.

英雄们都说说？

还是路径，个人觉得不宜用app.path这类，如果软件是在光盘上打开呢？还是写在硬盘的某个位置比较好。

哈哈,不让在光盘运行!

QUOTE:

以下是引用simen在2006-9-6 14:10:31的发言：

哈哈，清风也相当LAZY了，默认的form1也不改个名字！

呵,没用到的属性没注意

当然做得是不错的，表扬！

Private Sub UserForm_Initialize()
Dim mdbFile As String
mdbFile = ThisWorkbook.Path & "\qfllk.mdb"
If Dir(mdbFile) = "" Then
MsgBox ""                                                                '这一句是不是忘记写内容了，老大？
Else
ShowHero 1
End If

这里是调测时用的代码,本想如果没找到数据库就重新提取,忘记了.呵呵.

模块写了很多，很辛苦

[此贴子已经被作者于2006-9-6 21:01:24编辑过]

zbs112

[此贴子已经被作者于2006-9-6 21:14:47编辑过]

czji

要是能增加一些音乐欣赏就好了。

wyanshan

强！佩服!什么时候可以看到代码，学习学习。