如何让标签的颜色变成黑色 (怎么在标签上增加角度颜色)

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

代 码：

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

'计时器触发事件，标签闪烁，字体颜色更改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_闪烁.ForeColorEnd 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 IfEnd Sub

演 示：

示例*载下**：

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