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

2016-02-19 13:35 40 1 收藏

今天图老师小编要向大家分享个如何用VB在窗体中实现闪烁文字教程,过程简单易学,相信聪明的你一定能轻松get!

【 tulaoshi.com - 编程语言 】

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

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

  PrivateSubTimer1_Timer()  

  IfLabel1.ForeColor=Label1.BackColorThen

  Label1.ForeColor=vbBlack

  Else

  Label1.ForeColor=Label1.BackColor

  EndIf  

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  EndSub  

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

  PrivateSubTimer1_Timer()  

  IfLabel1.ForeColor=vbRedThen

  Label1.ForeColor=vbGreen

  Else

  Label1.ForeColor=vbRed

  EndIf  

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  EndSub  

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

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  Timer1.Enabled=False

  Label1.ForeColor=vbBlack

->

来源:http://www.tulaoshi.com/n/20160219/1604704.html

延伸阅读
VisualBasic作为一个集应用程序开发、测试、查错功能于一体的集成式开发环境,越来越受到程序员的青睐。笔者在开发某数据库维护系统的过程中,选择了VB5.0作为开发平台,Unix作为服务器端操作系统,Informix作为服务器数据库。 问题的出现 在开发该维护系统的过程中,注意到Informix数据库的字段类型CLOB填入数据时需要函数FILETOCLOB("FILEN...
在多媒体程序设计中,为了美化显示屏幕,增加画面的动感,常常要用天各种图像显示特技。图像的切换技术能明显美化画面。用VisualBasic编制这类程序时,由于VB自身没有这种切换功能,因此需要利用第三方控件或调用WindowsAPI函数BitBlt来实现这种功能。本文介绍用BitBlt函数实现画面的各种切换方法,供大家参考。 假设有5个图像文件(Picture...
----毫不夸张的说,注册表相当于WIN95的“心”,几乎所有的Windows应用程序都毫不例外的要在这里边“安家筑巢”,如果你也用VB编写了一个程序,是不是也想在注册表里占有一席之地呢(即使刚才没有,现在大概也有了吧)?嗯,听我慢慢道来。 ----“API”中专门提供了处理注册表的函数,不用说也知道,它们肯定功能强大(因为它们是API)...
Windows 中不规则窗体的编程实现 作者:上海伟功通信 roc 下载源代码 一、序言 在绝大多数的Windows应用程序中,其窗体都是使用的正规正矩的矩形窗体,例如我们常用的,“记事本”,“扫雷”,等等。矩形窗体,具有编程实现简单,风格简洁的优点,所以在普通文档应用程序和简单小游戏中使...
标签: 电脑入门
有时候,我们需要把幻灯片里面的文字设置为不停闪烁的效果,相比什么特效都没有的幻灯片,这样毫无疑问会增色不少。 ①启动PowerPoint,单击菜单栏--动画--自定义动画,点击这个按钮。 ②这时界面右侧会出现窗口,单击添加效果按钮,然后选择一款动画。 ③添加完毕,点击计时选项。 ④在计时标签里面,我们可以设置速度以及闪烁的...

经验教程

350

收藏

55
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部