您的位置:逆风者 VB 正文
原作者:www.upwinder.com 添加时间:2007-09-02 原文发表:2007-08-31 人气:23 来源:未知

  当你在窗体上加入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

相关文章

获得Windows的临时文件的路径
由Visual Basic 5.0调用Explorer的方法
去掉窗体的关闭按钮
创建动态图标
椭圆形的窗体
如何设定墙纸的显示方式?
将阿拉伯数字转成中文字的程式
ADO设定独占性的资料库
使用Cleanup方法避免循环引用
Visual Basic 中制作流水灯
在VB中如何使用ping命令
让 Visual Basic程序在新 User Login 时自动
Visual Basic 中实现绘图区的大十字光标
应用ActiveX Automation技术进行AutoCad的开
用VB“破解”有时间限制的程序
VB中APP对象及其应用
用Visual Basic实现多画面播放功能
用VB控制EXCEL生成报表
如何满屏播放AVI文件
利用PictureClip进行图像局部处理

相关评论


本文章所属分类:首页 VB

  热门关键字: