中制作流水灯计划
都市的夜色中闪烁着各式各样的霓虹灯,其中用得最多的大概要算流水灯,它的行云流水般的效果为宁静的夜晚带来生机。如果在我们制作的多媒体软件的界面中加入一串闪闪发光的流水灯会是一种什么样的效果呢?按下面的步骤你可以为你的多媒体程序加入一串有追逐效果的流水灯。
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中运行通过。
查看本文来源
贵阳治疗子宫内膜炎医院宝宝积食怎么办
唐山治疗阴道炎哪家好
-
给松狮吃什么能美毛位置
饲养一只松狮犬在路上的回头率还是很高的,因为它们的外表实在是太萌了,而且它们的毛发也很好看,非常的浓...[详细]
-
罗列一下马犬最适合接种疫苗的最佳时期位置
接种疫苗是为了保证马犬的身体健康,也是为了避免马犬患上一些非常严重的传染性疾病。因此给马犬接种疫苗可...[详细]
-
能给博美犬吃糖吗知识位置
创新报道提起糖果,这可是小孩子最喜欢的零食了,但是家长很少让自己的孩子吃糖,因为过多的吃糖会造成蛀牙...[详细]
-
苏格兰牧羊犬拉稀怎么办治疗苏牧拉肚子的方位置
苏格兰牧羊犬拉稀是很常见的疾病,家长一定要了解治疗苏牧拉肚子的方法。像是着凉感冒、肠胃炎、中暑、食物...[详细]
-
观赏鱼消毒紫外光与臭氧来消毒最环保位置
观赏鱼消毒,随着人类文明的发展和环境保护意识的加强,有残留污染和二重感染的传统消毒剂和抗生素类药物逐...[详细]
-
高调训犬人分享训练柴犬的注意事项位置
拥有聪明柴犬的主人们,当然都会希望自己的狗狗非常的聪明能干,能够帮助自己做很多的事情,更重要的是它会...[详细]