【Access示例】使标签闪烁并随机变更颜色以引人注意示例

时　间:2014-12-20 12:37:55
作　者:风行   ID：16058  城市：江阴
摘　要:使标签闪烁并随机变更颜色以引人注意示例
正　文:

点击下载此附件

'实现功能的主要代码如下----------------

'计时器触发事件，标签闪烁，字体颜色更改
Private Sub Form_Timer()
    Me.lab_闪烁.Visible = Not Me.lab_闪烁.Visible
    Me.lab_闪烁.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
    Debug.Print Me.lab_闪烁.ForeColor
End Sub

'更改计时器间隔属性，从而控制计时器触发事件的执行与否
Private Sub cmdFlicker_Click()
    If Me.TimerInterval Then
        Me.TimerInterval = 0
    Else
        Me.TimerInterval = 500
    End If

    If Me.TimerInterval = 0 Then
        Me.cmdFlicker.Caption = "闪烁"
    Else
        Me.cmdFlicker.Caption = "停止闪烁"
    End If
End Sub