VISUALBASIC中制作流水灯VISUAL BASIC 中制作流水灯
VisualBasic中制作流水灯
都市的夜色中闪烁着各式各样的霓虹灯，其中用得最多的大概要算流水灯，它的行云流水般的效果为宁静的夜晚带来生机。如果在我们制作的多媒体软件的界面中加入一串闪闪发光的流水灯会是一种什么样的效果呢？按下面的步骤你可以为你的多媒体程序加入一串有追逐效果的流水灯。
1、建立一个新的表单。进入Visual5asic4.0系统环境，建立一个新的表单（FORM1），并设置FORM1的Backcolor属性为RGB(192,192,192)。
2、建立第一个彩...
VISUAL BASIC 中制作流水灯
VisualBasic中制作流水灯
都市的夜色中闪烁着各式各样的霓虹灯，其中用得最多的大概要算流水灯，它的行云流水般的效果为宁静的夜晚带来生机。如果在我们制作的多媒体软件的界面中加入一串闪闪发光的流水灯会是一种什么样的效果呢？按下面的步骤你可以为你的多媒体程序加入一串有追逐效果的流水灯。
1、建立一个新的表单。进入Visual5asic4.0系统环境，建立一个新的表单（FORM1），并设置FORM1的Backcolor属性为RGB(192,192,192)。
2、建立第一个彩灯。鼠标点击“表单控制栏”中的“标签”，并在FORM1上拉出一个矩形方框（LABEL1）。设置它的属性Caption为“★”（也可为其它字符，这里的“★”可在WINDOWS95的“附件”的“字符映射表”中找到），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过程如下：
PrivateSubForm_Load()
I=0
Forj=0To9
Label1(j*3).ForeColor=&HFF&'红色
Label1(j*3+1).ForeColor=&HFF00&'绿色
Label1(j*3+2).ForeColor=&HFFFF&'黄色
Nextj
EndSub
6、双击TIMER1，编写TIMER1的Timer过程如下：
PrivateSubTimer1_Timer()
IfI=30Then
I=0
EndIf
I=I+1
ForJ=0To29
Label1(J).Visible=FalseNextJ
IfIMod3=2Then
ForJ=0To9
Label1(J*3+1).Visible=TrueNextJ
Else
IfIMod3=0Then
ForJ=0To9
Label1(J*3+2).Visible=TrueNextJ
Else
ForJ=0To9
Label1(J*3).Visible=TrueNextJ
EndIf
EndIf
EndSub
运行表单后可见到红、绿、蓝三种颜色的彩灯交替点亮，调整Timer1的Interval属性值大小可以改
变三组彩灯的循环速度。
以上程序在VisualBasic5.0及Windows95中运行通过。
本文档为【VISUALBASIC中制作流水灯】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483