[原创][分享]俄罗斯方块

kaixin456 · 发表于 2007-11-22 09:22

老兄！我真是佩服的五体投地呀！

xiaocui1979 · 发表于 2007-12-5 11:50

不错收哈哈

yfzdb · 发表于 2007-12-5 13:14

年人也！！！

yfzdb · 发表于 2007-12-5 13:15

是

牛人也！！不得了，我领略到了没有什么不可能。

BobPan · 发表于 2007-12-6 09:01

QUOTE:

以下是引用yfzdb在2007-12-5 13:15:42的发言：

是

牛人也！！不得了，我领略到了没有什么不可能。

过奖了！

只有没想到，没有做不到，不过注意，是我们，不是我，需要大家努力

我最喜欢的广告词：

思想有多远，我们就能走多远！

indexlee · 发表于 2007-12-6 13:47

牛的！

End 落下
换成空格好些

曾经是风 · 发表于 2007-12-6 15:52

方块变形转换方向能不能换到当前方块,而不是下一个方块??

BobPan · 发表于 2007-12-6 17:12

QUOTE:

以下是引用indexlee在2007-12-6 13:47:21的发言：

牛的！

End 落下
换成空格好些

用“End”主要是为了方便一只手操作，如果你想换成空格，找到下面代码（Sheet1），将代码中的35改为32即可!

'End
If GetAsyncKeyState(35) Then blnEnd = True: bytTemp = 5

BobPan · 发表于 2007-12-6 17:36

QUOTE:

以下是引用曾经是风在2007-12-6 15:52:01的发言：

方块变形转换方向能不能换到当前方块,而不是下一个方块??

如此的话，那不等于做弊了？？？

不过，你想的话，满足你：

找到下面语句，更改为

'Shift
If GetAsyncKeyState(16) Then Range("Pane").Areas(2).Value = Range("Pane").Areas(3).Value

更改为Range("Pane").Areas(3).Value 为 Range("Pane").Areas(1).SpecialCells(xlCellTypeConstants, xlTextValues).CurrentRegion.Resize(4, 4).Value

主要为方便你更改，没写太多的代码去调整位置，所以美观方面差点！

ybzdexcel · 发表于 2007-12-21 19:45

很棒！

		自动登录	找回密码
密码			免费注册