社区
VB基础类
帖子详情
在VB中如何实现闪烁效果的字体?
_xieqing
2002-08-26 04:59:15
在VB中如何实现闪烁效果的字体?
...全文
187
2
打赏
收藏
在VB中如何实现闪烁效果的字体?
在VB中如何实现闪烁效果的字体?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Maxdell
2002-08-26
打赏
举报
回复
VB6.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应用程序界面,相当实用。
huxiangming
2002-08-26
打赏
举报
回复
用一个定时器,一个label框并利用他的Visible属性就可以玩闪烁了。
VB
5.0
中
实现
字体
闪烁
效果
...
VB
之精彩编程-
VB
5.0
中
实现
字体
闪烁
效果
VB
5.0
中
实现
字体
闪烁
效果
.doc
VB
5.0
中
实现
字体
闪烁
效果
.doc
VB
教程下载
·使用
VB
建立Web Server ·
VB
与Windows资源管理器互拷文件 ·
VB
查找文件的两种方法 ·利用
VB
设计打印复杂报表 ·在
VB
中
播放AVI文件 ·在
VB
中
引用.dbf及索引文件 ·
VB
5.0
中
实现
字体
闪烁
效果
·在
VB
应用软件
中
实现
...
vb
可控延时实验(源程序)
vb
控制
字体
的
闪烁
时间,可以写进写字板改变
闪烁
频率。
VB
支持
中
文的平滑
字体
滚动特效
内容索引:
VB
源码,字符处理,电影序幕,文字滚动
VB
支持
中
文的平滑
字体
滚动电影序幕特效,以前发布文字滚动的,但有朋友说
中
文支持不太好,这一款经过测试对
中
文支持良好,而且滚动平滑,无
闪烁
,朋友们可以参考一下。
VB基础类
7,762
社区成员
197,608
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章