让Authorware课件实现全屏播放

作者:佚名 资料来源:网络 点击数:

让Authorware课件实现全屏播放

文 章来源 莲
山 课 件 w w w.
5Y k J. c oM

Authorware中,如果要实现课件的全屏播放,一般是通过修改文件属性,在“大小”选项中选择“User Full Screen”(如图1所示)。这样设置之后在课件运行的时候窗口就会扩展到整个屏幕。但它有一个弊端,就是如果运行环境的分辨率和设计环境的分辨率不同,课件运行时会有画面只能局部显示或画面不能全屏显示的情况,很影响演示效果。


图1

那么有没有一种方法可以既全屏播放,又不受运行环境分辨率的影响呢?本人终于找到一个工具:Altools.u32,这里面有改变分辨率和隐藏任务栏的函数。说到这儿大家可能都明白了:噢,原来是通过程序改变分辨率和隐藏任务栏而全屏演示呀!对了,的确是这样,不过还要在程序退出的时候改回原来的分辨率。下面我们就来看一看具体实现的办法。

加载函数

打开Authorware,保存文件为“Change.a6p”,然后把Altools.u32拷贝到刚才保存的位置。按组合键“Ctrl+Shift+F”打开函数框,在“分类”里面选择“Change.a6p”,单击[载入]按钮,选择Altools.u32,加载里面的“AlChangeRes”函数,用同样方法,再加载“AlHideTaskBar”、“AlShowTaskBar”两个函数。先说明一下这三个函数的作用:

1、AlChangeRes:改变屏幕分辨率的函数,基本格式为“AlChangeRes(Width,Height,bitpp)”。

2、AlHideTaskBar:隐藏任务栏。

3、AlShowTaskBar:显示任务栏。

编写程序

1、拖动一个计算图标到流程线上,命名为“初始化”,打开并输入以下语句:

UserScreenWidth=ScreenWidth--保存用户监视器的宽度

UserScreenHeight=ScreenHeight--保存用户监视器的高度

UserScreenDepth=ScreenDepth--保存用户监视器的颜色深度

AlHideTaskBar()--隐藏任务栏

AlChangeRes(640,480,32)--改变屏幕分辨率

ResizeWindow(640,480)--调整窗口大小

2、将整个课件作为一个整体放在计算图标“初始化”下。

3、再拖动一个计算图标到流程线上,命名为“结束退出”,打开并后输入以下语句:

AlShowTaskBar()--显示任务栏

AlChangeRes(userScreenWith,userScreenHeight,userScreenDepth)--恢复使用者原来的分辨率

Quit()--退出

运行

这时我们可以看到,在运行初已经改变了屏幕分辨率,而且是全屏播放。当退出时,又改回到原来的分辨率。

注释:开始就保存是为了加载函数时使用相对路径,这样在其他机器上运行不会出现找不到文件的错误。

文 章来源 莲
山 课 件 w w w.
5Y k J. c oM