用Authorware制作电子相册

（1）“读相片名”运算图标中内容为：

pic_num:=Random(1,total_pic,1)

--随机产生一个相片号。

pic_name:=GetLine(pics,pic_num)

--取出该相片的名称。

（2）双击“显示相片”显示图标，从菜单中选择Insert/Image,此时你可看到弹出一个属性窗口，挪动窗口至适当位置还可看到画面上有一个“X”型的图形，此即为你输入的图片。

在属性窗口上单击Image按钮，在[File]域中输入（此为程序的关键部分，除汉字外，其它字符一定要在英文状态下输入）：

=FileLocation^"我的相册\"^pic_dir^"\"^pic_name

单击[Layout]按钮，在[Display]域中选择As Is（正常显示）项。

关闭该属性窗口，调整好“X”框的大小，在此你还可设置图片显示时的效果。

注：如果你想在运行中知道该相册中相片的数目，及时了解此时所显示的相片名，可选取文字工具输入以下内容：相册名：{pic_dir},共有{total_pic}张相片，现在是第{pic_num}张，名称为{pic_name}。.

（3）Wait图标中你可输入等待的时间。

（4）“擦除”图标用来擦除刚才的图片，可设置一种擦除方式。

四．“按序循环”组图标中的流程同“随机图标”，只须将“读相片名”的运算图标中的内容改为以下内容即可：

pic_num:=pic_num+1

if pic_num>total_pic then pic_num:=1

--如果所有的相片都已播放，再从第一张开始。

pic_name:=GetLine(pics,pic_num)

好！一个你自己创作的电子相册就完成了，你可以在“图片”组图标中多设置几个显示图标来丰富显示效果，加入运动图标使图片运动，你还可以在程序的启动部分载入音乐、加入其它内容等，如果你对源程序或“手动控制”部分按兴趣，欢迎与我联系。

（出处：清风网络学院）