VB与word的问题，是高手就进来看一下！！！，分不够的话，再加

Question

我在word中加入一个flash动画，和两个按钮，一个是用来控制播放，一个来停止播放；
我在播放按钮加入以下代码，但是没有效果？？？
Private Sub cmd_play_Click()
  Flash1.Playing = True
End Sub
也试过
  Private Sub cmd_play_Click()
  Flash1.Play
End Sub
还是不行；在停止按钮上加上以下代码：
  Private Sub cmd_Pause_Click()
  Flash1.Stop
  End Sub
也试过
  Private Sub cmd_play_Click()
  Flash1.Playing = Flase
End Sub
也是没有效果，请高手指教！！！！！

Answer 1

你是用什么控件来播放flash啊？

Answer 2

word 里面的按钮，在按钮上单击右键查看代码，就可以写以上代码了 

Answer 3

我测试了一下，使用按钮控制内嵌Flash动画的播放和停止没有问题，过程如下：
（1）新建一个文档，然后利用Shockwave Flash Object控件插入一个Flash动画，将其Playing属性设置为False
（2）在当前文档中添加两个按钮，然后在设计模式下编写这两个按钮的Click事件，代码如下：VB code    Private Sub CommandButton1_Click() Flash1.Play End Sub Private Sub CommandButton2_Click() Flash1.Stop End Sub
（3）退出当前文档的设计模式，然后单击播放按钮开始播放Flash动画，单击停止按钮Flash动画播放停止。不知道楼主的问题出在了哪里，我这测试一切正常。

Answer 4

楼主看下我在这个帖子中的回复吧：
http://topic.csdn.net/u/20100715/13/e912dc55-5f1b-4bd8-9fbc-cafafee82a05.html?27273