office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access创建闪烁的通知窗体

2020-12-19 08:00:00
tmtony8
原创
174

为了突出信息的重要性,我们希望信息能高亮显示,甚至一直闪烁让更多的人注意消息通知。

可以通过计时器的时间间隔设置不同的闪烁颜色,以毫秒为单位使标签控件闪烁。


设置1秒钟改变一下颜色,颜色通过rnd函数随机生成新的RGB颜色

' 计时器事件,字体颜色更改
Private Sub Form_Timer()
   Me.TimerInterval = 1000
    Me.lab1.Visible = Not Me.lab1.Visible
    Me.lab1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub



    分享