让Authorware课件实现全屏播放

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

那么有没有一种方法可以既全屏播放，又不受运行环境分辨率的影响呢？本人终于找到一个工具：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()--退出

运行

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

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