精华区文章阅读

发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: Database
标  题: 风格各异的清屏方式FOXBASE
发信站: 哈工大紫丁香 (2000年12月30日18:53:43 星期六), 转信

风格各异的清屏方式

    利用ＦｏｘＢＡＳＥ＋提供的屏幕格式设计命令可以设计出多姿多彩的清屏方
式，本文提供对屏幕实现拉幕式、卷帘式、斜拉式、辐射式等七种清屏方式的程序
代码。根据您的喜好，稍作修改，即可将相应的清屏方式添加到您的应用程序中，
获得很美的视觉效果。
拉幕式（从左至右）
Ａ＝０
ＤＯＷＨＩＬＥＡ＜８０
＠０，ＡＣＬＥＡＲＴＯ２４，Ａ
Ａ＝Ａ＋１
ＥＮＤＤＯ 拉幕式（从中间至两边）
Ａ＝０
ＤＯＷＨＩＬＥＡ＜４０
＠０，３９－ＡＣＬＥＡＲＴＯ２４，３９－Ａ
＠０，４０＋ＡＣＬＥＡＲＴＯ２４，４０＋Ａ
Ａ＝Ａ＋１
ＥＮＤＤＯ卷帘式（从上至下）
Ａ＝０
ＤＯＷＨＩＬＥＡ＜２５
＠Ａ，０Ａ＝Ａ＋１
ＥＮＤＤＯ 卷帘式（从中间至上下）
Ａ＝０
ＤＯＷＨＩＬＥＡ＜１３
＠１２－Ａ，０
＠１２＋Ａ，０
Ａ＝Ａ＋１
ＥＮＤＤＯ 斜拉式（从左上角至右下角）
Ａ＝０
ＤＯＷＨＩＬＥＡ＜２５
＠０，０ＣＬＥＡＲＴＯＡ，Ａ＊３＋７
Ａ＝Ａ＋１
ＥＮＤＤＯ 斜拉式（从右上角至左下角）
Ａ＝１ＤＯＷＨＩＬＥＡ＜２５
＠０，７２－Ａ＊３ＣＬＥＡＲＴＯＡ，７９
Ａ＝Ａ＋１
ＥＮＤＤＯ辐射式（从中间至四周）
Ａ＝１０Ｂ＝４０Ｃ＝１４Ｄ＝４０ＤＯＷＨＩＬＥＡ＞－１
＠Ａ，ＢＣＬＥＡＲＴＯＣ，Ｄ
Ａ＝Ａ－１
Ｂ＝Ｂ－４
Ｃ＝Ｃ＋１
Ｄ＝Ｄ＋４
ＥＮＤＤＯ （成都冶金管理干部学院信息系胡科６１００８１）

返回首页

--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]

Database 版 (精华区)