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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 怎么我的VB添加ShockwaveFlash控件后就保存不了啦？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2846 人关注过本帖

标题：怎么我的VB添加ShockwaveFlash控件后就保存不了啦？

只看楼主加入收藏

明2011

等　级：新手上路
帖　子：5
专家分：0
注　册：2011-6-10
结帖率：0

楼主

已结贴√ 问题点数：10 回复次数：5

怎么我的VB添加ShockwaveFlash控件后就保存不了啦？

求高手解决！

2011-06-13 20:10

bczgvip

等　级：贵宾
威　望：66
帖　子：1310
专家分：5312
注　册：2009-2-26

第 2 楼

得分:5

请安装flash的旧版本。

2011-06-13 21:41

wube

等　级：贵宾
威　望：23
帖　子：1820
专家分：3681
注　册：2011-3-24

第 3 楼

得分:0

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

不要選我當版主

2011-06-13 23:56

wube

等　级：贵宾
威　望：23
帖　子：1820
专家分：3681
注　册：2011-3-24

第 4 楼

得分:5

了解〜

不要選我當版主

2011-06-14 01:41

wube

等　级：贵宾
威　望：23
帖　子：1820
专家分：3681
注　册：2011-3-24

第 5 楼

得分:0

楼主要的解答～
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 编辑 ]

不要選我當版主

2011-06-14 19:18

e3bnsd

等　级：新手上路
帖　子：58
专家分：0
注　册：2007-3-29

第 6 楼

得分:0

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

2012-12-02 21:48

快速回复：怎么我的VB添加ShockwaveFlash控件后就保存不了啦？