Question

vb Label1.ForeColor 循环变色

Private Sub Timer2_Timer()

For i =1 to 10 step 1
i= i+1
.....
next i

怎么写？

Label1.ForeColor = &HFF&
Label1.ForeColor = &HFF00FF
Label1.ForeColor = &HC000C0
Label1.ForeColor = &HFF0000
Label1.ForeColor = &HC000&
-----

两个控件

label1

timer1

Answer 1

可否使用RGB颜色，这样更容易循环些

Dim n As Integer
Private Sub Form_Load()
Timer1.Interval = 500
n = 0
End Sub

Private Sub Timer1_Timer()
n = n + 1
If n > 15 Then n = 1 Else Label1.ForeColor = RGB(15 * n, 15 * (15 - n), 255 - 15 * n)
End Sub