Question

如何在vb中通过按钮控制flash的播放停止？

我想在 vb中通过一个按钮控制flash.swf 的播放和停止，好比开门、关门的flash动画，我这个动画有2帧 我现在想在vb中实现用一个按钮控制控制门的开关，当我点下按钮时门开 在点下按钮门关。我需要的是vb的代码，而不是flash的代码。
Dim aa(0 To 2) As Boolean
Dim aa_limit(0 To 2) As Boolean
_______________________________
Private Sub Command1_Click()
aa(0) = True
End Sub
____________________________
Private Sub Command2_Click()
aa(1) = True
End Sub
____________________________
Private Sub Form_Load()
Command1.Caption = "左粗料仓门开"
Command2.Caption = "左粗料仓门关"
End Sub
________________________________
Private Sub Timer1_Timer()
If aa(0)=true Then ShockwaveFlash1.Play
aa(0) = False
If aa_limit(0) Then
aa(0) = False
If aa(1)=true Then ShockwaveFlash1.Play
aa(1) = False
If aa_limit(1) Then
aa(1) = False
我想实现一个按钮控制开 一个按钮控制关 当开的时候检测开到位 这时在按下开的按钮还是停在开的动作上 同理在按下关的按钮 门关了 点击门关的按钮时还是停在门关的动作上（以上的代码不能实现开和关的到位检测 希望哪位大哥大姐帮帮忙啊）

Answer 1

音乐做在影片剪辑中，同步属性设为“数据流”，拖入场景后命名为music，然后在按钮上加上动作：
on (release) {
var a:Boolean;
if (a) {
music.play();
} else {
music.stop();
}
a = !a;
}

Answer 2

http://cid-71aedd71a45f4184.office.live.com/self.aspx/.Documents/Program/VB/%e6%ba%90%e7%a0%81/aa.rar
我做好了，要给你你下了，上面是我上传到网盘的下载地址

Answer 3

先把两个软件连接起来 在flash上打代码ShockwaveFlash1.StopPlay
或
ShockwaveFlash1.Stop

Answer 4

二个是联合的..FLASH也要有代码..

不过一般你可以用
ShockwaveFlash1.Play