用Visual FoxPro 3.0实现标题的淡入淡出

Author: 闫东 Date: 1997-01-01

　　很多游戏在开始时的解说字幕和爆机后的创作人员表中都使用了字符的淡入淡出方式。在Ｖｉｓｕａｌ　Ｆｏｘｐｒｏ　３．０中我们也可以制作有淡入淡出效果的标题。
　　１．进入Ｖｉｓｕａｌ　Ｆｏｘｐｒｏ　３．０系统环境，在命令行窗口中键入Ｃｒｅａｔｅ　Ｆｏｒｍ或在“文件”菜单中选择“新建”、“表单”，即可建立一个新的表单（ＦＯＲＭ１），并设置ＦＯＲＭ１的Ｂａｃｋｃｏｌｏｒ属性为ＲＧＢ（０，１２８，１２８）。
　　２．鼠标点击“表单控制栏”中的“标签”，并在ＦＯＲＭ１上拉出一个矩形方框（ＬＡＢＥＬ１）。设置它的Ｃａｐｔｉｏｎ属性为“淡入淡出效果演示”，Ａｕｔｏｓｉｚｅ为．Ｔ．，Ｂａｃｋｓｔｙｌｅ为０，Ｆｏｒｅｃｏｌｏｒ为ＲＧＢ（０，１２８，１２８），Ｆｏｎｔｎａｍｅ为“隶书体”，Ｆｏｎｔｂｏｌｄ为．Ｔ．，Ｆｏｎｔｓｉｚｅ为２８。
　　３．鼠标点击“表单控制栏”中的“计时器”，再在ＦＯＲＭ１上点击一下，即可在ＦＯＲＭ１上创建一个计时器（ＴＩＭＥＲ１）。设置它的Ｉｎｔｅｒｖａｌ属性为１００，Ｅｎａｂｌｅｄ属性为．Ｆ．。
　　４．鼠标点击“表单控制栏”中的“命令按钮”，并在ＦＯＲＭ１上拉出一个矩形方框（ＣＯＭＭＡＮＤ１）。设置它的Ｃａｐｔｉｏｎ属性为“开始”。
　　５．双击ＣＯＭＭＡＮＤ１，编写ＣＯＭＭＡＮＤ１的Ｃｌｉｃｋ过程如下：
　　Ｉｆ　Ｔｈｉｓｆｏｒｍ．Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝．Ｆ．
　　Ｔｈｉｓｆｏｒｍ．Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝．Ｔ．
　　ＥｎｄＩｆ
　　６．双击ＦＯＲＭ１，编写ＦＯＲＭ１的Ａｃｔｉｖａｔｅ过程如下：
　　Ｐｕｂｌｉｃ　Ｉ
　　Ｉ＝０
　　７．双击ＴＩＭＥＲ１，编写ＴＩＭＥＲ１的Ｔｉｍｅｒ过程如下：
　　Ｉ＝Ｉ＋１０
　　Ｉｆ　Ｉ＞＝２５５＊２
　　Ｔｈｉｓｆｏｒｍ．Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝．Ｆ．
　　Ｉ＝０
　　ＥｎｄＩｆ
　　Ｉｆ　Ｉ＞＝２５５
　　Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｆｏｒｅｃｏｌｏｒ＝ＲＧＢ（２５５＊２　Ｉ，１２８，１２８）
　　Ｅｌｓｅ
　　Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｆｏｒｅｃｏｌｏｒ＝ＲＧＢ（Ｉ，１２８，１２８）
　　ＥｎｄＩｆ
　　８．按鼠标右键点击ＦＯＲＭ１，在弹出菜单中选择“运行”。用鼠标点“开始”按钮，可以看到标题由背景色渐变为红色，然后由红色渐变为背景色。
　　以上程序在Ｖｉｓｕａｌ　Ｆｏｘｐｒｏ　３．０及Ｗｉｎｄｏｗｓ　９５中运行通过。