UC知道VB菜鸟问题~高手请进下
来源：百度知道 编辑：UC知道 时间：2024/05/06 08:01:19
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
If Err <> 32755 Then
Dim OpenFileName As String
OpenFileName = CommonDialog1.FileName
Picture1.Picture = LoadPicture(OpenFileName)
End If
End If
以上为~电脑浏览图片载入。
本人想~如何~可以载入FLASH动画？我知道FLASH动画部件为ShockwaveFlash1
我下面应该怎么改呢？
If CommonDialog1.FileName <> "" Then
If Err <> 32755 Then
Dim OpenFileName As String
OpenFileName = CommonDialog1.FileName
Picture1.Picture = LoadPicture(OpenFileName)
End If
End If
以上为~电脑浏览图片载入。
本人想~如何~可以载入FLASH动画？我知道FLASH动画部件为ShockwaveFlash1
我下面应该怎么改呢？
将Picture1.Picture = LoadPicture(OpenFileName)改为:
ShockwaveFlash1.Movie = OpenFileName
加上CommonDialog1.Filter = "swf文件（*.swf）|*.swf"可以在通用对话框中只显示swf文件
加我的电脑群