我的用户控件—》右键 添加/移除项 —》COM组件—》ShockwaveFlash Object 打勾

属性:

1.AlignMode （读写）

语法：AlignModeAs Long

说明：对齐方式（与SAlign 属性联动）。当控件的长宽比例与影片不一致且 WMode 不为 ExactFit 时，影片（没有被放大的）在控件中显示的位置可用该属性调整。该属性值由标志位组成。如图，将该属性值（二进制）中相 应的位标记为 1 就设置了相应的对齐方向。

属性值与相应的对齐方式（后面括号里是二进制数）

1：左对齐(0001)　　2：右对齐(0010)　　

4：顶对齐(0100)　　8：底对齐(1000)

也可以组合各种对齐方式，同时将两个或以上的位标 记为 1 ，也就是将这四个基本值组合相加。比如同时左对齐和顶对齐，属性值则设为 5（0101）。

例子 ：设置影片为右对齐 ：movie.AlignMode = 2

2.BackgroundColor（读写）

语法：BackgroundColorAs Long

说明：影片的背景色（与BGColor 联动）。以（红× 65536＋绿× 256 ＋蓝）计算颜色值。红绿蓝颜色取 值范围（0-255 ）。默认的影片背景色为 -1。如果影片 设置了底色或有图片当作背景，那么看不出来该属性值的改变会有什么影响 。

例子：将影片背景色设为蓝色 ：

movie.BackgroundColor = 255

3.Base （读写）

语法：Base AsString

说明：指定用于解决影片中所有相对路径的声明的基 地址。当影片与其需要的其他文件不在同一目录中的时候该 属性特别有用。如不特别指定，Base 的值默认为"."，也就 是当前影片所在的路径。

例子 ：

movie.Base =""

4.BGColor （读写）

语法：BGColor AsString

说明：影片的背景色（与BackgroundColor 联动）。与BackgroundColor 不同的是，BGColor 是一个六位的十六进 制数，每两位分别代表红绿蓝颜色值。如：FFEEAA 表示 红色值为 FF、绿色值为 EE 、蓝色值为 AA 。

例子：将影片背景色设为红色 ：

movie.BGColor = "FF0000"

5.DeviceFont （读写）

语法：DeviceFontAs Boolean

说明 ：决定是否使用影片内嵌的字体 ， 默认值为 False 。将该属性值设为 True 则强制播放器不使用影片中 内嵌的字体而使用本地系统字体。

例子：movie.DeviceFont= True

6.EmbedMovie （读写）

语法：EmbedMovieAs Boolean

说明：影片是否被存贮到控件所在的容器中。当你已 载入一个影片后将该属性设为 True ，播放影片时就不必再 去读 SWF 文件了。这使得在PowerPoint 简报或 VB 程序 里使用 Flash 影片更容易。但将该属性设为 True 后，控 件的 Movie 属性就不再接受新的值了。要想播放另一个影片（给 Movie 属性赋新值），必须先将 EmbedMovie 属 性设为 False 。

例子 ：movie.EmbedMovie = True

7.FrameNum （读写）

语法：FrameNum AsLong

说明：影片当前帧的编号 （从 0 开始计数）。设置 该属性值将使影片停在由 FrameNum 指定的帧处。

例子 ：显示当前帧数 ： MsgBox " 当前显示的是第 " & movie.FrameNum & " 帧。"

使影片显示第 10 帧： Bomovie.FrameNum = 9

8.Loop （读写）

语法：Loop AsBoolean

说明：是否循环播放。设为True 是循环播放，设为 False则只播放一次。

例子 ：movie.Loop = True

9.Menu （读写）

语法：Menu AsBoolean

说明：是否显示菜单。设为True 显示所有菜单，设 为 False 菜单被屏蔽，但仍有一项“About Macromedia FlashPlayer...”。如果你实在不喜欢这个菜单，应该在程序中通过拦截鼠标消息的方法来达到目的。与在独立的 F l a s h 播放器中不同的是，在控件的右键菜单里点“About...”的话，将打开浏览器到 Macromedia 的网站上去 看 About 了。

movie.Menu = False

10.Movie （读写）

语法：Movie AsString

说明：要播放的影片路径（URL）。设置该属性为 一个 SWF 文件的 URL 将载入文件并播放它。若影片是在 本地硬盘上，要写成从盘符开始的绝对路径；若影片是在某网站上，也要写全 URL 地址。

例子 ：

movie.Movie=""

或movie.Movie="c:\temp\test.swf"

11.Playing （只读）

语法：Playing AsBoolean

说明：当前播放状态。如果影片正在播放，该属性 值为 True ，否则为 False 。

例子 ： If movie.Playing = False Then MsgBox " 影片已停止播放！ "

EndIf

12.Quality （读写）

语法：Quality AsLong

说明：画面质量（与Quality2 联动）。Quality 可 以取:

0 ——相当于 Quality2 取 "Low"

1 ——相当于 Quality2 取 "High"

2 ——相当于 Quality2 取 "AutoLow"

3 ——相当于 Quality2 取 "AutoHigh" 例子 ： movie.Quality = 1

13.Quality2（读写）

语法：Quality AsString

说明：画面质量(与 Quality 联动)。Quality2 可以取: Low ：偏重于播放速度而不管显示效果，而且不启用消锯齿功能 。