点击下载此附件
'实现功能的主要代码如下----------------
'计时器触发事件,标签闪烁,字体颜色更改
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