--将屏幕分辨率调为所要求的值
if wzMBReturnedValue=6 then
alChangeRes(N_width,N_height,N_depth)
changed:=1 --标记屏幕分辨率已被更改
else
GoTo(IconID@"next")
end if
GoTo(IconID@"next") --跳到主程序

9、群组(Group)图标“notice”中“pop-up alert”是Message Box知识对象(Knowledge Object),你可以按照提示进行各项设置。其中“Caption/Message”为设置弹出窗口的标题和消息内容,本例设置如下。

10、计算(Caculation)图标“end”是在程序退出前,判断用户的显示器分辨率在程序运行时,是否被修改过,如果被修改过,那么恢复原来的分辨率设置;反之直接退出。其中代码如下:
--如果屏幕分辨率被更改,程序退出时,恢复原设置
if changed=1 then alChangeRes(width,height,depth)
Quit() --退出
这样你的程序在运行时,如果需要的话,就可以将用户显示器分辨率设置为合适值,也就能够使你的作品在所有用户的机器上完美重现了!
技巧提示:当程序中有大量的函数和变量时,关于变量的说明和程序中的注释语句是必要的,因为这样能使别人可以很容易读取自己的程序,在很长时间后也能根据注释迅速回忆起原来的内容。
源文件:本例使用了大量的变量和函数,请大家下载源程序,仔细琢磨。本源文件中包含和alTools.u32的最新版本。点击这里下载检测和调整显示器分辨率源文件