如何用VB在窗体中实现闪烁文字
2013-08-26 18:12
393 查看
闪烁的文字可以在屏幕上起到明显的提示作用。通过使用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
以上就是参考数据库书籍所得出的编程代码结论。
当你在窗体上加入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
以上就是参考数据库书籍所得出的编程代码结论。
相关文章推荐
- vb.net 在windows窗体上实现文字滚动
- [Unity3D]手机3D游戏开发:如何实现最高分的存储与显示(六)----实现文字闪烁效果
- [VB.NET]请问类似QQ窗体靠边自动隐藏的效果如何实现?????
- asp.net如何在图片上加水印文字具体实现
- 【原创】如何实现无标题栏窗体的点击任务栏最小化功能
- 文字的动态运动效果在Vegas中该如何实现?
- C# WinForm 如何实现窗体的关闭时温馨提示
- VB.NET是如何关闭窗体 .
- 如何实现多窗体数据同步?
- c#,VC++ 在WinForm开发中如何实现控件随窗体大小的改变而自动适应其改变
- 如何用VB实现QBASIC中的data数据的read
- 如何实现flex布局下div等宽且内部文字可以溢出显示
- VB:如何实现在代码中弹出toolbar的ButtonMenu
- 如何实现MDI窗体不重复打开同一个子窗体?
- 如何在窗体之间通讯的几种方法 ? VB.NET方案
- 如何实现文字的无缝滚动
- VB开发——如何实现只允许输入汉字的文本框
- C#如何实现窗体间数据互访?
- Vb.net/VB 声明API函数实现父窗体功能
- 【转】如何实现vb与excel的无缝连接