具才软件 教育综合 学科资源 具才视界 站主习作
工具软件 图片频道 本站消息 电脑手机 故乡渭源

当前位置:具才苑资料频道电脑手机软件应用


课件制作培训材料144则(二)

作者:佚名  来源:本站整理
发布/更新时间:2010-10-19 12:01:40



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位,立体声”等。设置完成后,按“确定”就开始转换,先转换音频再转换视频。

Step2:用Nero刻录软件将AVI文件刻录成VCD

对转换成AVI格式的Flash动画,我们可以用视频编辑软件,如“会声会影”、“VideoPack 5”、甚至是“Premiere”等进行编辑,添加标题、字幕、过渡等效果,这样可以使VCD看上去更加精彩、更加专业。如果我们不需要编辑,就可以直接利用Nero刻录软件将AVI文件刻录成VCD,非常方便。运行“Nero

Express”,选择“视频/图片”,再选择“Video CD”,进入“我的视频CD(VCD)”窗口,点击“添加”,选择并添加需要刻录的AVI文件,然后进入菜单编辑窗口,根据需要进行菜单编排、设定背景和文字按钮,最后按“刻录”就行了。

注意:有时我们下载的Flash动画是.exe格式的,这种格式实际上是内置了Flash播放程序,对这种Flash动画,我们可以用ExeToSwf V1.0将其转换为.swf格式。ExeToSwf是一款免费绿色软件,可在http://www.cbifamily.com/down/200412/flash/exe2swf.rar下载,解压后直接运行,在“SourceFile”框中填入要转换的exe文件路径和名称,点击“Convert”按钮即可很快将exe格式的Flash动画转换成swf格式的Flash动画。

46. PowerPoint to Flash v1.6.8

http://fjxmtt1.crsky.info/skskIi1%29l//pptFlash-v1.68H.rar

PowerPointtoFlash是第一个能够将PowerPoint的*.ppt档转换为Flash的*.swf文件的软件,它支持大量转档,可一次将多个演示文稿档案转换成目前最受欢迎的Flash格式,方便发布于网页,因为Flash只要浏览器就可以开启了,而*.ppt文件需要安装PowerPoint或检视程序。

Name:crsky Code:2883-432A-809A-669D-DBF6-B3BB-C6FC-4E6D

[1] [2]  下一页

[]



本栏最新

  • 为什么软件都想把自己装...
  • 杀毒软件“消亡史”:为...
  • 微信隐藏20个功能揭秘 微...
  • Excel操作技巧60例
  • WORD操作技巧60例
  • PPT制作教程48篇
  • 教师PPT课件制作技巧
  • Excel程序开发版资料汇总...
  • 教你复制那些复制不了的...
  • Word,PDF,PPT,TXT文件转...
  • 教你怎样把在网上看到的...
  • 课件制作培训材料144则(...
  • 课件制作培训材料144则(...
  • 课件制作培训材料144则(...
  • EXCEL常规使用技巧53问
  • 制作网上简易成绩查询系...
  • 本栏热点

  • Excel常用技巧53例
  • 修复损坏Excel文件方法全...
  • 微信隐藏20个功能揭秘 微...
  • EXCEL常规使用技巧53问
  • 108个Flash常见问题解答...
  • 课件制作培训材料144则(...
  • 制作网上简易成绩查询系...
  • 课件制作培训材料144则(...
  • Excel程序开发版资料汇总...
  • IE典型故障解决大全
  • Word与Excel技巧文章80篇...
  • 巧妙输入平行四边形的符...
  • Excel统计学生成绩时的四...
  • 课件制作培训材料144则(...
  • 学生成绩网上查 Excel显...
  • 教你复制那些复制不了的...
  • Word,PDF,PPT,TXT文件转...
  • Word中编制试卷小技巧
  • 教你怎样把在网上看到的...
  • Word中的填空试题还可以...
  • 个人网站评比标准细则
  • 安全上网五个习惯20条守...
  • 最新资料

  • 数学帮你管住自己的嘴巴...
  • 千年困惑,我们为什么要...
  • 大气磅礴的领导讲话排比...
  • 正确处理教学与教研关系...
  • 能“叫醒”一个人的,是...
  • 熊孩子是惯出来的,好孩...
  • ××小学教学常规精细化...
  • 别人的屋檐再大,都不如...
  • 渭源古城记忆
  • 再优秀的老师,也弥补不...
  • 论怎样上好高三试卷讲评...
  • 如何上好试卷讲评课?
  • 听课记录到底应该记什么...
  • 一位生活简朴到“另类”...
  • 如何缓解孩子对教育的焦...
  • 笨人自有笨人的光辉
  • 中国历史上十大兵家必争...
  • 52个教师常用网站
  • 甘肃省中小学教师减负清...
  • 退休打油诗
  • 中国科技核心期刊目录(...
  • 中国的自然之最和古建筑...
  • 尖子生培养的一些做法
  • 赞美各学科老师的对联
  • 常自省,能自律,懂自愈...
  • 永远不要与人性为敌
  • 缺德之人的四大特征
  • 高考百日誓师大会被网暴...
  • 探访木寨岭特长隧道:中...
  • 心态对了,一切都顺了
  • 习惯把洋芋叫洋芋
  • 2023中国最新10大科技出...
  • 人生五劝
  • 不生气,不抱怨,不强求...
  • 只要皱纹不长进心里,我...
  • 寒风阵阵,去哪里泡温泉...
  • 跟对人,走对路,做对事...
  • 南墙服人,磨难醒人
  • 教室管理的52个有效工具...
  • 教育部关于全面实施学校...

  • 全站导航

    软件频道

    具才软件 工具软件

    资料频道

    ┌─── 本站视界───┐

    世事观察 茶余饭后 做人有道
    名家论道 时势聚焦 酸甜苦辣
    涉猎有益 老年生活 多彩世界
    人生领悟 定西甘肃 抗击疫情

    ┌───具才习作───┐

    数学教研 教育思考 高考探索
    管理拾零 人生记录 社会视角
    信息技术    

    ┌───故乡渭源───┐

    渭源历史 渭源当今 渭源儿女
    靓文摘发 南坪文丛 维和记事

    ┌───教育综合───┐

    政策条规 学校管理 工作博览
    教师参考 教学常规 教育探究
    教育万象 高考关注 家校共育

    ┌───学科资源───┐

    数学资源 数学参考 语文资源
    英语资源 理综资源 文综资源
    多科综合    

    ┌───站内消息───┐

    站主消息 站务信息

    ┌───电脑手机───┐

    操作系统 软件应用

    图片频道

    学习交流 合作共事 天伦之乐 为照而照
    良师益友 省外旅行 省内游玩 奇妙自然

     


    站主其人 | 网站帮助 | 下载声明 | 网站地图 | 友情链接


      具才苑是一个主要以中小学教师、师范类学生、中老年朋友为主要服务对象,教学资源丰富,兼顾社会关注问题的小型综合网站。具才苑是所有具才软件的首发官方网站,因此在这里下载的具才软件才是最新最可靠的。具才苑资源全部免费下载。因手机浏览者越来越多,本站作了全新改版,力求手机、电脑用户都能使用。如因此给您带来不便,深表歉意!