采用VB自带ShockwaveFlash控件加载

2023年12月2日发(作者：)

采用VB自带ShockwaveFlash控件加载。VB和Flash动画之间的交互可以通过该控件的FSCommand 事件调用Flash动画中设置的参数来实现。

插入Flash动画,控制其播放的核心代码为：

Private sub command1_click()

'开始播放Flash动画

End sub

Private sub command2_click()

'停止播放Flash动画

End sub

Private sub command3_click() '移动到Flash动画的上一帧

um=um-1

End sub

Private sub command4_click() '移动到Flash动画的下一帧

um=um+1

End sub

Private Sub Form_Load()

= '控制Flash动画全屏播放

=

= idth

= eight

= 0

= 0

= + “”

End Sub

VB与Flash交互的核心代码为：

Flash控制VB

假设我们在Flash中制作了一个按钮，并且在按钮的on事件中编写了以下代码：

On(release){

Fscommand(“name”);

}

在VB中用shockwaveflash控件加载这个Flash后，我们就可以在这个控件的Fscommand事件中编写以下代码来用上述Flash按钮来控制VB程序，核心代码如下：

Private Sub fladaohang_FSCommand(ByVal command As String, ByVal args As String)

If command=“name” then

'此处为VB语句

End if

End Sub

用VB控制Flash

主要是通过用VB调用Flash的ActionScript来实现，核心代码示例为：Call

vie(0, CurDir + “/”)