设计师个人介绍ppt:VB6.0如何插入FLASH?可以插入本地的FLASH然后别人电脑也能开启。

来源:百度文库 编辑:高考问答 时间:2024/05/12 06:07:03
请问生成EXE后发给别人,也能打开FLASH吗?

① 添加外部控件Flash.ocx (7.0)或者Flash8b.ocx (8.0)
② 添加代码
Dim swfPath As String
Dim appPath As String
Private Sub Form_Load()
appPath = App.Path & IIf(Len(App.Path) > 3, "\", "")
swfPath = appPath & "1.swf"
With ShockwaveFlash1
.Movie = swfPath
End With
End Sub

③ 解释
appPath 用来获取当前的路径
为了确保别人的电脑也能打开Flash文件,请将Flash控件和swf文件放在编译程序的相同目录下。当然swf文件还可以是当前目录下的子目录