朋友们，很多人可能对求VB中shockwave flas和求VB中shockwave flas不是很了解，所以今天我来和大家分享一些关于求VB中shockwave flas和求VB中shockwave flas的知识，希望能够帮助大家更好地了解这个话题。

本文目录一览

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

先简单介绍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
′设置过滤器,专门打开Flas (swf格式)
CmdDlg.Filter
=
″Flas (
.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

返回目录

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

先简单介绍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
′设置过滤器,专门打开Flas (swf格式)
CmdDlg.Filter
=
″Flas (
.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

返回目录

如果本文的解答对您有所帮助，请在文章结尾处点击“顶一下”以表示您的支持。如果您对本文不满意，也请点击“踩一下”，以便我们改进该篇文章。