好玩的色块对对碰EXCEL游戏，完全开放代码

Moneky

t13564865256 发表于 2015-9-6 08:19
下载新版本，就能解决你的问题了。看下更新说明哦，刚更新的

我的问题当然不是没有启用宏的原因。刚刚开了代码，建议作如下修改以适应64位系统。

1. #If Win64 Then
   
2.     Public Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
   
3.     Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
   
4.     Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   
5.     Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
6.     Public Declare PtrSafe Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
   
7. #Else
   
8.     Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
   
9.     Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
   
10.     Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    
11.     Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    
12.     Public Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
    
13. #End If

复制代码

直接点击文件打开，就什么也没有，用vbs打开后，正常了。
是否使用了宏表？与新的安全性冲突？因为正常打开的话，Excel2013会提示是否启用内容，但现在直接打开还是一片空白（就是只有Excel，没有任何新的活动工作簿。）

Moneky

Workbook_open中
Application.WindowState = xlMaximized     多余（删除后，可以正常打开了），都已经隐藏显示了，还最大化干啥。（http://club.excelhome.net/thread-270474-1-1.html）

游戏做的还不错，在WP中玩过似乎叫颜色连连看，如果可以美化一下就更好了。再提个建议：添加标题栏（顶端蓝色区域）拖动窗口的功能，反正都用了那么多API了，也不差这一点点。

t13564865256

Moneky 发表于 2015-9-6 10:02
Workbook_open中
Application.WindowState = xlMaximized     多余（删除后，可以正常打开了），都已经隐 ...

谢谢你的建议啊，美化和窗口拖动，都和我想的一样。可惜能力有限，如果纯FLASH去做，会花非常多的功夫。看我有没有时间吧

t13564865256

Moneky 发表于 2015-9-6 10:02
Workbook_open中
Application.WindowState = xlMaximized     多余（删除后，可以正常打开了），都已经隐 ...

关于Application.WindowState = xlMaximized 是不能去掉的哦，当别人的窗口不是最大化的情况，游戏的界面会开在不是屏幕的正中间，如果你因为这句不能打开，我还要再研究研究为什么。

t13564865256

Moneky 发表于 2015-9-6 09:45
我的问题当然不是没有启用宏的原因。刚刚开了代码，建议作如下修改以适应64位系统。

谢谢哈 我会整理进程序的。可是我的系统也是64位的 也能跑这个程序哦。应该和64位没关系 是操作系统版本的问题

lee1892

按我的理解，既然是在Excel里用VBA写的，那就该用Excel的单元格作文章。

像这样用API画窗体的不如直接VB作了，除了熟悉API外，和EXCEL VBA基本没啥关系了。

嗯，还是觉得怎么用代码解题更好玩~
对了，题目的储存可以简化成：5x5;4,7;6,17;9,19，所以是可以用二进制文件来保存的

t13564865256

lee1892 发表于 2015-9-6 10:44
按我的理解，既然是在Excel里用VBA写的，那就该用Excel的单元格作文章。

像这样用API画窗体的不如直接VB ...

哈哈 你终于出现了，其实我开始做的版本是直接在EXCEL里做的，但是非常的不美观，而且速度方面是个问题。
用窗体做比在EXCEL中做遇到了更多的难题，但是用户体验上要更好，所以最终选择窗体开发。
话说你能不能给出6*6，7*7，8*8的数据。你如果能解题了，给点数据应该没问题吧

lee1892

t13564865256 发表于 2015-9-6 10:48
哈哈 你终于出现了，其实我开始做的版本是直接在EXCEL里做的，但是非常的不美观，而且速度方面是个问题。 ...

说了我没别的题目数据了~
也没有解题代码~

Moneky

t13564865256 发表于 2015-9-6 10:40
谢谢哈 我会整理进程序的。可是我的系统也是64位的 也能跑这个程序哦。应该和64位没关系 是操作系统版本 ...

Office是64位

lee1892

t13564865256 发表于 2015-9-6 10:48
哈哈 你终于出现了，其实我开始做的版本是直接在EXCEL里做的，但是非常的不美观，而且速度方面是个问题。 ...

话说你还不如改那个修桥游戏呢，我有解题代码，而且还是按逻辑推理来的，还有几十万的题目数据，嗯嗯~