通过使用VB的Timer控件,程序员可以轻松的在窗体上实现闪烁文字的效果。本文将演示如何为Label控件加上闪烁效果,这种方法同样适用于其它多种控件。以下代码可以完成检验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 当你停止文字闪烁时,还要确定文字的状态是可见的并且采用了合适的色彩。
专注于为中小企业提供网站设计制作、成都网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业西乌珠穆沁免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了成百上千家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
private sub timer1_timer()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Int(Rnd() * 255)
b = Int(Rnd() * 255)
c = Int(Rnd() * 255)
lblTitle.ForeColor = RGB(a, b, c)
end sub
分析:
添加一个新窗体,设置属性.TopMost=True ,窗体显示在前面。
设置一下透明度增加效果。如果使用窗体闪烁,可以添加时间控件,
设置时间段变更窗体透明度来达到你想要的效果。
操作前把WMP暂停/停止试试,甚至是销毁、重新加载个WMP。
如果是WMP不好,你可以用其它的第三方播放控件嵌在程序中。
不介意的话把代码贴上来帮你看看。