相关URL: http://www.medialab.com/psd2fla/
下载地址: http://www.medialab.com/psd2fla/psd2fla.exe 42. swf、pdg、ppt用什么软件来打开运行? swf是用flash软件打开的 pdg用超星阅读器打开的
ppt是用办公软件打开的(Microsoft PowerPoint)
43. ppt中插入的swf文件如何从指定处开始播放?
可以用VBA代码来限制开始播放的帧数,怎么编写VBA代码下面有一段在网上引用的教程:
1、窗体、界面设计。
新建工程,选择“工程”菜单下的“部件”命令,在“部件”窗口的“控件”列表中将“Shockwaveflash”、“MicrosoftCommonDialogControl6.0(SP3)”、“MicrosoftWindowsCommonControl6.0(SP3)”前的复选框选中,然后确定。再在窗体中分别加入1个CommonDialog控件、1个Slider控件、3个Label控件、6个CommandButton控件和1个StatusBar控件。其中:
将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”属性分别为:打开、播放、暂停、上一个、上一帧、下一帧、下一个、退出。 在StatusBar上单击鼠标右键,选择“属性”,从弹出的窗口中选择“窗格”页面,用鼠标点击“插入窗格”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的代码窗口中添加以下代码:
DimFileNames()AsString注释:用于保存打开的文件名称。
DimPlayFileNumAsInteger注释:用于计算正在播放的文件序号。 DimTotalFileAsInteger注释:用于统计打开的文件总数。
PrivateSubcmdOpen_Click()注释:打开 OnErrorGoToExitOpen
CommonDialog1.Flags=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorer CommonDialog1.FileName=〃\
CommonDialog1.ShowOpen注释:显示“打开”对话框。
注释:以vbNullChar作为子字符串的边界分隔字符串CommonDialog1返回的FileName。 FileNames()=Split(CommonDialog1.FileName,vbNullChar)
IfUBound(FileNames)=0Then注释:用户只打开了一个文件。 Form2!ShockwaveFlash1.Movie=FileNames(0) TotalFile=1 PlayFileNum=0
Else注释:用户打开了多于一个文件。
Form2!ShockwaveFlash1.Movie=FileNames(0)+〃\\〃+FileNames(1) TotalFile=UBound(FileNames) PlayFileNum=1 EndIf
StatusBar1.Panels(1).Text=〃共打开了〃+Trim(Str(TotalFile))+〃个文件〃 cmdPlay_Click ExitOpen: EndSub
PrivateSubcmdPlay_Click()注释:开始播放
IfTotalFile<1ThenExitSub注释:用户还没有打开文件。 注释:显示Form2开始播放动画。
Form2.Caption=FileNames(PlayFileNum)+〃-Flash动画播放器〃 Form2.Show
Form2!ShockwaveFlash1.Playing=True IfTotalFile=1ThenPlayFileNum=0 注释:显示状态条的信息。
StatusBar1.Panels(3).Text=〃正在播放文件:〃+FileNames(PlayFileNum)+〃...〃 注释:显示滑动条的状态。
Slider1.Max=Form2!ShockwaveFlash1.TotalFrames Label2.Caption=Str(Slider1.Max/2)+〃帧〃 Label3.Caption=Str(Slider1.Max)+〃帧〃 EndSub
PrivateSubcmdPause_Click()注释:暂停播放 Form2!ShockwaveFlash1.Stop EndSub
PrivateSubcmdPre_Click()注释:播放上一个文件
IfTotalFile<>1Then注释:当用户打开多于一个文件时 PlayFileNum=PlayFileNum-1
IfPlayFileNum<1ThenPlayFileNum=TotalFile
Form2!ShockwaveFlash1.Movie=FileNames(0)+〃\\〃+FileNames(PlayFileNum) EndIf
注释:显示播放状态的信息。
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)+〃帧〃 EndSub
PrivateSubcmdNext_Click()注释:播放下一个文件 IfTotalFile<>1Then注释:用户打开多于一个文件时 PlayFileNum=PlayFileNum+1
IfPlayFileNum>TotalFileThenPlayFileNum=1
Form2!ShockwaveFlash1.Movie=FileNames(0)+〃\\〃+FileNames(PlayFileNum) EndIf
注释:显示播放状态的信息。
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)+〃帧〃 EndSub
PrivateSubcmdPreFrame_Click()注释:跳到动画的上一帧 Form2!ShockwaveFlash1.Back EndSub
PrivateSubcmdNextFrame_Click()注释:跳到动画的下一帧 Form2!ShockwaveFlash1.Forward EndSub
PrivateSubcmdExit_Click()注释:退出程序 End EndSub
PrivateSubSlider1_Scroll()
注释:当用户拖动滑动条时,将播放帧数设置为滑动条中的值。 Form2!ShockwaveFlash1.FrameNum=Slider1.Value EndSub
PrivateSubmnuDisplay0_Click()
注释:将画面大小设置为在控件内保持动画原来比例全部显示 Form2!ShockwaveFlash1.ScaleMode=0 mnuDisplay0.Checked=True mnuDisplay1.Checked=False mnuDisplay2.Checked=False EndSub
PrivateSubmnuDisplay1_Click()
注释:将画面的缩放设置为随控件横向(或纵向)的缩放而变化 Form2!ShockwaveFlash1.ScaleMode=1 mnuDisplay0.Checked=False mnuDisplay1.Checked=True
mnuDisplay2.Checked=False EndSub
PrivateSubmnuDisplay2_Click()
注释:将画面大小设置为不理会动画原来比例缩放至控件大小 Form2!ShockwaveFlash1.ScaleMode=2 mnuDisplay0.Checked=False mnuDisplay1.Checked=False mnuDisplay2.Checked=True EndSub
PrivateSubmnuLoopPlay_Click()
注释:将播放方式设置为循环或不循环。
mnuLoopPlay.Checked=NotmnuLoopPlay.Checked
Form2!ShockwaveFlash1.Loop=NotForm2!ShockwaveFlash1.Loop EndSub
PrivateSubmnuQuality0_Click() 注释:将画面质量设置为低分辨率 Form2!ShockwaveFlash1.Quality=0 mnuQuality0.Checked=True mnuQuality1.Checked=False EndSub
PrivateSubmnuQuality1_Click() 注释:将画面质量设置为高分辨率 Form2!ShockwaveFlash1.Quality=1 mnuQuality0.Checked=False mnuQuality1.Checked=True EndSub
PrivateSubmnuZoomIn_Click() 注释:放大画面。
Form2!ShockwaveFlash1.Zoom(50) EndSub
PrivateSubmnuZoomOut_Click() 注释:缩小画面。
Form2!ShockwaveFlash1.Zoom(200) EndSub
PrivateSubForm_Unload(CancelAsInteger) End注释:结束程序 EndSub
第二步:在Form2的代码窗口中添加以下代码: PrivateSubForm_Resize()
注释:将ShockwaveFlash1控件的大小设置为Form2的大小。 ShockwaveFlash1.Top=Form2.ScaleTop ShockwaveFlash1.Left=Form2.ScaleLeft ShockwaveFlash1.Width=Form2.ScaleWidth ShockwaveFlash1.Height=Form2.ScaleHeight
EndSub
PrivateSubTimer1_Timer()
注释:在状态栏和滑动条上显示当前播放的帧。
Form1!StatusBar1.Panels(5).Text=Str(ShockwaveFlash1.FrameNum) Form1!Slider1.Value=ShockwaveFlash1.FrameNum EndSub
第三步:调试、运行程序,运行界面如图2所示。
当播放Flash动画时,在播放窗口中单击鼠标右键时,将会弹出如图3所示的菜单。在该菜单,我们可以完成控制Flash动画播放的大部份工作。若想取消该功能,只要将Shockwaveflash控件的Menu属性设置为False即可。
44. 有没有可以把ppt转swf,并保留动画的软件? 用屏幕录像工具,如macromedia的captive,或者别的。基本都是保存成swf的,当然也有一些会保存成exe,你看清楚选择就好。
45. 如何将flash格式和幻灯片格式转成VCD格式的影片? 一款可以把Flash动画转换成VCD的软件。 将Flash动画刻录成VCD
软件名片:SWF2Video Pro V1.0.1.2
下载地址:http://www.cbifamily.com/down/200412/flash/swf2video.rar
特色功能:可以将Flash文件(swf)转换为AVI格式,支持对音频,视频的设置,包括视频压缩。SWF2Video Pro新增对用Flash MX制作的SWF格式文件的支持;并支持批量转换;可以将SWF文件输出为GIF、PNG、TGA格式的图像序列
软件缺憾:设置较为简单,简单转换尚可;专业应用功能略显不足
诙谐、幽默而又小巧的Flas动画是互联网上最为流行的动画形式,并且有许多免费资源供动漫爱好者下载。遗憾的是,现在电脑网络的普及率问题,许多人还无法直接欣赏到这些可爱的小动画,而电视和VCD机却已相当普及,如果我们能把Flash动画刻录成VCD,就可以让更多的人通过不同的途径享受到电脑网络给人们生活带来的乐趣。SWF2Video Pro是一个非常方便的将Flash转换成AVI文件的软件,操作简单,效果优秀。在各大网站的下载排行榜上都有很好的成绩。下面让我们来体会一下吧! 操作步骤:
把Flash动画刻录成VCD,需要先把下载的Flash动画格式转换成AVI格式,然后通过视频编辑软件进行简单的编辑,转换成VCD的MPGE-1格式,再刻录成VCD光盘。 Step1:将SWF格式的Flash动画转换成AVI文件
运行Swf2Video Pro,点击菜单栏的“打开”,导入一个swf格式的Flash文件。点击“控制/搜索模式”,找到并记住真正需要开始转换的“当前帧”和“结束帧”,便于删去Flash动画开头的“load……”等不需的画面。
点击“文件/创建AVI”,确定AVI文件的名称和路径后,进入“AVI输出选项”窗口,对AVI文件进行一些设置,如图2所示。持续时间:填入通过“搜索模式”确定的“当前帧”和“结束帧”,掐头去尾,控制转换的范围,只选最精彩的;尺寸:取消“使用原始文档大小”,填入352和288,并保留“保持纵横比”,否则有可能使画面变形;视频:选用“未压缩”,以保证AVI文件的质量;也可通过点击“选择”按钮打开“视频压缩”窗口,在“压缩程序”中选择一种压缩方法,如“MicrosoftVideo 1”,这样转换后的AVI文件会小很多;音频:如选用Flash动画本身的声音,则需将“记录用音量”调高,以保证转换后的音量,也可选择音频的品质,如“44100HZ,16位,立体声”、“11025HZ,8位,立体声”等。设置完成后,按“确定”就开始转换,先转换音频再转换视频。