VisualBasic中制作流水灯

城市的夜晚闪烁着各种各样的霓虹灯，其中使用最多的大概就是流水灯了，它流动的效果给静谧的夜晚带来了活力。如果在我们制作的多媒体软件的界面上加上一串闪闪发光的运行灯，会是一种什么样的效果？按照下面的步骤，你可以在你的多媒体程序中添加一串具有追逐效果的运行灯。

1.创建新表单。进入Visual 5asic 4.0系统环境，新建一个form (FORM1)，将FORM1的Backcolor属性设置为RGB(192，192，192)。

2.建造第一盏灯笼。点击“表单控制栏”中的“标签”，在FORM1上拉出一个矩形框(LABEL1)。将其属性Caption设置为“★”(也可以是其他字符，其中“★”可以在WINDOWS 95附件的字符映射表中找到)，Autosize为。t .，背景样式设置为0，前景色设置为红色，字体大小设置为18。

3.设置其他29个彩灯。单击LABEL1，按CTRL+C(复制)，然后按CTRL+V(粘贴)创建另一个标签(LABEL1 (1))，其标题与FORM1上的LABEL1相同。当屏幕提示是否创建质控阵列时，选择“是”。反复复制，一共建立了30个标签，这30个标签按顺序排列在一个矩形框里。

4.设置一个计时器。点击“表格控制栏”中的“定时器”，然后点击FORM1，在FORM1上创建一个定时器(定时器1)。将其属性间隔设置为400。

5.双击FORM1，将FORM1的加载过程编写如下:

私有子窗体_Load()

I = 0

对于j = 0到9

1 (j * 3)。forecolor =&hff&'red

1 (j * 3+1)。forecolor = & hff00 & '绿色

1 (j * 3+2)。forecolor = & hfffff & '黄色

下一个j

末端接头