-
vb教程之VB5.0中实现字体闪烁效果
范明之
用Visual Basic我们可设计出形形色色符合用户要求的应用程序,它确实是一种很好的用户程序开发工具,可VB提供的基本控件中都没有闪烁属性设置,使应用程序界面缺乏“活性”,近期笔者设计软件封面时,就要求字体不断地闪烁,为此,经反复分析、实践,最后终于成功地实现字体闪烁效果,现将设计过程说明如下:
(1)创建一个新目标文件(project1),并建立一个窗体Form1。
(2)在Form1上配置一个计时器控制Timer1、标签控件Label1、命令控件Command1。
(3)各控件属性设置:
Timer1的Enabled设置为True;
Label1的Caption设置为需闪烁的字体:“江西省黎川县职业中专电脑室设计”、
Font设置字体及大小、Backstyle设置为“0-Transparent”;
Command1中的Caption设置为“退出”。
(4)程序代码清单:
Option Explicit
Private Sub Form_ Load()
Label1.Top=850
′设置闪烁字体的显示位置
Label1.Left=750
Timer1.Interval=555
′设置字体闪烁间隔时间
Form1.Windowstate=2
End Sub
′利用计时器控件Timer有规律地改变字体颜色(Forecolor)
Private Sub Timer1_Timer()
Chc Label1,1,4,8
End Sub
′Chc过程是循环地改变字体颜色(Forecolor)
Sub Chc(Cont As Control,Color1 As Integer,Color2 As Integer,Color3 As Integer)
If Val(Cont.Tag)=Color1 Then
Cont.Tag=Color2
ElseIf Val(Cont.Tag)=Color2 Then
Cont.Tag=Color3
ElseIf Val(Cont.Tag)=Color3 Then
Cont.Tag=Color1
Else
Cont.Tag=Color1
End If
Cont.ForeColor=QBColor(Cont.Tag)
End Sub
Private Sub Command1_Click()
End
End Sub
程序除标签控件外,还适用于许多VB基本控件,实现诸多闪烁效果,例如:闪烁文本框、闪烁文件列表框等,极大丰富了VB应用程序界面,相当实用。
此设计也适用VB3.0、VB4.0。
用Visual Basic我们可设计出形形色色符合用户要求的应用程序,它确实是一种很好的用户程序开发工具,可VB提供的基本控件中都没有闪烁属性设置,使应用程序界面缺乏“活性”,近期笔者设计软件封面时,就要求字体不断地闪烁,为此,经反复分析、实践,最后终于成功地实现字体闪烁效果,现将设计过程说明如下:
(1)创建一个新目标文件(project1),并建立一个窗体Form1。
(2)在Form1上配置一个计时器控制Timer1、标签控件Label1、命令控件Command1。
(3)各控件属性设置:
Timer1的Enabled设置为True;
Label1的Caption设置为需闪烁的字体:“江西省黎川县职业中专电脑室设计”、
Font设置字体及大小、Backstyle设置为“0-Transparent”;
Command1中的Caption设置为“退出”。
(4)程序代码清单:
Option Explicit
Private Sub Form_ Load()
Label1.Top=850
′设置闪烁字体的显示位置
Label1.Left=750
Timer1.Interval=555
′设置字体闪烁间隔时间
Form1.Windowstate=2
End Sub
′利用计时器控件Timer有规律地改变字体颜色(Forecolor)
Private Sub Timer1_Timer()
Chc Label1,1,4,8
End Sub
′Chc过程是循环地改变字体颜色(Forecolor)
Sub Chc(Cont As Control,Color1 As Integer,Color2 As Integer,Color3 As Integer)
If Val(Cont.Tag)=Color1 Then
Cont.Tag=Color2
ElseIf Val(Cont.Tag)=Color2 Then
Cont.Tag=Color3
ElseIf Val(Cont.Tag)=Color3 Then
Cont.Tag=Color1
Else
Cont.Tag=Color1
End If
Cont.ForeColor=QBColor(Cont.Tag)
End Sub
Private Sub Command1_Click()
End
End Sub
程序除标签控件外,还适用于许多VB基本控件,实现诸多闪烁效果,例如:闪烁文本框、闪烁文件列表框等,极大丰富了VB应用程序界面,相当实用。
此设计也适用VB3.0、VB4.0。
最新更新
求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() 对比