怎么我的VB添加ShockwaveFlash控件后就保存不了啦？ - 编程论坛

#2

bczgvip2011-06-13 21:41

请安装flash的旧版本。

#3

wube2011-06-13 23:56

请教一下如何能让SWF档连续播放？怎算档案预计播放时间？

#4

wube2011-06-14 01:41

了解〜

#5

wube2011-06-14 19:18

楼主要的解答～
ShockwaveFlash控件有问题不能手动拉出来～要用动态拉～

程序代码：

Option Explicit

'新建工程,默认的窗体记得拉大一点~~~
Private Sub Form_Load()
Dim tmpCtl As Object

    Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash") '动态添加控件
    Set tmpCtl.Container = Frame1

    tmpCtl.Width = Frame1.Width     '设置外观
    tmpCtl.Height = Frame1.Height

    tmpCtl.Visible = True
    tmpCtl.object.LoadMovie 0, "http://comic."

End Sub

我的问题答案～SWF档不算秒数～算祯数～SWF档连播的代码还在写～玩玩而已～
代码直接复制到一个新工程～拉个Frame控件上去～就能运行～

[ 本帖最后由 wube 于 2011-6-14 19:21 编辑 ]

#6

e3bnsd2012-12-02 21:48

恩，我的也是，工程文件有 ShockwaveFlash 控件，就保存不了。但是能生成 .exe 程序，能带 flash的。我电脑安装了flash8.0 .