|
都市的夜色中闪烁着各式各样的霓虹灯，其中用得最多的大概要算流水灯，它的行云流水般的效果为宁静的夜晚带来生机。如果在我们制作的多媒体软件的界面中加入一串闪闪发光的流水灯会是一种什么样的效果呢？按下面的步骤你可以为你的多媒体程序加入一串有追逐效果的流水灯。
1、建立一个新的表单。进入Visual 5asic 4.0系统环境，建立一个新的表单（FORM1），并设置FORM1的Backcolor属性为RGB(192,192,192)。
2、建立第一个彩灯。鼠标点击“表单控制栏”中的“标签”，并在FORM1上拉出一个矩形方框（LABEL1）。设置它的属性Caption为“★”（也可为其它字符，这里的“★”可在 WINDOWS 95的“附件”的“字符映射表”中找到），Autosize为.T.，Backstyle为0，Forecolor为红色，字体大小为18。
3、建立其它29个彩灯。鼠标点击LABEL1，按CTRL + C（拷贝）键，再按CTRL + V（粘贴）键，在FORM1上创建另一个标题与LABEL1相同的标签（LABEL1（1）），屏幕提示是否建立控件数组时选择‘YES’。如此反复进行拷贝，共建立30个标签，将这30个标签按顺序排成一个矩形方框。
4、建立计时器。鼠标点击“表单控制栏”中的“计时器”，再在FORM1上点击一下，即可在FORM1上创建一个计时器（TIMER1）。设置它的属性Interval为400。
5、双击FORM1，编写FORM1的Load过程如下：
Private Sub Form_Load()
I = 0
For j = 0 To 9
Label1(j * 3).ForeColor = &HFF& '红色
Label1(j * 3 + 1).ForeColor = &HFF00& '绿色
Label1(j * 3 + 2).ForeColor = &HFFFF& '黄色
Next j
End Sub
6、双击TIMER1，编写TIMER1的Timer过程如下：
Private Sub Timer1_Timer()
If I = 30 Then
I = 0
End If
I = I + 1
For J = 0 To 29
Label1(J).Visible = False
Next J
If I Mod 3 = 2 Then
For J = 0 To 9
Label1(J * 3 + 1).Visible = True
Next J
Else
If I Mod 3 = 0 Then
For J = 0 To 9
Label1(J * 3 + 2).Visible = True
Next J
Else
For J = 0 To 9
Label1(J * 3).Visible = True
Next J
End If
End If
End Sub
运行表单后可见到红、绿、蓝三种颜色的彩灯交替点亮，调整Timer1的Interval属性值大小可以改变三组彩灯的循环速度。
以上程序在Visual Basic 5.0及Windows 95中运行通过。
[系统软件]Visual Studio 2005 Express Beta Products 下载链… [系统软件]Visual FoxPro9.0中扩展报表系统功能
[系统软件]Visual FoxPro：我是旁观者 [系统软件]Visual Studio 2005 Express Editions Beta 2 下载…
[系统软件]Boost库在XP+Visual C++.net中的安装 [系统软件]Visual Studio 2005 Express Edition 正式版下载地…
[常用软件]Visual Foxpro通用报表打印程序 [常用软件]Visual FoxPro 6.0与大型数据库的无数据源连接
[常用软件]Visual Foxpro 的一个BUG [VB.NET程序]Visual Basic 6 逆向工程与反逆向工程 (2)
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
