重返侏罗纪电影视频:如何在authorware中,改变视频窗口的大小呢?

来源:百度文库 编辑:高校问答 时间:2024/04/30 07:47:01
我在authorware中,插入了一段视频。可是窗口很小。请各位大侠帮帮忙,指教一下,该怎么改变窗口的大小,使其满屏显示呢?谢谢

--Cover()--遮盖屏幕
alHideTaskBar()--隐藏Windows任务栏
--这里是本程序运行所需的屏幕分辨率
--本例设为800×600,16位真彩色,你可以改为你想要的值
N_width:=800
N_height:=600
N_depth:=16
--先检测当前屏幕分辨率,并保存起来,以便程序退出时恢复
width:=ScreenWidth
height:=ScreenHeight
depth:=ScreenDepth
--将屏幕分辨率调为所要求的值
if ((ScreenDepth <N_depth)|(ScreenWidth<>800)) then
alChangeRes(N_width,N_height,N_depth)
changed:=1 --标记屏幕分辨率已被更改
else
GoTo(IconID@"next")
end if