Authorware中灵活显示外部图片 说到Authorware中调用图片，好多朋友.docVIP

Authorware中灵活显示外部图片 说到Authorware中调用图片，好多朋友都会想到直接在Authorware的显示图标或交互图标中导入各种类型的图片，但当多媒体应用程序打包发行后，或大批量显示同类图片时，Authorware本身的显示类图标就显得束手无策了。不过幸好Authoraware有强大的扩展类函数和控件的支持，在此向大家介绍几种绝好的调用外部图片的好方法，供大家在多媒体制作中使用。 一、灵活运用变量显示外部图片 　　此种方法的特点是，仍旧使用显示图标来显示大量的不同类型的外部图片文件。接下去我们用authorware来制作一个图片浏览器。程序流程如图1，执行效果如图2。 图1 范例程序流程 2 程序执行效果图 　　为了能使用户选择图片文件和目录，在这儿使用了filedlgs.u32中的OpenFiledlg()函数弹出对话框来选择目录和文件。此UCD可在authorware6.5的光盘上找到，你也可以到下载。 Authorware新建一文件并保存为displayimages.a6p。调出函数面板（Ctrl+Shift+F），选择面板上Categroy下拉框中最下面一个displayimages.a6p。然后按面板左下角的Load…按钮，在弹出的对话框中选择filedlgs.u32，并调用其中的OpenFiledlg函数。 1的流程，具体每一个图标如何设置，下面将详细解绍。 1、“初始化”计算图标内的代码为： file:= --存储图片文件名 files:= --存储一个目录下所有文件名 folder:= --存储目录名 num:=0 --当前显示图片占总张数的位置 wrong:= --非图片文件的扩展名 SetCursor(6) --设置鼠标形状为手机  提示：SetCursor(n)系统函数可设置各种形状的鼠标指针，其参数可取： 0 箭头光标 1 I型光标 2 +型光标，用于精细定位 3 十字型光标 4 空的光标，即隐藏鼠标 5 沙漏光标 6 手型光标 2、“pic”显示图标  　　放一个名为pic的显示图标到流程线上，然后双击打开，以链接方式导入（Link To File）一张图片，然后双击图片，弹出Properties:Images面板，点击Image标签，删掉File后面的文件名，打入=file。Layout标签，在Displayed后面的下拉框中选择Scaled，然后设置Position的X，Y的值都为0，Size的值为640，480（此处可根据你的展示窗口的大小进行调整），单击OK完成设置。 file的值时，此显示图标会显示file指定的图片，但不会自动更新，我们需要在pic显示图标上单击右键（Ctrl+I），弹出的Properties:Display Icon面板，点击Display标签，勾选其中找到Update Displayed Variables。 pic显示图标增加一个附加图标（Ctrl+=），打入Movable=0防止图片被拖动。 3、“翻页”交互结构  （1）“Open”计算图标内的代码为： file:=OpenFileDlg(, , , , 所有图片文件|*.*|bmp|*.bmp|jpg|*.jpg|gif|*.gif|png|*.png| photoshop|*.psd|tiff|*.tif|wmf|*.wmf|emf|*.emf|pic|*.pic|) --打开文件对话框 folder:=SubStr(file, 0, RFind(\\\\, file)) --取得目录名 wrong:=SubStr(file, RFind(., file)+1,CharCount(file)) --取得文件的扩展名 files:=Catalog(folder ,F) --取得目录下所有文件名,不包含路径 OpenFileDlg函数是外部扩展函数，我们已经在开始从filedlgs.u32中调入。 2）“-”和“- 　　此两个按钮交互用于上翻和下翻显示目录中的所有图片。 “-”中的代码为： if 0num:=num-1 file:=folder^GetLine(files,num) wrong:=SubStr(file, RFind(., file)+1,CharCount(file)) end if -”中的代码为： if LineCount(files)num then num:=num+1 file:=folder^GetLine(files,num) wrong:=SubStr(file, RFind(., file)+1,CharCount(file)) end if 　　分别双