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

deilix

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

Moneky

原帖由 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

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

mb_dm

学习了。
  

createdinchina

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

鲜橙加冰

收藏了，谢谢。。。。

fanchl8109

不错，好玩

tanji

学习了！！！

Baoji_888

很不错，挺厉害的

feixue_12

怎么，才能下载