VB中实现字体自动循环变色

虽然说VB已经渐渐退出我们的日常生活中,逐渐成为过去产物,但是对于编程初学者来说,还是一种非常通俗易懂,便捷的语言,特别是在界面UI设计上不需要编写大量代码,直接可视化操作,非常爽。在此记录一些曾经写过的一些VB代码,希望对自己以及看到这篇文章的人能够有启发

模型:窗体form1,定时器Timer1,标签Label1

VB中实现字体自动循环变色

添加以下代码:

Private Sub Form_Load()
Timer1.Interval = 500'启动定时器,并将百触发间隔设置为0.5s,时间自己调整
End Sub
Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then '如果Label字体颜色为红色
Label1.ForeColor = vbYellow '则变为黄色
ElseIf Label1.ForeColor = vbYellow Then '如果是黄色
Label1.ForeColor = vbBlue '则变为蓝色
Else
Label1.ForeColor = vbRed '如果是其他颜色,则变为红色;从而实现红黄蓝交替
End If
End Sub'颜色自己调整
VB中实现字体自动循环变色
VB中实现字体自动循环变色

原创文章,作者:Rosmontics,如若转载,请注明出处:https://rosmontis.com/archives/79

(0)
上一篇 2021年10月19日
下一篇 2021年10月25日
alt

相关推荐

发表回复

登录后才能评论
TG通知群
小程序
小程序
分享本页
返回顶部