www.pudn.com > jq_transfile.ARJ > MODE.PRG

********************************************************* 
* 
* Name: ModeTest 
*       此程序演示FoxPro在各类显示模式下的状况 
* 
********************************************************** 
set path to .. 
set esca off 
set talk off 
do LoadSDK                    && 装入SDK 
 
clea 
if SetDMode(8)                && 设置显示模式8 
   ? "现已进入800*600*16色模式!" 
else 
   ? "不能进入800*600*16色模式!" 
endi 
wait 
 
clea 
if SetDMode(9)                && 设置显示模式9 
   ? "现已进入1024*768*16色模式!" 
else 
   ? "不能进入1024*768*16色模式!" 
endi 
wait 
 
clea 
if SetDMode(10)                && 设置显示模式10 
   ? "现已进入640*480*256色模式!" 
else 
   ? "不能进入640*480*16色模式!" 
endi 
wait 
 
clea 
if SetDMode(11)                && 设置显示模式11 
   ? "现已进入800*600*256色模式!" 
else 
   ? "不能进入800*600*256色模式!" 
endi 
wait 
 
clea 
if SetDMode(12)                && 设置显示模式12 
   ? "现已进入1024*768*256色模式!" 
else 
   ? "不能进入1024*768*256色模式!" 
endi 
wait 
 
clea 
? "现已返回640*480*16色模式!" 
=SetDMode(3)                && 恢复缺省显示模式3 
retu