-
vb教程之Visual Basic 中制作流水灯
都市的夜色中闪烁着各式各样的霓虹灯,其中用得最多的大概要算流水灯,它的行云流水般的效果为宁静的夜晚带来生机。如果在我们制作的多媒体软件的界面中加入一串闪闪发光的流水灯会是一种什么样的效果呢?按下面的步骤你可以为你的多媒体程序加入一串有追逐效果的流水灯。
1、建立一个新的表单。进入Visual Basic 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中运行通过。
1、建立一个新的表单。进入Visual Basic 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中运行通过。
最新更新
求1000阶乘的结果末尾有多少个0
详解MyBatis延迟加载是如何实现的
IDEA 控制台中文乱码4种解决方案
SpringBoot中版本兼容性处理的实现示例
Spring的IOC解决程序耦合的实现
详解Spring多数据源如何切换
Java报错:UnsupportedOperationException in Col
使用Spring Batch实现批处理任务的详细教程
java中怎么将多个音频文件拼接合成一个
SpringBoot整合ES多个精确值查询 terms功能实
数据库审计与智能监控:从日志分析到异
SQL Server 中的数据类型隐式转换问题
SQL Server中T-SQL 数据类型转换详解
sqlserver 数据类型转换小实验
SQL Server数据类型转换方法
SQL Server 2017无法连接到服务器的问题解决
SQLServer地址搜索性能优化
Sql Server查询性能优化之不可小觑的书签查
SQL Server数据库的高性能优化经验总结
SQL SERVER性能优化综述(很好的总结,不要错
uniapp/H5 获取手机桌面壁纸 (静态壁纸)
[前端] DNS解析与优化
为什么在js中需要添加addEventListener()?
JS模块化系统
js通过Object.defineProperty() 定义和控制对象
这是目前我见过最好的跨域解决方案!
减少回流与重绘
减少回流与重绘
如何使用KrpanoToolJS在浏览器切图
performance.now() 与 Date.now() 对比