Question

求VB中shockwave flash控件的详细用法

Answer 1

先简单介绍Shockwave Flash控件的主要属性和方法(见下表)。
用VB 5.0(中文版)新建一个工程,在工具箱中按右键选“部件”,在部件对话框中选中“Shockwave Flash"控件和“Microsoft Common Dialog Control 5.0"控件。在Form1中拖入一个Flash 控件,命名为skFlash,并拖入一个Common Dialog Control控件,命名为CmdDlg,用于打开文件,然后设置四个命令按钮分别命名为cmdPlay、cmdStop、cmdRewind、cmdOpen,并将其Caption属性分别设为“播放”、“停止”、“从头播放”和“打开”。
　　然后在程序中添加如下代码:
Private Sub Form_Load
′设置过滤器,专门打开Flash动画(swf格式)
CmdDlg.Filter = ″Flash动画( .swf)｜ .swf ″
End Sub
Private Sub cmdOpen_Click
′“打开”按钮代码
CmdDlg.ShowOpen
skFlash.Movie = CmdDlg.filename
End Sub
Private Sub cmdPlay_Click
′“播放”按钮代码
skFlash.Play
End Sub
Private Sub cmdRewind_Click
′“重头播放”按钮代码
skFlash.Rewind
skFlash.Play
End Sub
Private Sub cmdStop_Click
′“停止”按钮代码
skFlash.Stop
End Sub