office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

access創建閃爍的通知窗體

2020-12-19 08:00:00
tmtony8
原創
1116

爲瞭突齣信息的重要性,我們希望信息能高亮顯示,甚至一直閃爍讓更多的人註意消息通知。

可以通過計時器的時間間隔設置不衕的閃爍顔色,以毫秒爲單位使標籤控件閃爍。


設置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



    分享