怎样制作VB闪烁文字?
4个回答
展开全部
闪烁字,实际上就是字体颜色随着时间不断变化
以下示例:
模型:窗体Form1,定时器Timer1
Private Sub Form_Load()
Timer1.Interval = 100'设置定时器为0.1s触发以此
End Sub
Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then'如果Label字体颜色为红色
Label1.ForeColor = vbblue'则改为蓝色
Else
Label1.ForeColor = vbRed'如果不是红色,则改为红色,从而实现字体颜色红蓝交替变化,达到闪烁效果。
End If
End Sub
以下示例:
模型:窗体Form1,定时器Timer1
Private Sub Form_Load()
Timer1.Interval = 100'设置定时器为0.1s触发以此
End Sub
Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then'如果Label字体颜色为红色
Label1.ForeColor = vbblue'则改为蓝色
Else
Label1.ForeColor = vbRed'如果不是红色,则改为红色,从而实现字体颜色红蓝交替变化,达到闪烁效果。
End If
End Sub
推荐于2017-12-16
展开全部
在窗体上加入Timer控件,设置Interval(间隔)属性,用来确定Timer控件多久触发一次,其单位为毫秒,当该值为500时,表示一秒钟会触发两次。
Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbGreen '颜色
Else
Label1.ForeColor = vbRed '颜色
End If
End Sub
Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbGreen '颜色
Else
Label1.ForeColor = vbRed '颜色
End If
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-13
展开全部
用 imgae 加 timer 时钟控制两张图片文字,不断切换既可.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-13
展开全部
用flash做
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询