Question

在VB6.0中用timer计时器，可以实现text1中文本的颜色随机变化吗

我想先随机产生0-255之间的数，分别赋值给a,b,c
然后利用Text1.ForeColor=RGB(a,b,c) 产生随机颜色
我把这整个过程放在了sub Timer1.timer中
为什么系统提示 错误的参数号或无效的属性赋值？

Answer 1

Private Sub Timer1_Timer()
Dim r As Integer, g As Integer, b As Integer
r = Int(Rnd * 256)
g = Int(Rnd * 256)
b = Int(Rnd * 256)
Text1.ForeColor = RGB(r, g, b)
End Sub

追问

不对

追答

哪种？出错还是结果不对。

追问

你看原问题里 我写了 错误的参数号或属性赋值

追答

打开附件看看，是别的地方吧，我试了没问题。

追问

你是Vb6.0吗

附件下载不了 T^T

下载好了～

我知道问题出在哪了 我的代码里RGB函数不知道为什么就是大写不了

追答

你装的vb6不全吧，这个函数在Visual Basic For Applications 库，它默认被引用的。
换个方式也能解决：
Private Sub Timer1_Timer()
Dim r As Long, g As Long, b As Long
r = Int(Rnd * 256)
g = Int(Rnd * 256)
b = Int(Rnd * 256)
Text1.ForeColor =b * 2 ^ 16 + g * 2 ^ 8 + r
End Sub