flash控件AxShockwaveFlashObjects - 下载频道 - CSDN.NET
&&&&flash控件AxShockwaveFlashObjects
&flash控件AxShockwaveFlashObjects
用于flash的运用C#编程嵌入flash可用此控件控件
//fileName为FLASH文件路径+FLASH文件名
fileName=oDialog.FileN
this.axShockwaveFlash1.Movie=fileN
this.axShockwaveFlash1.Play();
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
您可能还需要
Q.为什么我点的下载下不了，但积分却被扣了
A. 由于下载人数众多，下载服务器做了并发的限制。若发现下载不了，请稍后再试，多次下载是不会重复扣分的。
Q.我的积分不多了，如何获取积分？
A. 获得积分，详细见。
完成任务获取积分。
评价资源返积分。
论坛可用分兑换下载积分。
第一次绑定手机，将获得5个C币，C币可。
下载资源意味着您已经同意遵守以下协议
资源的所有权益归上传用户所有
未经权益所有人同意，不得将资源中的内容挪作商业或盈利用途
CSDN下载频道仅提供交流平台，并不能对任何下载资源负责
下载资源中如有侵权或不适当内容，
本站不保证本站提供的资源的准确性，安全性和完整性，同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
开发技术下载排行
积分不够下载该资源
如何快速获得积分？
你下载资源过于频繁，请输入验证码
如何快速获得积分？
你已经下载过该资源，再次下载不需要扣除积分
flash控件AxShockwaveFlashObjects
所需积分：1
剩余积分：
VIP会员，免积分下载
会员到期时间：日
剩余下载次数：1000
VIP服务公告:如何在PPT中实现Flash播放控制
在PowerPoint中插入Flash动画可以采用控件来实现，不过，如果插入的Flash动画本身不包括控制按钮，而你又想控制动画暂停或继续播放，该怎么实现呢？
　　首先确保系统中已经安装了Shockwave Flash Object插件（只要IE中可以播放Flash动画就表明已经安装）。
　　启动PowerPoint ，用控件工具将需要插入的Flash动画插入进来。
　　在控件工具箱中将命令按钮拖动两个到幻灯片中，其名称分别为CommandButton1和CommandButton2，分别用右键点击它们，在属性窗口中将Caption改为&暂停&、&播放&。
　　双击&暂停&按钮，在代码窗口中输入&Slide1.shockwaveFlash1.Stop&，保存后双击&播放&按钮，在代码窗口中输入&Slide1.shockwaveFlash1.Play&。
　　关闭代码编写返回幻灯片中，播放幻灯片，检查一下，按钮是不是起作用了?
问题：在powerpoint中，通过添加&shockwave flash object&控件，可以播放swf格式文件(flash制作的动画文件)[1]，能大大增强了powerpoint的表现力。但如果想在播放过程中想 &暂停&、&后退&、&快进&等，需要右击控件，用弹出菜单来实现比较麻烦，能不能自已制作一些控制swf文件的播放按钮呢？
答：可以。方法如下：
(1) 在&控件工具箱&单击&命令按钮&，然后在&shockwave flash object&控件下画出添加六个命令按钮。
(2) 右击其中一个按钮，从弹出菜单单击&属性&，打开属性对话框，依次把这些按钮的&Caption&属性分别改为&播放&、&暂停&、&最前&、&向前&、&向后&、&最后&。
(3) 双击&播放&按钮，在代码对话框的Private Sub CommandButton1_Click()和End Sub之间输入以下代码：ShockwaveFlash1.Playing = true
(4) 双击&暂停&按钮，输入代码：ShockwaveFlash1.Playing = False
(5) 双击&最前&按钮，输入代码：ShockwaveFlash1.FrameNum = 1
(6) 双击&向前&按钮，输入代码：ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum & 50
(7) 双击&向后&按钮，输入代码：ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum +50
(8) 双击&最后&按钮，输入代码：
Dim a As Integer
For a = 1 To 1000
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 1
If a & ShockwaveFlash1.FrameNum Then ShockwaveFlash1.Playing = False Else ShockwaveFlash1.Playing = True
做好这些按钮后，在powerpoint的播放状态下控制swf文件的播放就方便多了。不足的是，按下&最后&按钮时，执行起来要较长的时间，原因 &最后&按钮执行了一个循环语句，是当无法获知swf文件的总桢数时，只好如此。当执行完这个命令后，退出powerpoint播放状态，打开 &shockwave flash object&控件的&属性&对话框(单击&shockwave flash object&控件，按F4键)，查看&Frame&右边的数字(如图3)，就是swf文件的总桢数，本例是670，这时把&最后&按钮原来输入的代码删除，换为代码：ShockwaveFlash1.FrameNum = 670，再到powerpoint播放状态下播放时，&最后&按钮中命令的执行起来就快多了。
很多时候，我们需要添加一些flash动画来使我们的幻灯片更加生动、美观和具有说服力。但是Powerpoint中没有提供类似插入图片那样直接的功能。那么如何在PPT中插入flash动画影片呢？
　　下面我来教你四种方法：
　　方法一
　　将扩展名为. SWF的Flash动画文件插入PPT
　　---插入一个由文件创建的对象
　　---在&动作设置&中的&对象动作&选项中选择&激活内容&
　　方法二
　　将Flash生成的. exe动画文件插入PPT
　　1、先插入一图片
　　2、该图片&动作设置&中的&单击鼠标&选项中选择&运行程序&，并指定文件路径和文件名
　　注意：用这个方法时，一定要把在PPT菜单&工具&－&&选项&&&&安全性&－&&宏安全性&的&安全级&选项变为&低&。不然的话，每次演示都会弹出个警告框。
　　方法三
　　利用Active X控件插入动画
　　---选择&视图&－&&工具栏&－&&控件工具箱&
　　---点击&其它工具图标&，从下拉列表中选择&ShockWave Flash Object&选项，鼠标变成&＋&形状，将其拖动即出现Flash控件图形。
　　---单击&控件工具箱&上的&属性&按钮，打开属性对话框。
　　---选择&自定义&，单击&浏览&按钮，在弹出的对话框中的&Movie URL&中输入. swf文件路径及名称，并调整&play&，&quality&，&loop&等其它属性。
　　方法四
　　利用插入超链接
　　1. 运行PowerPoint程序，打开要插入动画的幻灯片。
　　2. 在其中插入任意一个对象，比如一段文字、一个图片等。目的是对它设置超链接。最好这个对象与链接到的动画的内容相关。
　　3. 选择这个对象，点击&插入&菜单，在打开的下拉菜单中单击&超级链接&。
　　4. 弹出的窗口中，&链接到&中选择&原有文件或Web页&，点击&文件&按钮，选择到想插入的动画，点击&确定&完成。播放动画时只要单击设置的超链接对象即可。
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------怎么把flash 打包到dll 中，然后利用 ShockwaveFlash1控件播放 - Delphi当前位置:& &&&怎么把flash 打包到dll 中，然后利用 ShockwaveFlas怎么把flash 打包到dll 中，然后利用 ShockwaveFlash1控件播放&&网友分享于：&&浏览：30次如何把flash 打包到dll 中，然后利用 ShockwaveFlash1控件播放有个技术问题困扰我多时，就是如何把flash 打包到dll 中，然后利用 ShockwaveFlash1控件播放？希望大侠们帮助一下。我是这样做的：例如：把 flashaa
& 存为 flashaa.rc通过bcb6.0命令 brcc32做成flashaa.lib再通过bcb6.0编译出一个 flashaa.dll 的资源文件可是想了很多办法不知道如何调用flashaa.dll中的aa.swf ，希望赐教一下。谢了先------解决方案--------------------利用资源文件.
------解决方案--------------------不会，不过还是要顶一下
------解决方案-------------------- 资源文件
.ico .wav 等程序经常用到的可放到.res文件 主程序再调用 速度更快
------解决方案--------------------可以把资源文件抽取出来存成临时磁盘文件，然后加载播放。
------解决方案--------------------var memoryStream: TMemoryS resStream: TSbegin Stream := TResourceStream.Create(HInstance, ResName, PChar('swf'));
//resName是资源打包时资源标示 memoryStream := TMemory.C try
memoryStream.LoadFromStream(resStream);
memoryStream.SaveToFile(fileName);
//比如存在本地某地方，程序退出时可以清理掉 finally
memoryStream.F
Stream.F如果ShockwaveFlash控件有提供直接从Steam加载接口，就没有必要存成磁盘文件，找找看其技术文档。
------解决方案--------------------/workshop/networking/predefined/res.asp
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有我在vb里弄了1个Flash控件但是不能保存网上说要安装更低版本的Flash控件但是却安装不了怎样办？_百度知道
我在vb里弄了1个Flash控件但是不能保存网上说要安装更低版本的Flash控件但是却安装不了怎样办？
提问者采纳
首先尝试的是卸载电脑中的FlashCS4，安装了旧版本的Flash8，但是仍旧没有解决，后来在张信秀童鞋的指点下，我发现删除的应当是VB调用的flash11g.ocx控件（每一个电脑更新程度不同，但是肯定高于VB要求的版本）。使用VB开发软件时，如果有关于flash的控件，则超过Flash85版本的控件势必引发毛病，令VB的工程没法保存，解决这个问题，只能卸载新版本的Flash插件，下载Flash85.ocx，将其拷贝到C:\Windows\System32\Macromed\Flash目录内，然后再在运行里运行regsvr32C:\Windows\System32\Macromed\Flash\Flash85.ocx进行注册便可解决问题。另外，我在注册时还遇到了模块以加载但Dllregisterserver不能调用的问题，这个只要以管理员身份运行命令提示符就行了谢谢
查看原帖&&
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁ShockwaveFlash？ - VB讨论区 - 技术论坛 - 源码天空
→ ShockwaveFlash？
ganqianjun
ShockwaveFlash？
ShockwaveFlash怎么用啊，请具体一点，谢谢
俺是菜鸟大哥
呵呵,刚刚看到一个,只好粘过来给你了.一、编程原理　　本程序利用了Flash4本身自带播放Flash动画的控件Swflash.ocx。你可以通过以下途径获得该控件：1、安装Flash4；2、安装Windows98自带的Flash插件，方法：依次单击“开始”菜单－“设置”－“控制面板”－“添加/删除程序”－“Windows 安装程序”－“多媒体”－“详细资料”－选中“Macromedia Shockwave Flash”前的复选框确定即可。以上方法都会将该控件安装到Windows目录下的System\Macromed\Flash子目录下。　　二、示例程序　　下面就是一个用Swflash.ocx控件编写的Flash动画播放器。本程序可一次打开多个Flash动画文件，并可在播放过程中选择播放打开的文件、随时改变播放质量、画面大小等状态；在播放过程中可以随时对播放的当前帧数进行调整或者手动进行逐帧播放，在状态栏里有当前播放状态的相关说明。在实现以上功能时，几乎用全了Swflash.ocx控件的主要属性、方法。　　编程过程如下：　　1、窗体、界面设计。　　新建工程，选择“工程”菜单下的“部件”命令，在“部件”窗口的“控件”列表中将“Shockwave flash”、“Microsoft Common Dialog Control 6.0 (SP3)”、“Microsoft Windows Common Control 6.0 (SP3)”前的复选框选中，然后确定。再在窗体中分别加入1个CommonDialog控件、1个Slider控件、3个Label控件、6个CommandButton控件和1个Status Bar控件。其中：　　将Form1的“Caption”属性设置为：Flash动画播放器。这是控制窗口。　　将CommonDialog1的CancelError设置为True，DialogTitle设置为“打开Flash动画文件”，Filter属性设置为“Flash动画（＊.swf）|＊.swf|”，FilterIndex设置为1，MaxFileSize设置为10240。　　将Slider1的SelectRanger的属性设置为“True”，SmallChange属性和LargeChange属性设置为10，TickFrequengcy属性设置为20，TextPosition设置为“1 － SldBelowRight”。　　将Label(1－3)分别放在Slider1下的左端、中间和右端。其中，Label1的Caption设置为“0帧”，Label2和Label3的Caption设置为空字符串。　　6个CommandButton的“名称”属性分别为：cmdOpen、cmdPlay、cmdPause、cmdPre、cmdPreFrame、cmdNextFrame、cmdNext、cmdExit，“Caption”属性分别为：打开、播放、暂停、上一个、上一帧、下一帧、下一个、退出。　　在Status Bar上单击鼠标右键，选择“属性”，从弹出的窗口中选择“窗格”页面，用鼠标点击“插入窗格”5次，在索引1－5中分别设置“文本”属性为：“共打开了0个文件”、“状态：”、“等待”、“帧数：”、“0”，再适当设置每一项的“最小宽度”的属性（可参考图1中的比例）。　　　　进入菜单编辑器（按快捷键Ctrl＋E）。设置第一个菜单标题为“显示控制”，名称为：mnuDisplay；在“显示控制”下设立子菜单标题分别为“全部显示”、“随窗口大小变化”、“缩放至窗口大小”，名称分别为：mnuDisplay0、mnuDisplay1、mnuDisplay2。设置第二个菜单标题为“质量控制”，名称为：mnuQuality；在“质量控制”下设立子菜单标题分别为“低分辨率”、“高分辨率”，名称分别为：mnuQuality0、mnuQuality1。设置第三个菜单标题为“播放控制”，名称为：mnuPlayControl；在“播放控制”下设立子菜单标题分别为“循环播放”、“放大画面”、“缩小画面”，名称分别为：mnuLoopPlay、mnuZoomIn、mnuZoomOut。　　选择“工程”菜单下的“添加窗体”命令，新增一个窗体Form2作为播放窗口。在Form2上加入1个ShockwaveFlash控件和1个Timer控件。将Timer1控件的“Interval”属性设置为“20”。　　最后，对各窗体、控件的大小、位置进行适当的调整，其大小、位置可参考图1。　　2、程序代码　　第一步：在Form1的代码窗口中添加以下代码：　　Dim FileNames() As String 注释：用于保存打开的文件名称。　　Dim PlayFileNum As Integer 注释：用于计算正在播放的文件序号。　　Dim TotalFile As Integer 注释：用于统计打开的文件总数。　　Private Sub cmdOpen_Click() 注释：打开　　On Error GoTo ExitOpen　　CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNFileMustExist Or cdlOFNExplorer　　CommonDialog1.FileName = ″"　　CommonDialog1.ShowOpen 注释：显示“打开”对话框。　　 注释：以vbNullChar作为子字符串的边界分隔字符串CommonDialog1返回的FileName。　　FileNames() = Split(CommonDialog1.FileName, vbNullChar)　　If UBound(FileNames) = 0 Then 注释：用户只打开了一个文件。　　Form2!ShockwaveFlash1.Movie = FileNames(0)　　TotalFile = 1　　PlayFileNum = 0　　Else 注释：用户打开了多于一个文件。　　Form2!ShockwaveFlash1.Movie = FileNames(0) ＋ ″\″ ＋ FileNames(1)　　TotalFile = UBound(FileNames)　　PlayFileNum = 1　　End If　　StatusBar1.Panels(1).Text = ″共打开了″ ＋ Trim(Str(TotalFile)) ＋ ″个文件″　　cmdPlay_Click　　ExitOpen:　　End Sub　　Private Sub cmdPlay_Click() 注释：开始播放　　If TotalFile & 1 Then Exit Sub 注释：用户还没有打开文件。　　注释：显示Form2开始播放动画。　　Form2.Caption = FileNames(PlayFileNum) ＋ ″ － Flash动画播放器″　　Form2.Show　　Form2!ShockwaveFlash1.Playing = True　　If TotalFile = 1 Then PlayFileNum = 0　　注释：显示状态条的信息。　　StatusBar1.Panels(3).Text = ″正在播放文件：″ ＋ FileNames(PlayFileNum) ＋ ″ ...″　　注释：显示滑动条的状态。　　Slider1.Max = Form2!ShockwaveFlash1.TotalFrames　　Label2.Caption = Str(Slider1.Max / 2) ＋ ″帧″　　Label3.Caption = Str(Slider1.Max) ＋ ″帧″　　End Sub　　Private Sub cmdPause_Click() 注释：暂停播放　　Form2!ShockwaveFlash1.Stop　　End Sub　　Private Sub cmdPre_Click() 注释：播放上一个文件　　If TotalFile && 1 Then 注释：当用户打开多于一个文件时　　PlayFileNum = PlayFileNum － 1　　If PlayFileNum & 1 Then PlayFileNum = TotalFile　　Form2!ShockwaveFlash1.Movie = FileNames(0) ＋ ″\″ ＋ FileNames(PlayFileNum)　　End If　　注释：显示播放状态的信息。　　StatusBar1.Panels(3).Text = ″正在播放文件：″ ＋ FileNames(PlayFileNum) ＋ ″ ...″　　Slider1.Max = Form2!ShockwaveFlash1.TotalFrames　　Form2.Caption = FileNames(PlayFileNum) ＋ ″ － Flash动画播放器″　　Label2.Caption = Str(Slider1.Max / 2) ＋ ″帧″　　Label3.Caption = Str(Slider1.Max) ＋ ″帧″　　End Sub　　Private Sub cmdNext_Click() 注释：播放下一个文件　　If TotalFile && 1 Then 注释：用户打开多于一个文件时　　PlayFileNum = PlayFileNum ＋ 1　　If PlayFileNum&TotalFile Then PlayFileNum = 1　　Form2!ShockwaveFlash1.Movie = FileNames(0) ＋ ″\″ ＋ FileNames(PlayFileNum)　　End If　　注释：显示播放状态的信息。　　StatusBar1.Panels(3).Text = ″正在播放文件：″ ＋ FileNames(PlayFileNum) ＋ ″ ...″　　Slider1.Max = Form2!ShockwaveFlash1.TotalFrames　　Form2.Caption = FileNames(PlayFileNum) ＋ ″ － Flash动画播放器″　　Label2.Caption = Str(Slider1.Max / 2) ＋ ″帧″　　Label3.Caption = Str(Slider1.Max) ＋ ″帧″　　End Sub　　Private Sub cmdPreFrame_Click() 注释：跳到动画的上一帧　　Form2!ShockwaveFlash1.Back　　End Sub　　Private Sub cmdNextFrame_Click() 注释：跳到动画的下一帧　　Form2!ShockwaveFlash1.Forward　　End Sub 　　Private Sub cmdExit_Click() 注释：退出程序　　End　　End Sub　　Private Sub Slider1_Scroll()　　注释：当用户拖动滑动条时，将播放帧数设置为滑动条中的值。　　Form2!ShockwaveFlash1.FrameNum = Slider1.Value　　End Sub　　Private Sub mnuDisplay0_Click()　　注释：将画面大小设置为在控件内保持动画原来比例全部显示　　Form2!ShockwaveFlash1.ScaleMode = 0　　mnuDisplay0.Checked = True　　mnuDisplay1.Checked = False　　mnuDisplay2.Checked = False　　End Sub　　Private Sub mnuDisplay1_Click()　　注释：将画面的缩放设置为随控件横向（或纵向）的缩放而变化　　Form2!ShockwaveFlash1.ScaleMode = 1　　mnuDisplay0.Checked = False　　mnuDisplay1.Checked = True　　mnuDisplay2.Checked = False　　End Sub　　Private Sub mnuDisplay2_Click()　　注释：将画面大小设置为不理会动画原来比例缩放至控件大小　　Form2!ShockwaveFlash1.ScaleMode = 2　　mnuDisplay0.Checked = False　　mnuDisplay1.Checked = False　　mnuDisplay2.Checked = True　　End Sub　　Private Sub mnuLoopPlay_Click()　　注释：将播放方式设置为循环或不循环。　　mnuLoopPlay.Checked = Not mnuLoopPlay.Checked　　Form2!ShockwaveFlash1.Loop = Not Form2!ShockwaveFlash1.Loop　　End Sub　　Private Sub mnuQuality0_Click()　　注释：将画面质量设置为低分辨率　　Form2!ShockwaveFlash1.Quality = 0　　mnuQuality0.Checked = True　　mnuQuality1.Checked = False　　End Sub 　　Private Sub mnuQuality1_Click()　　注释：将画面质量设置为高分辨率　　Form2!ShockwaveFlash1.Quality = 1　　mnuQuality0.Checked = False　　mnuQuality1.Checked = True　　End Sub　　Private Sub mnuZoomIn_Click()　　注释：放大画面。　　Form2!ShockwaveFlash1.Zoom (50)　　End Sub　　Private Sub mnuZoomOut_Click()　　注释：缩小画面。　　Form2!ShockwaveFlash1.Zoom (200)　　End Sub　　Private Sub Form_Unload(Cancel As Integer)　　End 注释：结束程序　　End Sub　　第二步：在Form2的代码窗口中添加以下代码：　　Private Sub Form_Resize()　　注释：将ShockwaveFlash1控件的大小设置为Form2的大小。　　ShockwaveFlash1.Top = Form2.ScaleTop　　ShockwaveFlash1.Left = Form2.ScaleLeft　　ShockwaveFlash1.Width = Form2.ScaleWidth　　ShockwaveFlash1.Height = Form2.ScaleHeight　　End Sub　　Private Sub Timer1_Timer()　　注释：在状态栏和滑动条上显示当前播放的帧。　　Form1!StatusBar1.Panels(5).Text = Str(ShockwaveFlash1.FrameNum)　　Form1!Slider1.Value = ShockwaveFlash1.FrameNum　　End Sub
俺是菜鸟大哥
FLASH是一种矢量格式的动画文件，可以包含动画、声音、超文本链接，而文件的体积却很小。在网页上使用FLASH可以做出很漂亮的动画和动态菜单条。你想在VB程序里作出类似的效果吗？在VB中使用FLASH自带的Swflash.ocx控件就可以了。方法如下：首先，打开VB，新建一个工程，在工具箱上单击鼠标右键，选择部件，在部件窗口的控件列表中选择Shockwave flash，然后确定， Flash控件就被加到工具箱上了。然后将Flash控件放到窗体上，并调整至适当的大小，然后在属性窗口中设置movie属性为Flash动画所在的路。双击窗体在窗体的Load事件中加入下面的代码：shockwaveflash1.playing=true按F5就可以看到播放的Flash动画了。（注意，编译后的可执行文件不包含动画文件）如果动画里加上动态按钮，就可以作成动态工具条或动态菜单了。FLASH控件主要属性列表属性 值 含义 Scale Model 0 全部显示 1 随控件大小变化 2 缩放至控件大小 Quality 0 低分辨率 1 高分辨率 2 自动降低分辨率 3 自动升高分辨率 Loop True 循环播放 False 不循环播放 Playing True 播放 False 停止 Movie&& 要播放的动画文件路径 Menue True 显示快捷菜单（运行时在动画上点右键） False 不显示快捷菜单（实际上还是要显示一个About Flash...)
楼上果然是菜鸟,控件还用flash4的,从哪里拷贝的代码??
版权所有 &
保留所有权力 &&