用Visual Foxpro 3.0制作流水灯 都市的夜晚，各式各样的霓虹灯是最美的景色之一。如果在我们制作的多媒体软件的界面中加人一串闪闪发光的彩灯会是一种什么样的效果呢？下面是一个频率可调的三路流水灯程序，步骤如下： l．建立一个新表单。进人Visual FoxPrO 3．0系统环境，在命令行窗口中键人"Create Form"或在"文件"菜单中选择"新建"广表单"，即可建立一个新表单（Form1），并设置"Form1"的"Backcolor"属性为RGB（192，192，192）。
2．建立第一个彩灯。用鼠标点击"表单控制栏"中的"标签"，并在"Form1"上拉出一个矩形方框（Label1）。设置它的属性"Caption"为"★"（也可为其它字符，这里的"★"可在Windows 95的"附件"的"字符映射表"中找到），"Autosize"为．T.，"Backstyle"为0，"Forecolor"为RGB（255，0，0），"Fontsize"为20。
3．建立其它29个彩灯。用鼠标点击"La－bell"，按Ctrl＋C（拷贝）键，再按 Ctri＋V（粘贴）键，在"Form1"上创建另一个标题与"Label1"相同的标签（Label2），设置它的"Forecolor"属性为RGB（0，255，0）。如此反复进行拷贝，共建立30个标签，将这川个标签按顺序排成一个矩形方框。再将Label2、Label5、Label8。 Label11、Label14、 Label17、Label20、LA-BEL23、Label26、Label29的"Forecolor"属性设置为RGB（0，255，0）；Label3、Label6、Label9、Label12、Label15、Label18、Label21、Label24、Label27、Label30的Forecolor的属性设置为RGB（0，0，255）。
4．建立计时器。用鼠标点击"表单控制栏"中的"计时器"，再在"Forml"上点击一下，即可在"Form1"上创建一个计时器（Timer1）。设置它的属性"Interval"为400。
5．建立速度控制器。用鼠标点击"表单控制栏"中的"微调控制"，再在Form1上拉出一个方框，即可在"Form1"上创建一个微调控制器（Spinner1）。设置它的属性"Fonttiold"为.T.，"Fontsize"为11，"Increment"为100，"Inputmask"为9999，"Keyboardhighvalue"为1000，"Keyboardlowvalue"为0，"Spinnerhighvalue"为1000，"Spinnerlowvalue"为0， "Value"为600。
6．建立速度控制器标题。用鼠标点击"表单控制栏"中的"标签"，并在"Form1"上拉出一个矩形方框（Label1）。设置其属性"Caption"为"循环速度："，"Autosize"为．T.，"Backstyle"为0，"Fontbold"为．T.，"Fontsize"为11。
7．双击"Form1，编写"Form1"的"Activate"过程。步骤如下：
Public I
I＝0
8．双击"Timer1"，编写"Timer1"的"Timer"过程。步骤如下：
If I=30
I＝0
Endif
1=I十1
For J＝1 To 30
Ln＝"Label"＋IIF（J＜10，Str（J，1），Str（J，2）＋"．Visible"
Thisform．＆ Ln＝.F．
EndFor
If MOD（I，3）＝2
For J＝1 To 10
Ln="label"十IIF（3＊j－i<10，Str（3＊j－1，1），Str（3＊j－1，2））＋".Visible"
Thisform．＆ Ln＝． T．
Endfor
Else
If MOD（I，3）=0
For J＝1 To 10
Ln="Label"十IIF（3＊j<10，str（3＊j，1），Str（3＊j，
2））＋".Visible"
Thisform．＆ Ln＝． T．
EndFor
Else
For J=1 To 10
Ln＝"Label"＋IIF（3＊j-2＜10，Str（3＊j-2，l），Str
（3＊j-2，2））＋"Visible"
Thisform．＆ Ln＝．T．
EndFor
Endif
Endif
9．双击"Spinner1"，编写"Spinner1"的Nterac-
tivechange过程。步骤如下：
If Thisform．Spinner1．Value＝1000
Thisform．Timer1．Interval＝1
Else
Thisform，Timer1．Interval＝1000 －Thisform．Spinerl．
Value
Endif
运行表单后可见到红、绿、蓝三种颜色的彩灯交替点亮，调整"Spinner1"的大小可以改变三组彩灯的循环速度。
（阎　东）