完整版带人机对战功能的黑白棋[更新1次]

deilix · 发表于 2010-3-3 21:57

这个翻转的动画效果
是excel自带的还是插入的？
楼主牛啊

Moneky · 发表于 2010-3-11 15:38

原帖由 deilix 于 2010-3-3 21:57 发表
这个翻转的动画效果
是excel自带的还是插入的？

动画效果是自己用代码画出来的

Sub PlayC(vName As String) '翻转棋子动画
Dim tmpTop As Single
tmpTop = a.Shapes.Item(vName).Top
a.Shapes.Item(vName).ScaleHeight 0.88, msoFalse, msoScaleFromMiddle
vPuse k
a.Shapes.Item(vName).ScaleHeight 0.8, msoFalse, msoScaleFromMiddle
vPuse k
a.Shapes.Item(vName).ScaleHeight 0.67, msoFalse, msoScaleFromMiddle
vPuse k
a.Shapes.Item(vName).ScaleHeight 0.38, msoFalse, msoScaleFromMiddle
vPuse k
a.Shapes.Item(vName).ScaleHeight 1.33, msoFalse, msoScaleFromMiddle
vPuse k
a.Shapes.Item(vName).Flip msoFlipVertical
a.Shapes.Item(vName).Fill.ForeColor.SchemeColor = IIf(a.Shapes.Item(vName).Fill.ForeColor.SchemeColor <> 9, 9, 0)
a.Shapes.Item(vName).Fill.Visible = msoTrue
a.Shapes.Item(vName).Fill.Solid
vPuse k
a.Shapes.Item(vName).ScaleHeight 2.25, msoFalse, msoScaleFromMiddle
vPuse k
a.Shapes.Item(vName).ScaleHeight 1.44, msoFalse, msoScaleFromMiddle
vPuse k
a.Shapes.Item(vName).ScaleHeight 1.38, msoFalse, msoScaleFromMiddle
a.Shapes.Item(vName).Height = 27
a.Shapes.Item(vName).Width = 27
a.Shapes.Item(vName).Top = tmpTop
End Sub

[ 本帖最后由 Moneky 于 2010-3-11 15:40 编辑 ]

ifeel · 发表于 2010-4-20 08:22

对我来说，这有点不可思议，我要学，我要强！

mb_dm · 发表于 2010-4-24 15:53

学习了。

createdinchina · 发表于 2010-5-9 14:29

对我来说简直就是相当的不可思议，甚至游戏规则都不知道啊，要去幼儿园读书了

鲜橙加冰 · 发表于 2010-6-27 12:03

收藏了，谢谢。。。。

fanchl8109 · 发表于 2010-7-1 15:00

不错，好玩

tanji · 发表于 2010-7-9 14:38

学习了！！！

Baoji_888 · 发表于 2010-9-26 10:29

很不错，挺厉害的

feixue_12 · 发表于 2011-5-20 18:09

怎么，才能下载

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

[游戏组] 完整版带人机对战功能的黑白棋[更新1次]

excel还能这样？！