当前位置: 网学 > 编程文档 > VB > 正文

如何用VB在窗体中实现闪烁文字

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式

作者: Builder.com

闪烁的文字可以在屏幕上起到明显的提示作用。通过使用vb的Timer控件,程序员可以轻松的在窗体上实现闪烁文字的效果。本文将演示如何为Label控件加上闪烁效果,这种方法同样适用于其它多种控件。


当你在窗体上加入Timer控件时,它只出现在设计时,而不会在运行时出现可见的控件图标。Timer控件带有两个重要的参数。Interval(间隔)属性用来确定Timer控件多久触发一次,其单位为毫秒,因此当该值为500时,就表示一秒钟会触发两次。Enabled(使能)属性用来确定Timer控件是运行(Enabled = True)还是停止(Enabled = False)状态。

实际的闪烁是在Timer事件中完成的,Timer控件每次触发,程序都会调用Timer事件。我们可以将Label控件的ForeColor属性设置为黑色(可见)以及和BackColor属性一致的颜色(文字和背景色一致,相当于不可见)。以下代码可以完成检验ForeColor属性的任务:

Private Sub Timer1_Timer()

If Label1.ForeColor = Label1.BackColor Then
    Label1.ForeColor = vbBlack
Else
    Label1.ForeColor = Label1.BackColor
End If

End Sub

另外,你也可以让文字采用不同的颜色,比如交替采用红色和绿色:

Private Sub Timer1_Timer()

If Label1.ForeColor = vbRed Then
    Label1.ForeColor = vbGreen
Else
    Label1.ForeColor = vbRed
End If

End Sub

当你停止文字闪烁时,还要确定文字的状态是可见的并且采用了合适的色彩。要完成这个功能,你需要在停止闪烁时加入以下代码设置ForeColor属性:

Timer1.Enabled = False
Label1.ForeColor = vbBlack 

  • 上一篇资讯: Text 转换为 Access MDB
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号