Visual FoxPro 3.0中移动字幕的实现

Author: 闫东 Date: 1997-01-01

　　在电视上我们时常会看到屏幕下方会有一行提示文字或广告信息由右至左移动，这样既起了提示作用又不会破坏整体屏幕。在Ｖｉｓｕａｌ　ＦｏｘＰｒｏ　３．０中我们同样可以完成这种设计。方法如下：
　　１．进入Ｖｉｓｕａｌ　ＦｏｘＰｒｏ　３．０系统环境，在命令行窗口中键入Ｃｒｅａｔｅ　Ｆｏｒｍ或在“文件”菜单中选择“新建”、“表单”，即可建立一个新的表单（ＦＯＲＭ１），并设置ＦＯＲＭ１的Ｂａｃｋｃｏｌｏｒ属性为一个ＲＧＢ（１９２，１９２，１９２）。
　　２．鼠标点击“表单控制栏”中的“标签”，并在ＦＯＲＭ１上拉出一个矩形方框（ＬＡＢＥＬ１）。设置它的属性Ｃａｐｔｉｏｎ为“活动字幕演示”，Ａｕｔｏｓｉｚｅ为．Ｔ．，Ｂａｃｋｓｔｙｌｅ为０，Ｆｏｒｅｃｏｌｏｒ为ＲＧＢ（１２８，１２８，１２８），Ｆｏｎｔｎａｍｅ为“隶书体”，Ｆｏｎｔｂｏｌｄ为．Ｔ．，Ｆｏｎｔｓｉｚｅ为３６。
　　３．鼠标点击ＬＡＢＥＬ１，按Ｃｔｒｌ＋Ｃ（拷贝）键，再按Ｃｔｒｌ＋Ｖ（粘贴）键，在ＦＯＲＭ１上创建另一个标题与ＬＡＢＥＬ１相同的标签（ＬＡＢＥＬ２），设置它的Ｆｏｒｅｃｏｌｏｒ属性为ＲＧＢ（２５５，２５５，０）。调整ＬＡＢＥＬ２的位置，使其刚好比ＬＡＢＥＬ１高一些，使ＬＡＢＥＬ１看起来象ＬＡＢＥＬ２的阴影。
　　４．鼠标点击“表单控制栏”中的“计时器”，再在ＦＯＲＭ１上点击一下，即可在ＦＯＲＭ１上创建一个计时器（ＴＩＭＥＲ１）。设置它的属性Ｉｎｔｅｒｖａｌ为２００。
　　５．双击ＦＯＲＭ１，编写ＦＯＲＭ１的Ａｃｔｉｖａｔｅ过程如下：
　　Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｌｅｆｔ＝Ｔｈｉｓｆｏｒｍ．Ｗｉｄｔｈ＋０．５
　　Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ２．Ｌｅｆｔ＝Ｔｈｉｓｆｏｒｍ．Ｗｉｄｔｈ
　　６．双击ＴＩＭＥＲ１，编写ＴＩＭＥＲ１的Ｔｉｍｅｒ过程如下：
　　Ｉｆ　Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｌｅｆｔ＜０－Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｗｉｄｔｈ
　　Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｌｅｆｔ＝Ｔｈｉｓｆｏｒｍ．Ｗｉｄｔｈ＋０．５
　　Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ２．Ｌｅｆｔ＝Ｔｈｉｓｆｏｒｍ．Ｗｉｄｔｈ
　　ＥＮＤＩＦ
　　Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｌｅｆｔ＝Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｌｅｆｔ－５
　　Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ２．Ｌｅｆｔ＝Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ２．Ｌｅｆｔ－５
　　７．按鼠标右键点击ＦＯＲＭ１，在弹出菜单中选择“运行”即可见到字幕由屏幕右方出现，移至屏幕最左方消失。如果再加入一个计时器（ＴＩＭＥＲ２）控制ＬＡＢＥＬ１、ＬＡＢＥＬ２的Ｖｉｓｉｂｌｅ属性及ＴＩＭＥＲ１的Ｅｎａｂｌｅｄ属性，还可使ＬＡＢＥＬ１和ＬＡＢＥＬ２定时出现在屏幕上。
　　以上程序在Ｖｉｓｕａｌ　ＦｏｘＰｒｏ　３．０及Ｗｉｎｄｏｗｓ　９５中运行通过。