请教各位高手，我在VB中使用FLASH控件载入动画文件正常，但载入后就不再消失，再次调用其他文件时不能正常载入，请教如何清空载入的flash文件，谢谢！



代码如下：
Option Explicit
Dim dh As String

Private Sub Command1_Click()
dh = Text1.Text
Flash.Movie = App.Path + "\flash\" + dh + ".swf"    '要播放的Swf文件路径
Flash.Playing = True
End Sub

Private Sub Form_Load()
End Sub

[此贴子已经被作者于2020-5-26 19:02编辑过]

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