Question

vb中时钟中怎么控制标签的前景色变化

Answer 1

使用Rnd函数和QBColor 函数，生成0-15的随机整数，来改变制标签的前景色。

Private Sub Form_Load()
    Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
    Label1.ForeColor = QBColor(Int((16 * Rnd)))
End Sub

追问

还有别的简单点的，直接的办法吗？

追答

除了用QBcolor函数能输出16个颜色，其它代码比这更复杂。

请解释下图划红线的意思。

追问

就是只用timer控件来控制标签框里字符的颜色变化

就是只用timer控件来控制标签框里字符的颜色变化

就是只用timer控件来控制标签框里字符的颜色变化

Answer 2

Private Sub Timer1_Timer()
If Label1.ForeColor <> vbGreen Then
     Label1.ForeColor = vbGreen
Else
     Label1.ForeColor = vbRed
End If
End Sub

标签label1前景色 红绿变化。

Answer 3

可以使用timer控件 还有标签的前景色

追问

可是，我用了，颜色没变化